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

sequences.extras: fix stack effect for filter-all-subseqs.

master
John Benediktsson 2020-09-28 12:30:15 -07:00
parent f2a40f88dc
commit 36b2ac97ef
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/sequences/extras/extras.factor
View File

@ -33,12 +33,12 @@ IN: sequences.extras
: map-like ( seq exemplar -- seq' ) : map-like ( seq exemplar -- seq' )
'[ _ like ] map ; inline '[ _ like ] map ; inline
: filter-all-subseqs-range ( ... seq range quot: ( ... subseq -- ... ) -- seq ) : filter-all-subseqs-range ( ... seq range quot: ( ... subseq -- ... ? ) -- seq )
[ [
'[ <clumps> _ filter ] with map concat '[ <clumps> _ filter ] with map concat
] keepdd map-like ; inline ] keepdd map-like ; inline
: filter-all-subseqs ( ... seq quot: ( ... subseq -- ... ) -- seq ) : filter-all-subseqs ( ... seq quot: ( ... subseq -- ... ? ) -- seq )
[ dup length [1,b] ] dip filter-all-subseqs-range ; inline [ dup length [1,b] ] dip filter-all-subseqs-range ; inline
:: longest-subseq ( seq1 seq2 -- subseq ) :: longest-subseq ( seq1 seq2 -- subseq )