sort-merge ( xs ys -- result )

Vocabulary

rosetta-code.hamming-lazy

Inputs

xs	an object
ys	an object

Outputs

result

an object

Definition

USING: combinators lists lists.lazy math ;

IN: rosetta-code.hamming-lazy

:: sort-merge ( xs ys -- result )
    xs car :> x ys car :> y {
        {
            [ x y < ]
            [ [ x ] [ xs cdr ys sort-merge ] lazy-cons ]
        }
        {
            [ x y > ]
            [ [ y ] [ ys cdr xs sort-merge ] lazy-cons ]
        }
        [ [ x ] [ xs cdr ys cdr sort-merge ] lazy-cons ]
    } cond ;