Seven-sided dice from five-sided dice: Difference between revisions

Seven-sided dice from five-sided dice (view source)

44 bytes removed , 10 years ago

→‎{{header|Julia}}: fixed dice7() to ensure uniform distribution of results; added histogram checks

Anonymous user

Revision as of 08:05, 10 May 2014 (view source) rosettacode>Paddy3118 (→‎{{header\|Julia}}: Marked incomplete as missing check for at least 1000000) ← Older edit		Revision as of 01:24, 19 May 2014 (view source) rosettacode>Kinotix (→‎{{header\|Julia}}: fixed dice7() to ensure uniform distribution of results; added histogram checks) Newer edit →
Line 960: =={{header\|Julia}}== ~~{{incomplete\|Julia\|Missing check for at least 1000000}}~~ <lang Julia>dice5() = rand(1:5) function dice7() r = ~~int((~~5*dice5() +~~5dice5~~ dice5() -~~3)/3)~~ 6 r < 21 ? (r>%7 ?+ ~~dice7(~~1) : rdice7() end</lang> {{Out}} <pre>julia> ~~show~~hist([dice5() for i=1:2010^6]) (0:1:5,[199932,200431,199969,199925,199743]) ~~[1,4,3,2,4,1,1,5,4,2,3,5,5,3,2,4,2,4,4,2]~~ julia> ~~show~~hist([dice7() for i=1:2010^6]) (0:1:7,[142390,143032,142837,142999,142800,142642,143300])</pre> ~~[3,2,6,7,5,6,4,4,6,6,7,2,6,3,2,7,5,2,1,3]</pre>~~ =={{header\|Lua}}==