sequences.extras: adding pad-longest.

diff --git a/extra/sequences/extras/extras-tests.factor b/extra/sequences/extras/extras-tests.factor
index 2a404ff892522ee149cc791760053c1b607c9f94..8a1b9a1c989d441b70a0316c1b0c8c5e3f672b5a 100644 (file)
--- a/extra/sequences/extras/extras-tests.factor
+++ b/extra/sequences/extras/extras-tests.factor
@@ -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
+

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index ccf41154fa18f03b916a40bb7c1877cd634b5188..200a82f8f80381407cdffa2507c0ad46908f8fd7 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -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@ ;