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

sequences.extras: adding pad-longest.

db4
John Benediktsson 2012-04-15 10:32:45 -07:00
parent c6bd2313ba
commit 33ae12ed1e
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -21,3 +21,10 @@ IN: sequences.extras.tests
[ "abcd" ] [ "abcd" "abcde" longest-subseq ] unit-test
[ "foo" ] [ "foo" "foobar" longest-subseq ] unit-test
[ "foo" ] [ "foobar" "foo" longest-subseq ] unit-test
[ "" "" ] [ "" "" CHAR: ? pad-longest ] unit-test
[ "abc" "def" ] [ "abc" "def" CHAR: ? pad-longest ] unit-test
[ " " "abc" ] [ "" "abc" CHAR: \s pad-longest ] unit-test
[ "abc" " " ] [ "abc" "" CHAR: \s pad-longest ] unit-test
[ "abc..." "foobar" ] [ "abc" "foobar" CHAR: . pad-longest ] unit-test

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

@ -66,3 +66,5 @@ IN: sequences.extras
] each
] each end n - end seq1 subseq ;
: pad-longest ( seq1 seq2 elt -- seq1 seq2 )
[ 2dup max-length ] dip [ pad-tail ] 2curry bi@ ;