platonic=: 4 6 8 12 20
sumtoss=: 13 :'+/ 1 + ? y $ platonic'
(#,{.)/.~ sumtoss&500"0 i.200
2 2713
1 2853
2 2792
2 2804
3 2698
1 2643
1 2752
1 2757
1 2837
1 2868
...
Theoretical mean value of one toss:
-: +/ +/ 100 * 1 1 1 1 1,: platonic
2750
Empirically obtained with a simulation run:
(+/%#) sumtoss&500"0 i.200
2749.46
--
Met vriendelijke groet,
@@i=Arie Groeneveld
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
