Anonymous user
Seven-sided dice from five-sided dice: Difference between revisions
Seven-sided dice from five-sided dice (view source)
Revision as of 03:50, 11 April 2014
, 10 years agoAdded zkl
(Added zkl) |
|||
Line 1,369:
dice7 = j mod 7 + 1
end function</lang>
=={{header|zkl}}==
<lang zkl>var die5=(1).random.fp(6); // [1..5]
fcn die7{ while((r := 5*die5() + die5()) >= 27){} r/3-1 }
fcn rtest(N){ //test spread over [0..9]
dist:=L(0,0,0,0,0,0,0,0,0,0);
do(N){n:=die7(); dist[n]=dist[n]+1}
sum:=dist.sum();
dist=dist.apply('wrap(n){"%.2f%%".fmt(n.toFloat()/sum*100)}).println();
}
println("Looking for ",100.0/7,"%");
rtest(0d1_000_000);</lang>
{{out}}
<pre>
Looking for 14.2857%
L("0.00%","14.28%","14.36%","14.22%","14.26%","14.34%","14.33%","14.21%","0.00%","0.00%")
</pre>
| |||