wordcnt = map (liftM2 (,) head length) . group . sort . words
한줄로 가능
liftM2 쓰려면 Control.Monad 임포트 해야하니 두줄 수고
import는 Data.List도 필요해서 세 줄.
liftM2 (,) head length 는 λxs -> (head xs, length xs) 를 포인트 프리로 쓴거라
liftM2 쓰려면 Control.Monad 임포트 해야하니 두줄 수고
import는 Data.List도 필요해서 세 줄.
liftM2 (,) head length 는 λxs -> (head xs, length xs) 를 포인트 프리로 쓴거라