From 3f25036fdc2bed7e97ae5fa05da104fb1d9a8bde Mon Sep 17 00:00:00 2001
From: Michael Adams <unquietwiki@gmail.com>
Date: Sat, 5 Aug 2023 01:49:11 -0700
Subject: [PATCH] Fix random logic in Nim ports

---
 00_Alternate_Languages/01_Acey_Ducey/nim/aceyducey.nim | 2 ++
 00_Alternate_Languages/05_Bagels/nim/bagels.nim        | 2 ++
 00_Alternate_Languages/29_Craps/nim/craps.nim          | 2 ++
 00_Alternate_Languages/33_Dice/nim/dice.nim            | 2 ++
 00_Alternate_Languages/91_Train/nim/train.nim          | 5 +++--
 5 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/00_Alternate_Languages/01_Acey_Ducey/nim/aceyducey.nim b/00_Alternate_Languages/01_Acey_Ducey/nim/aceyducey.nim
index ed180de4..a980ed5d 100644
--- a/00_Alternate_Languages/01_Acey_Ducey/nim/aceyducey.nim
+++ b/00_Alternate_Languages/01_Acey_Ducey/nim/aceyducey.nim
@@ -4,6 +4,8 @@ var
   bet, cardA, cardB, cardC, stash: int
   retry: bool = true
 
+randomize() # Seed the random number generator
+
 proc printGreeting() =
   echo spaces(26),"ACEY DUCEY CARD GAME"
   echo spaces(15),"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
diff --git a/00_Alternate_Languages/05_Bagels/nim/bagels.nim b/00_Alternate_Languages/05_Bagels/nim/bagels.nim
index dd260e3d..f302b375 100644
--- a/00_Alternate_Languages/05_Bagels/nim/bagels.nim
+++ b/00_Alternate_Languages/05_Bagels/nim/bagels.nim
@@ -10,6 +10,8 @@ var
   prompt: string
   stillplaying: bool = true
 
+randomize() # Seed the random number generator
+
 # Seed 3 unique random numbers; indicate if they're all unique
 proc genSeed(): bool =
   for i in 1..3:
diff --git a/00_Alternate_Languages/29_Craps/nim/craps.nim b/00_Alternate_Languages/29_Craps/nim/craps.nim
index 133ee590..770b6c0e 100644
--- a/00_Alternate_Languages/29_Craps/nim/craps.nim
+++ b/00_Alternate_Languages/29_Craps/nim/craps.nim
@@ -4,6 +4,8 @@ var
   wager, winnings, rollResult: int
   stillplaying: bool = true
 
+randomize() # Seed the random number generator
+
 proc tryAgain(): bool =
   echo "WANT TO PLAY AGAIN? (YES OR NO)"
   var answer = readLine(stdin).normalize()
diff --git a/00_Alternate_Languages/33_Dice/nim/dice.nim b/00_Alternate_Languages/33_Dice/nim/dice.nim
index f19903a1..6564ae9b 100644
--- a/00_Alternate_Languages/33_Dice/nim/dice.nim
+++ b/00_Alternate_Languages/33_Dice/nim/dice.nim
@@ -6,6 +6,8 @@ var
   z: string
   retry: bool = true
 
+randomize() # Seed the random number generator
+
 echo spaces(34), "DICE"
 echo spaces(15), "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
 echo "\n"
diff --git a/00_Alternate_Languages/91_Train/nim/train.nim b/00_Alternate_Languages/91_Train/nim/train.nim
index 062e6dd1..aa92c1a7 100644
--- a/00_Alternate_Languages/91_Train/nim/train.nim
+++ b/00_Alternate_Languages/91_Train/nim/train.nim
@@ -4,10 +4,11 @@ var
   carSpeed, diff, err, guess, trainSpeed, carTime: int
   stillplaying: bool = true
 
+randomize() # Seed the random number generator
+
 # Return a tuple that'll be carSpeed, diff, trainSpeed
 proc randomNumbers(): (int,int,int) =
-  randomize()
-  result = (rand(1..25)+40 , rand(1..15)+5 , rand(1..19)+20)
+  result = (rand(41..65), rand(6..20), rand(21..39))
 
 # Do we want to play again?
 proc tryAgain(): bool =