Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Seven-sided-dice-from-five-sided-dice/VBScript/seven-sided-dice-from-five-sided-dice.vb
+++ b/Task/Seven-sided-dice-from-five-sided-dice/VBScript/seven-sided-dice-from-five-sided-dice.vb
@ -0,0 +1,13 @@
+Option Explicit
+
+function dice5
+	dice5 = int(rnd*5) + 1
+end function
+
+function dice7
+	dim j
+	do
+		j = 5 * dice5 + dice5 - 6
+	loop until j < 21
+	dice7 = j mod 7 + 1
+end function