all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 additions and 0 deletions
--- a/Task/Seven-sided-dice-from-five-sided-dice/VBScript/seven-sided-dice-from-five-sided-dice.vbscript
+++ b/Task/Seven-sided-dice-from-five-sided-dice/VBScript/seven-sided-dice-from-five-sided-dice.vbscript
@ -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