Add [1,b) to math.ranges. Use [1,b] in random.sfmt
parent
28adde8542
commit
4a7845e52c
|
@ -45,3 +45,5 @@ PRIVATE>
|
|||
: [1,b] ( b -- range ) 1 swap [a,b] ; inline
|
||||
|
||||
: [0,b) ( b -- range ) 0 swap [a,b) ; inline
|
||||
|
||||
: [1,b) ( b -- range ) 1 swap [a,b) ; inline
|
||||
|
|
|
@ -111,7 +111,7 @@ M:: sfmt generate ( sfmt -- )
|
|||
|
||||
: <sfmt-array> ( sfmt -- uint-array uint-4-array )
|
||||
state>>
|
||||
[ n>> 4 * 1 swap [a,b] >uint-array ] [ seed>> ] bi
|
||||
[ n>> 4 * [1,b] >uint-array ] [ seed>> ] bi
|
||||
[
|
||||
[
|
||||
[ -30 shift ] [ ] bi bitxor
|
||||
|
|
Loading…
Reference in New Issue