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

Reduce for conses

db4
James Cash 2008-06-02 14:13:48 -04:00
parent c65e299e8c
commit 25fa024898
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/lisp/conses/conses.factor
View File

@ -20,7 +20,12 @@ TUPLE: cons car cdr ;
<reversed> cons [ <car> swap >>cdr ] reduce ;
: (map-cons) ( acc cons quot -- seq )
over null? [ 2drop ] [ [ uncons ] dip [ call ] keep swapd [ suffix ] 2dip (map-cons) ] if ;
over null? [ 2drop ]
[ [ uncons ] dip [ call ] keep swapd [ suffix ] 2dip (map-cons) ] if ;
: map-cons ( cons quot -- seq )
[ { } clone ] 2dip (map-cons) ;
[ { } clone ] 2dip (map-cons) ;
: reduce-cons ( cons identity quot -- result )
pick null? [ drop nip ]
[ [ uncons ] 2dip swapd [ call ] keep reduce-cons ] if ;