AP
Size: a a a
AP
AP
AP
insertWith (+) c 1
AP
AP
map ((,) <$> head <*> length) . group . sort
AP
AP
AP
AP
AA
> L.fold (L.groupBy id L.length) [True, False, True]
fromList [(False,1),(True,2)]
AP
> L.fold (L.groupBy id L.length) [True, False, True]
fromList [(False,1),(True,2)]
AA
AP
AP
A
AP
AP
AA
A
AP