pad-longest ( seq1 seq2 elt -- seq1 seq2 )

Vocabulary

sequences.extras

Inputs

seq1	a sequence
seq2	a sequence
elt	an object

Outputs

seq1	a sequence
seq2	a sequence

Word description

Perform pad-tail on both sequences, padding with elt to the longest length between the two.

Definition

USING: kernel sequences ;

IN: sequences.extras

: pad-longest ( seq1 seq2 elt -- seq1 seq2 )
    [ 2dup max-length ] dip [ pad-tail ] 2curry bi@ ;