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

Declared sigma and count to be inline

db4
Aaron Schaefer 2007-12-23 22:20:57 -05:00
parent a66f7672dc
commit fc403b373b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/combinators/lib/lib.factor
View File

@ -72,9 +72,9 @@ MACRO: nfirst ( n -- )
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: sigma ( seq quot -- n ) [ rot slip + ] curry 0 swap reduce ;
: sigma ( seq quot -- n ) [ rot slip + ] curry 0 swap reduce ; inline
: count ( seq quot -- n ) [ 1 0 ? ] compose sigma ;
: count ( seq quot -- n ) [ 1 0 ? ] compose sigma ; inline
: all-unique? ( seq -- ? ) [ prune ] keep [ length ] 2apply = ;