sequences.extras: add mismatch-last

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 97bf7cd5dc1209a6e0eca04b53b3095411ed1f41..775c84f225607467bab8997f38038935124b7787 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -52,6 +52,9 @@ IN: sequences.extras
         ] each
     ] each end n - end seq1 subseq ;
 
+: mismatch-last ( seq1 seq2 -- i-back )
+    [ <reversed> ] bi@ mismatch ; inline
+
 : pad-longest ( seq1 seq2 elt -- seq1 seq2 )
     [ 2dup max-length ] dip [ pad-tail ] 2curry bi@ ;