Seven-sided dice from five-sided dice: Difference between revisions
Content added Content deleted
(Added zkl) |
|||
Line 1,369: | Line 1,369: | ||
dice7 = j mod 7 + 1 |
dice7 = j mod 7 + 1 |
||
end function</lang> |
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> |