Bittipeli

input/code.hs:13:1: Warning:
    Pattern match(es) are non-exhaustive
    In an equation for `makeMove': Patterns not matched: [] _

input/code.hs:13:13: Warning: Defined but not used: `b'

input/code.hs:25:69: Warning: Defined but not used: `c'

input/code.hs:31:1: Warning:
    Top-level binding with no type signature: main :: IO ()

input/code.hs:36:18: Warning:
    This binding for `solution' shadows the existing binding
      bound at input/code.hs:34:15

import Data.List
import Data.Char
import Data.Maybe

type Group = (Char, Int)
type State = [Group]
type Move = Int

isBig :: Group -> Bool
isBig (_, n) = n > 1

makeMove :: State -> Int -> State
makeMove (a:b:c:rest) 1 = ((fst a, snd a + snd c):rest)
makeMove (x:xs) n = (x:makeMove xs (n-1))

solve :: State -> Maybe [Move]
solve [] = Just []
solve [a] | isBig a   = Just [1]
          | otherwise = Nothing
solve [a, b] | isBig a && isBig b = Just [1, 1]
             | otherwise          = Nothing
solve state = case solutions of
  (solution:_) -> Just solution
  [] -> Nothing
  where solutions = map (\(c, m) -> ((c+1):fromJust m)) $ filter (\(c, m) -> isJust m) generatedSolutions
        generatedSolutions = [(c, solve $ makeMove state c) | c <- filter isBigPosition positions]
        positions = [1 .. (len - 2)]
        isBigPosition x = isBig (state!!x)
        len = length state

main = do line <- getLine
          let input = filter (not . isSpace) line
              state = map (\s -> (head s, length s)) $ group input
              solution = solve state
          case solution of
            Just solution ->
              putStrLn $ (show $ length solution) ++ "\n" ++ intercalate " " (map show $ solution)
            Nothing ->
              putStrLn "QAQ"

Test 1

Group: 1

Verdict: ACCEPTED

Test 2

Group: 1

Verdict: WRONG ANSWER

Test 3

Group: 1

Verdict: WRONG ANSWER

Test 4

Group: 1

Verdict: WRONG ANSWER

Test 5

Group: 1

Verdict: WRONG ANSWER

Test 6

Group: 1

Verdict: WRONG ANSWER

Test 7

Group: 1

Verdict: ACCEPTED

Test 8

Group: 1

Verdict: WRONG ANSWER

Test 9

Group: 1

Verdict: ACCEPTED

Test 10

Group: 1

Verdict: WRONG ANSWER

Test 11

Group: 1

Verdict: WRONG ANSWER

Test 12

Group: 1

Verdict: ACCEPTED

Test 13

Group: 1

Verdict: WRONG ANSWER

Test 14

Group: 1

Verdict: WRONG ANSWER

Test 15

Group: 1

Verdict: WRONG ANSWER

Test 16

Group: 1

Verdict: ACCEPTED

Test 17

Group: 1

Verdict: ACCEPTED

Test 18

Group: 1

Verdict: WRONG ANSWER

Test 19

Group: 1

Verdict: WRONG ANSWER

Test 20

Group: 1

Verdict: ACCEPTED

Test 21

Group: 2

Verdict: ACCEPTED

Test 22

Group: 2

Verdict: ACCEPTED

Test 23

Group: 2

Verdict: ACCEPTED

Test 24

Group: 2

Verdict: ACCEPTED

Test 25

Group: 2

Verdict: ACCEPTED

Test 26

Group: 2

Verdict: WRONG ANSWER

Test 27

Group: 2

Verdict: WRONG ANSWER

Test 28

Group: 2

Verdict: ACCEPTED

Test 29

Group: 2

Verdict: ACCEPTED

Test 30

Group: 2

Verdict: WRONG ANSWER

Test 31

Group: 2

Verdict: WRONG ANSWER

Test 32

Group: 2

Verdict: ACCEPTED

Test 33

Group: 2

Verdict: WRONG ANSWER

Test 34

Group: 2

Verdict: WRONG ANSWER

Test 35

Group: 2

Verdict: WRONG ANSWER

Test 36

Group: 2

Verdict: TIME LIMIT EXCEEDED

Test 37

Group: 2

Verdict: TIME LIMIT EXCEEDED

Test 38

Group: 2

Verdict: WRONG ANSWER

Test 39

Group: 2

Verdict: WRONG ANSWER

Test 40

Group: 2

Verdict: WRONG ANSWER

Test 41

Group: 3

Verdict: ACCEPTED

Test 42

Group: 3

Verdict: WRONG ANSWER

Test 43

Group: 3

Verdict: WRONG ANSWER

Test 44

Group: 3

Verdict: ACCEPTED

Test 45

Group: 3

Verdict: WRONG ANSWER

Test 46

Group: 3

Verdict: ACCEPTED

Test 47

Group: 3

Verdict: WRONG ANSWER

Test 48

Group: 3

Verdict: WRONG ANSWER

Test 49

Group: 3

Verdict: WRONG ANSWER

Test 50

Group: 3

Verdict: WRONG ANSWER

Test 51

Group: 3

Verdict: WRONG ANSWER

Test 52

Group: 3

Verdict: WRONG ANSWER

Test 53

Group: 3

Verdict: WRONG ANSWER

Test 54

Group: 3

Verdict: WRONG ANSWER

Test 55

Group: 3

Verdict: WRONG ANSWER

Test 56

Group: 3

Verdict: TIME LIMIT EXCEEDED

Test 57

Group: 3

Verdict: TIME LIMIT EXCEEDED

Test 58

Group: 3

Verdict: WRONG ANSWER

Test 59

Group: 3

Verdict: TIME LIMIT EXCEEDED

Test 60

Group: 3

Verdict: ACCEPTED

Test 61

Group: 4

Verdict: ACCEPTED

Test 62

Group: 4

Verdict: ACCEPTED

Test 63

Group: 4

Verdict: WRONG ANSWER

Test 64

Group: 4

Verdict: WRONG ANSWER

Test 65

Group: 4

Verdict: WRONG ANSWER

Test 66

Group: 4

Verdict: WRONG ANSWER

Test 67

Group: 4

Verdict: WRONG ANSWER

Test 68

Group: 4

Verdict: WRONG ANSWER

Test 69

Group: 4

Verdict: ACCEPTED

Test 70

Group: 4

Verdict: WRONG ANSWER

Test 71

Group: 4

Verdict: WRONG ANSWER

Test 72

Group: 4

Verdict: ACCEPTED

Test 73

Group: 4

Verdict: ACCEPTED

Test 74

Group: 4

Verdict: WRONG ANSWER

Test 75

Group: 4

Verdict: WRONG ANSWER

Test 76

Group: 4

Verdict: TIME LIMIT EXCEEDED

Test 77

Group: 4

Verdict: TIME LIMIT EXCEEDED

Test 78

Group: 4

Verdict: TIME LIMIT EXCEEDED

Test 79

Group: 4

Verdict: TIME LIMIT EXCEEDED

Test 80

Group: 4

Verdict: TIME LIMIT EXCEEDED