Data update

Task/21-game/YAMLScript/21-game.ys

@@ -0,0 +1,31 @@
+!YS-v0
+
+players =: qw(A B):cycle.drop(rand-int(2))
+
+defn main():
+  say: |
+    --------------------
+    Welcome to 21 Game
+    --------------------
+
+  loop turn 0 total 0:
+    say: "Running total: $total"
+    say: "Player $(players.$turn)'s turn"
+    total +=: get-num(total)
+    say:
+    when total == 21:
+      say: |
+        Running total is 21. Player $(players.$turn) won!
+      exit: 0
+    recur: turn.++ total
+
+defn get-num(total):
+  print: 'Enter a number (1,2,3): '
+  val =: read-line()
+  condf val:
+    nil?: exit()
+    \(/[1-3]/):
+      if (total + val:N) > 21:
+        recur()
+        val
+    else: recur()