assocs.extras: adding zip-longest

[factor.git] / extra / assocs / extras / extras.factor

diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor
index 41dc38bef6359aa05d20e98bfddb5a847d40e427..f6d18c1ba88daf1ec43f62412dc49b1d941d3bb4 100644 (file)
--- a/extra/assocs/extras/extras.factor
+++ b/extra/assocs/extras/extras.factor
@@ -19,6 +19,12 @@ IN: assocs.extras
 : deep-set-of ( assoc seq elt -- )
     [ deep-of-but-last ] dip spin set-at ; inline
 
+: zip-longest-with ( seq1 seq2 fill -- assoc )
+    [ 2dup max-length ] dip '[ _ _ pad-tail ] bi@ zip ;
+
+: zip-longest ( seq1 seq2 -- assoc )
+    f zip-longest-with ;
+
 : substitute! ( seq assoc -- seq )
     substituter map! ;