10 lines
191 B
Haskell
10 lines
191 B
Haskell
|
solution :: String -> Int
|
||
|
|
solution = length
|
||
|
|
. filter id
|
||
|
|
. map (not . (\x -> (x==6) || (x==5)) . length)
|
||
|
|
. concatMap (drop 11)
|
||
|
|
. map words
|
||
|
|
. lines
|
||
|
|
|
||
|
|
main = interact $ show . solution
|