Dice game probabilities: Difference between revisions

Content deleted Content added

Inline

@@ Line 1,257: / Line 1,257: @@
 tbd</pre>
 ===tbd===
+<lang rexx>oid='diet.xxx'; 'erase' oid
-{{incorrect|REXX| <br> This version isn't Classic REXX, it uses non-ASCII constructs. <br>  Please use Classic REXX syntax. <br>}}
-<lang rexx>oid='diet.xxx'; Call sysFileDelete oid
 Call test '9  4 6 6'
 Call test '5 10 6 7'
@@ Line 1,270: / Line 1,268: @@
 cnt2.=0
 win.=0
-nn=100000
+nn=10000
 Call time 'R'
 Do i=1 To nn
-  sum1=sum(n1 s1) ; cnt1.sum1+=1
+  sum1=sum(n1 s1) ; cnt1.sum1=cnt1.sum1+1
-  sum2=sum(n2 s2) ; cnt2.sum2+=1
+  sum2=sum(n2 s2) ; cnt2.sum2=cnt2.sum2+1
   Select
-    When sum1>sum2 Then win.1+=1
+    When sum1>sum2 Then win.1=win.1+1
-    When sum1<sum2 Then win.2+=1
+    When sum1<sum2 Then win.2=win.2+1
-    Otherwise           win.0+=1
+    Otherwise           win.0=win.0+1
     End
   End
@@ Line 1,290: / Line 1,288: @@
 */
 Call o time('E') 'seconds elapsed'
 Return
 sum: Parse Arg n s
 sum=0
 Do k=1 To n
-  sum+=rand(s)
+  sum=sum+rand(s)
   End
 Return sum