wrap around the word list for daily wordles
This commit is contained in:
parent
0e8a24d465
commit
097326210c
|
@ -168,7 +168,7 @@ main = do
|
||||||
c <- getCurrentTime
|
c <- getCurrentTime
|
||||||
let day = round (diffUTCTime c startDate / nominalDay)
|
let day = round (diffUTCTime c startDate / nominalDay)
|
||||||
putStrLn $ "wordle " ++ show day ++ "\n"
|
putStrLn $ "wordle " ++ show day ++ "\n"
|
||||||
getWord (T.unpack $ randomWords !! day) 1 (map T.unpack validWords)
|
getWord (T.unpack $ randomWords !! (day `mod` length randomWords)) 1 (map T.unpack validWords)
|
||||||
else do
|
else do
|
||||||
putStrLn "now you give it a try!\n"
|
putStrLn "now you give it a try!\n"
|
||||||
let randWord = map toLower $ getRandomElem g $ filter (\x -> length x == 5 && '\'' `notElem` x) (map T.unpack randomWords)
|
let randWord = map toLower $ getRandomElem g $ filter (\x -> length x == 5 && '\'' `notElem` x) (map T.unpack randomWords)
|
||||||
|
|
Loading…
Reference in New Issue