Verify distribution uniformity/Naive: Difference between revisions

m (Simplified)
Line 788:
dice7()={
my(t);
while((t=dice5()*5+dice5()) > 2126,);
(t+2)\3-1
};
 
Line 815:
test(()->if(random(1000),random(1000),1), 10^5)</lang>
Output:
<pre>Flat with significance 10.0000000000000000002931867820813680387842134664085280183
 
### user error: Not flat enough, significance only 5.391077606003910233 E-3500006</pre>