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

random: adding (random-unit) for convenience.

db4
John Benediktsson 2013-03-01 09:27:20 -08:00
parent c0f5bc8391
commit 5094a7f460
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/random/random.factor
View File

@ -140,11 +140,18 @@ PRIVATE>
M: float random [ f ] [ 0.0 swap uniform-random-float ] if-zero ; M: float random [ f ] [ 0.0 swap uniform-random-float ] if-zero ;
<PRIVATE
: (random-unit) ( obj -- n )
[ 0.0 1.0 ] dip (uniform-random-float) ; inline
PRIVATE>
: random-unit ( -- n ) : random-unit ( -- n )
0.0 1.0 uniform-random-float ; inline random-generator get (random-unit) ; inline
: random-units ( length -- sequence ) : random-units ( length -- sequence )
random-generator get '[ 0.0 1.0 _ (uniform-random-float) ] replicate ; random-generator get '[ _ (random-unit) ] replicate ;
: random-integers ( length n -- sequence ) : random-integers ( length n -- sequence )
random-generator get '[ _ _ (random-integer) ] replicate ; random-generator get '[ _ _ (random-integer) ] replicate ;