Add [1,b) to math.ranges. Use [1,b] in random.sfmt

db4
Doug Coleman 2010-01-31 14:46:20 -06:00
parent 28adde8542
commit 4a7845e52c
2 changed files with 3 additions and 1 deletions

View File

@ -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

View File

@ -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