steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/math/ranges/ranges.factor
View File

@ -45,3 +45,5 @@ PRIVATE>
: [1,b] ( b -- range ) 1 swap [a,b] ; inline : [1,b] ( b -- range ) 1 swap [a,b] ; inline
: [0,b) ( b -- range ) 0 swap [a,b) ; inline : [0,b) ( b -- range ) 0 swap [a,b) ; inline
: [1,b) ( b -- range ) 1 swap [a,b) ; inline

2
basis/random/sfmt/sfmt.factor
View File

@ -111,7 +111,7 @@ M:: sfmt generate ( sfmt -- )
: <sfmt-array> ( sfmt -- uint-array uint-4-array ) : <sfmt-array> ( sfmt -- uint-array uint-4-array )
state>> state>>
[ n>> 4 * 1 swap [a,b] >uint-array ] [ seed>> ] bi [ n>> 4 * [1,b] >uint-array ] [ seed>> ] bi
[ [
[ [
[ -30 shift ] [ ] bi bitxor [ -30 shift ] [ ] bi bitxor