Kertoma

input/code.hs:3:1: warning: [-Wunused-top-binds]
    Defined but not used: `factorials'
  |
3 | factorials = scanl1 (*) [1..]
  | ^^^^^^^^^^

input/code.hs:3:1: warning: [-Wmissing-signatures]
    Top-level binding with no type signature: factorials :: [Integer]
  |
3 | factorials = scanl1 (*) [1..]
  | ^^^^^^^^^^

input/code.hs:3:21: warning: [-Wtype-defaults]
    * Defaulting the following constraints to type `Integer'
        (Num a0) arising from a use of `*' at input/code.hs:3:21-23
        (Enum a0)
          arising from the arithmetic sequence `1 .. '
          at input/code.hs:3:25-29
    * In the first argument of `scanl1', namely `(*)'
      In the expression: scanl1 (*) [1 .. ]
      In an equation for `factorials': factorials = scanl1 (*) [1 .. ]
  |
3 | factorials = scanl1 (*) [1..]
  |                     ^^^

input/code.hs:5:1: warning: [-Wmissing-signatures]
    Top-level binding with no type signature:
      factorial :: (Num a, Enum a) => a -> a
  |
5 | factorial...

import Data.List

factorials = scanl1 (*) [1..]

factorial n = product [1..n]

digits' xs ys n
    | null ys = xs
    | otherwise = digits' (xs ++ [length nums]) (tail ys) rest
    where
        (nums, rest) = partition ((==) $ head ys) n

digits n = digits' [] ['0'..'9'] $ show n

main = interact $ show . head . (\ns -> filter ((ns==) . (digits . factorial)) [(head $ filter ((==) (sum ns) . length . show . factorial) [1..])..]) . map (read) . words

Test 1

Group: 1, 2, 3

Verdict: ACCEPTED

Test 2

Group: 1, 2, 3

Verdict: ACCEPTED

Test 3

Group: 1, 2, 3

Verdict: ACCEPTED

Test 4

Group: 1, 2, 3

Verdict: ACCEPTED

Test 5

Group: 1, 2, 3

Verdict: ACCEPTED

Test 6

Group: 1, 2, 3

Verdict: ACCEPTED

Test 7

Group: 2, 3

Verdict: ACCEPTED

Test 8

Group: 2, 3

Verdict: ACCEPTED

Test 9

Group: 2, 3

Verdict: ACCEPTED

Test 10

Group: 2, 3

Verdict: ACCEPTED

Test 11

Group: 3

Verdict: TIME LIMIT EXCEEDED

Test 12

Group: 3

Verdict: TIME LIMIT EXCEEDED

Test 13

Group: 3

Verdict: TIME LIMIT EXCEEDED

Test 14

Group: 3

Verdict: TIME LIMIT EXCEEDED

Test 15

Group: 3

Verdict: TIME LIMIT EXCEEDED

Test 16

Group: 3

Verdict: TIME LIMIT EXCEEDED