#Mathematica, 32 / 15 = 2.133
Mathematica, 32 / 15 = 2.133
x=3;Mod[x=Mod[x^2,28!-67],2^32]&
A straightforward implementation of BBS.
Binary file generated with:
f = %; (* assigns anonymous function declared in the previous expression to f *)
Export["random.bin", Array[f, 2^22], "UnsignedInteger32"];
Summary of results:
1. BIRTHDAY SPACINGS TEST .684805
2. OVERLAPPING 5-PERMUTATION TEST .757608/.455899
3. BINARY RANK TEST .369264/.634256
4. BINARY RANK TEST .838396
5. THE BITSTREAM TEST (no summary p-value)
6. OPSO, OQSO and DNA (no summary p-value)
7. COUNT-THE-1's TEST .649382/.831761
8. COUNT-THE-1's TEST (no summary p-value)
9. PARKING LOT TEST .266079
10. MINIMUM DISTANCE TEST .493300
11. 3DSPHERES TEST .492809
12. SQEEZE .701241
13. OVERLAPPING SUMS test .274531
14. RUNS test .074944/.396186/.825835/.742302
15. CRAPS TEST .403090/.403088/.277389