Wordle comparison: Difference between revisions

Content added Content deleted
(→‎{{header|Python}}: Added a version in Python)
(→‎{{header|Haskell}}: Updated output to include integer scores)
Line 184: Line 184:
main :: IO ()
main :: IO ()
main = do
main = do
putStrLn $ intercalate " -> " ["Target", "Guess", "Score"]
putStrLn $ intercalate " -> " ["Target", "Guess", "Scores"]
putStrLn []
putStrLn []
mapM_ (either putStrLn putStrLn) $
mapM_ (either putStrLn putStrLn) $
Line 207: Line 207:
Left (guess <> ": Expected 5 character guess.")
Left (guess <> ": Expected 5 character guess.")
| otherwise =
| otherwise =
let scores = wordleScore target guess
Right
( intercalate
in Right
" -> "
( intercalate
[ target,
" -> "
guess,
[ target,
unwords (color <$> wordleScore target guess)
guess,
]
show scores,
)
unwords (color <$> scores)
]
)


color 2 = "green"
color 2 = "green"
Line 220: Line 222:
color _ = "gray"</lang>
color _ = "gray"</lang>
{{Out}}
{{Out}}
<pre>Target -> Guess -> Score
<pre>Target -> Guess -> Scores


ALLOW -> LOLLY -> amber amber green gray gray
ALLOW -> LOLLY -> [1,1,2,0,0] -> amber amber green gray gray
CHANT -> LATTE -> gray amber amber gray gray
CHANT -> LATTE -> [0,1,1,0,0] -> gray amber amber gray gray
ROBIN -> ALERT -> gray gray gray amber gray
ROBIN -> ALERT -> [0,0,0,1,0] -> gray gray gray amber gray
ROBIN -> SONIC -> gray green amber green gray
ROBIN -> SONIC -> [0,2,1,2,0] -> gray green amber green gray
ROBIN -> ROBIN -> green green green green green
ROBIN -> ROBIN -> [2,2,2,2,2] -> green green green green green
BULLY -> LOLLY -> gray gray green green green
BULLY -> LOLLY -> [0,0,2,2,2] -> gray gray green green green
ADAPT -> SÅLÅD -> gray gray gray gray amber
ADAPT -> SÅLÅD -> [0,0,0,0,1] -> gray gray gray gray amber
Ukraine: Expected 5 character target.
Ukraine: Expected 5 character target.
BBBBBAA: Expected 5 character guess.
BBBBBAA: Expected 5 character guess.