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