5 lines
128 B
Haskell
5 lines
128 B
Haskell
|
import Data.Map (fromListWith, toList)
|
||
|
|
|
||
|
|
main =
|
||
|
|
mapM_ print (toList (fromListWith (+) (flip (,) 1 <$> filter (' ' /=) crypt)))
|