Percolation/Bond percolation: Difference between revisions

m
(Added 11l)
Line 29:
<lang 11l>UInt32 seed = 0
F nonrandom()
:seed = (1664525 * :seed + 1013904223) [&] FFFF'FFFF
R Int(:seed >> 16) / Float(FF'FF)
 
1,481

edits