From 097326210c38aadc58f7184e4e9f5324a549cbee Mon Sep 17 00:00:00 2001 From: "Jill \"oatmealine\" Monoids" Date: Thu, 13 Jan 2022 10:24:11 +0300 Subject: [PATCH] wrap around the word list for daily wordles --- app/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/app/Main.hs b/app/Main.hs index ebbf540..f2152a0 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -168,7 +168,7 @@ main = do c <- getCurrentTime let day = round (diffUTCTime c startDate / nominalDay) 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 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)