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

feature-random #1

Merged
bombinans merged 6 commits from feature-random into main 2025-12-24 03:23:53 +00:00
Conversation 0 Commits 6 Files Changed 8 +1 -1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 84d2c22974 - Show all commits

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