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

sequences.generalizations: use concat-as in nappend-as.

db4
John Benediktsson 2015-06-06 09:25:58 -07:00
parent d07564532d
commit 5904690ae6
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/sequences/generalizations/generalizations.factor
View File

@ -5,8 +5,7 @@ memoize.private generalizations ;
IN: sequences.generalizations IN: sequences.generalizations
MACRO: nsequence ( n seq -- ) MACRO: nsequence ( n seq -- )
[ [nsequence] ] keep [ [nsequence] ] keep '[ @ _ like ] ;
'[ @ _ like ] ;
MACRO: narray ( n -- ) MACRO: narray ( n -- )
'[ _ { } nsequence ] ; '[ _ { } nsequence ] ;
@ -36,7 +35,7 @@ MACRO: set-firstn ( n -- )
: nappend ( n -- seq ) narray concat ; inline : nappend ( n -- seq ) narray concat ; inline
: nappend-as ( n exemplar -- seq ) : nappend-as ( n exemplar -- seq )
[ nappend ] dip like ; inline [ narray ] [ concat-as ] bi* ; inline
MACRO: nmin-length ( n -- ) MACRO: nmin-length ( n -- )
dup 1 - [ min ] n*quot dup 1 - [ min ] n*quot