From 2d3ebc98a3dcd101e1066e084a99a61a1e74068a Mon Sep 17 00:00:00 2001
From: Michael Adams <unquietwiki@gmail.com>
Date: Fri, 4 Aug 2023 23:01:38 -0700
Subject: [PATCH] Port Train to Nim

---
 00_Alternate_Languages/91_Train/nim/train.nim | 37 +++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 00_Alternate_Languages/91_Train/nim/train.nim

diff --git a/00_Alternate_Languages/91_Train/nim/train.nim b/00_Alternate_Languages/91_Train/nim/train.nim
new file mode 100644
index 00000000..062e6dd1
--- /dev/null
+++ b/00_Alternate_Languages/91_Train/nim/train.nim
@@ -0,0 +1,37 @@
+import std/[random,strutils]
+
+var
+  carSpeed, diff, err, guess, trainSpeed, carTime: int
+  stillplaying: bool = true
+
+# 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)
+
+# Do we want to play again?
+proc tryAgain(): bool =
+  echo "ANOTHER PROBLEM (YES OR NO)"
+  var answer = readLine(stdin).normalize()
+  result = (answer == "y") or (answer == "yes")
+
+echo spaces(33), "TRAIN"
+echo spaces(15), "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+echo "\n"
+echo "TIME - SPEED DISTANCE EXERCISE"
+
+while stillplaying:
+  echo ""
+  (carSpeed, diff, trainSpeed) = randomNumbers() # Get random numbers for prompt
+  echo "A CAR TRAVELING ", carSpeed, " MPH CAN MAKE A CERTAIN TRIP IN"
+  echo diff, " HOURS LESS THAN A TRAIN TRAVELING AT ", trainSpeed, " MPH."
+  echo "HOW LONG DOES THE TRIP TAKE BY CAR?"
+  guess = readLine(stdin).parseInt() # Get guess
+  carTime = (diff * trainSpeed / (carSpeed - trainSpeed)).toInt() # Calculate answer
+  err = (((carTime - guess) * 100) / guess).toInt().abs() # Calculate error to an absolute value
+  if err > 5: # Error within 5%?
+    echo "SORRY.  YOU WERE OFF BY ", err, " PERCENT."
+  else:
+    echo "GOOD! ANSWER WITHIN ", err, " PERCENT."
+  echo "CORRECT ANSWER IS ", carTime, " HOURS."
+  stillplaying = tryAgain()