Sanalista

input/code.hs:4:21: warning: [-Wtype-defaults]
    * Defaulting the following constraints to type `Integer'
        (Eq a0) arising from a use of `==' at input/code.hs:4:21-208
        (Num a0) arising from the literal `0' at input/code.hs:4:21
        (Integral a0) arising from a use of `mod' at input/code.hs:4:33-35
    * In the expression:
        0 ==
            ((flip mod) 2
               $ snd
                   $ foldl
                       (\ (prev, count) char
                          -> if prev /= char && mod count 2 /= 0 then
                                 (prev, count)
                             else
                                 if prev /= char then (char, 1) else (char, count + 1))
                       ('a', 0)
                       string)
      In an equation for `parillinen':
          parillinen string
            = 0 ==
                  ((flip mod) 2
                     $ snd
                         $ foldl
                             (\ (prev, cou...

import Data.List

parillinen :: String -> Bool
parillinen string = 0 == ((flip mod) 2 $ snd $ foldl (\(prev, count) char -> if prev /= char && mod count 2 /= 0 then (prev, count) else if prev /= char then (char, 1) else (char, count + 1)) ('a', 0) string)

main = do
    input <- getContents
    print $ length $ filter parillinen $ map sort $ tail $ lines input

Test 1

Verdict: ACCEPTED

Test 2

Verdict: ACCEPTED

Test 3

Verdict: ACCEPTED