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

remove random intervals for now

db4
Doug Coleman 2008-10-05 15:14:18 -05:00
parent fad3d52bc1
commit 4e88005bf4
1 changed files with 0 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
basis/math/intervals/intervals.factor
View File

@ -397,37 +397,3 @@ SYMBOL: incomparable
[ to>> first2 [ 1- ] unless ]
bi [a,b]
] unless ;
<PRIVATE
: open-left? ( interval -- ? ) from>> second not ;
: open-right? ( interval -- ? ) to>> second not ;
: integral-interval? ( interval -- ? )
[ from>> ] [ to>> ] bi [ first integer? ] both? ;
PRIVATE>
ERROR: empty-random-interval ;
: random-interval-integer ( interval -- n )
[ [ to>> first ] [ open-right? [ 1- ] when ] bi ]
[
[ from>> first ]
[ open-left? [ 1+ ] when ] bi
tuck - 1+ random +
] bi ;
: random-interval-float ( interval -- x )
[ [ from>> first ] [ open-left? [ epsilon + ] when ] bi ]
[ [ to>> first ] [ open-right? [ epsilon - ] when ] bi ] bi
epsilon <range> random [ empty-random-interval ] unless* ;
M: interval random ( interval -- x )
dup empty-interval = [ empty-random-interval ] when
dup integral-interval? [
random-interval-integer
] [
random-interval-float
] if ;