Wordle comparison: Difference between revisions
m
→{{header|Haskell}}
(→{{header|Haskell}}: Added a version in Haskell.) |
|||
Line 163:
amber
(charCounts residue)
(zip
green :: String -> (Char, Char) -> (String, Int)
Line 170:
| otherwise = (t : residue, 0)
amber :: Tally -> (
amber tally (
amber tally (
| 0 < fromMaybe 0 (M.lookup c tally) =
(M.adjust pred c tally, 1)
|