Make combine and tweak menus servicable

2021-12-04 00:27:22 +00:00
parent ecbc8eab35
commit 0114a2f9f2
14 changed files with 208 additions and 175 deletions
@@ -14,4 +14,4 @@ powlist :: [a] -> [[a]]
 powlist = filterM (const [True,False])

 toMultiset :: Ord a => [a] -> M.Map a Int
-toMultiset = foldr (uncurry $ M.insertWith (+)) M.empty . map (,1)
+toMultiset = foldr (uncurry (M.insertWith (+)) . (, 1)) M.empty