bombinans/xmasTwelve
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed a bug with the ordinal words

Browse Source
This commit is contained in:
Mike Lynch 2025-12-24 14:21:40 +11:00
parent ac9ce4d959
commit 84d2c22974
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/Main.hs
View File

@ -139,5 +139,5 @@ main = do
let roffsets = randomOffsets gen allGifts let roffsets = randomOffsets gen allGifts
args <- getArgs args <- getArgs
let os = if (length args) > 0 then roffsets else offsets let os = if (length args) > 0 then roffsets else offsets
let tuples = zip ordinals $ selectGifts os let tuples = zip (reverse ordinals) $ selectGifts os
putStrLn $ foldr (\a b -> a ++ "\n\n" ++ b) "" $ reverse $ recurseVerse tuples putStrLn $ foldr (\a b -> a ++ "\n\n" ++ b) "" $ reverse $ recurseVerse tuples