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

sequences.extras: adding subseq-as.

db4
John Benediktsson 2013-04-25 20:38:07 -07:00
parent 74460b548b
commit 17415b3525
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/sequences/extras/extras-tests.factor
View File

@ -15,6 +15,8 @@ IN: sequences.extras.tests
[ { "a" "ab" "abc" "abcd" "b" "bc" "bcd" "c" "cd" "d" } ]
[ [ "abcd" [ , ] each-subseq ] { } make ] unit-test
{ B{ 115 } } [ 1 2 "asdf" B{ } subseq-as ] unit-test
[ "" ] [ "abc" "def" longest-subseq ] unit-test
[ "abcd" ] [ "abcd" "abcde" longest-subseq ] unit-test
[ "foo" ] [ "foo" "foobar" longest-subseq ] unit-test

3
extra/sequences/extras/extras.factor
View File

@ -44,6 +44,9 @@ IN: sequences.extras
] each
] each ;
: subseq-as ( from to seq exemplar -- subseq )
[ check-slice subseq>copy (copy) ] dip like ;
: map-like ( seq exemplar -- seq' )
'[ _ like ] map ; inline