Pseudo-random numbers/Splitmix64: Difference between revisions
Content added Content deleted
(Add Factor) |
m (→{{header|Factor}}: use 2^ instead of ^) |
||
| Line 131: | Line 131: | ||
[ [ dupd shift bitxor ] dip * 64 bits ] 2tri@ ; |
[ [ dupd shift bitxor ] dip * 64 bits ] 2tri@ ; |
||
: next-float ( -- x ) next-int |
: next-float ( -- x ) next-int 64 2^ /f ; |
||
! Test next-int |
! Test next-int |
||