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

grouping.extras: adding map-as versions.

db4
John Benediktsson 2013-09-23 17:23:08 -07:00
parent 8e800ba02e
commit eb582e4bbd
1 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
extra/grouping/extras/extras.factor
View File

@ -3,17 +3,26 @@ sequences sequences.generalizations sequences.private ;
IN: grouping.extras IN: grouping.extras
: 2clump-map ( seq quot: ( elt1 elt2 -- newelt ) -- seq' ) : 2clump-map-as ( seq quot: ( elt1 elt2 -- newelt ) exemplar -- seq' )
[ dup 1 short tail-slice ] dip { } 2map-as ; inline [ dup 1 short tail-slice ] 2dip 2map-as ; inline
: 3clump-map ( seq quot: ( elt1 elt2 elt3 -- newelt ) -- seq' ) : 2clump-map ( seq quot: ( elt1 elt2 -- newelt ) -- seq' )
{ } 2clump-map-as ; inline
: 3clump-map-as ( seq quot: ( elt1 elt2 elt3 -- newelt ) exemplar -- seq' )
[ [
dup [ 1 short tail-slice ] [ 2 short tail-slice ] bi dup [ 1 short tail-slice ] [ 2 short tail-slice ] bi
] dip { } 3map-as ; inline ] 2dip 3map-as ; inline
MACRO: nclump-map ( seq quot n -- result ) : 3clump-map ( seq quot: ( elt1 elt2 elt3 -- newelt ) -- seq' )
[ [1,b) [ [ short tail-slice ] curry ] map swap ] keep { } 3clump-map-as ; inline
'[ _ dup _ cleave _ { } _ nmap-as ] ;
MACRO: nclump-map-as ( seq quot exemplar n -- result )
[ nip [1,b) [ [ short tail-slice ] curry ] map swap ] 2keep
'[ _ dup _ cleave _ _ _ nmap-as ] ;
: nclump-map ( seq quot n -- result )
{ } swap nclump-map-as ; inline
TUPLE: head-clumps seq ; TUPLE: head-clumps seq ;
C: <head-clumps> head-clumps C: <head-clumps> head-clumps