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

math.combinators: adding unless-positive and unless-negative.

db4
John Benediktsson 2013-05-06 08:45:29 -07:00
parent bd8cc0a5f1
commit 62d79dd125
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/math/combinators/combinators.factor
View File

@ -9,8 +9,14 @@ IN: math.combinators
: if-positive ( ..a n true: ( ..a n -- ..b ) false: ( ..a n -- ..b ) -- ..b ) : if-positive ( ..a n true: ( ..a n -- ..b ) false: ( ..a n -- ..b ) -- ..b )
[ dup 0 > ] 2dip if ; inline [ dup 0 > ] 2dip if ; inline
: when-negative ( ..a n true: ( ..a n -- ..b ) -- ..b ) : when-negative ( ..a n quot: ( ..a n -- ..b ) -- ..b )
[ ] if-negative ; inline [ ] if-negative ; inline
: when-positive ( ..a n true: ( ..a n -- ..b ) -- ..b ) : when-positive ( ..a n quot: ( ..a n -- ..b ) -- ..b )
[ ] if-positive ; inline [ ] if-positive ; inline
: unless-negative ( ..a n quot: ( ..a n -- ..b ) -- ..b )
[ ] swap if-negative ; inline
: unless-positive ( ..a n quot: ( ..a n -- ..b ) -- ..b )
[ ] swap if-positive ; inline