hamming ( -- hamming )

Vocabulary

rosetta-code.hamming-lazy

Inputs

None

Outputs

hamming

an object

Definition

USING: kernel lists.lazy math ;

IN: rosetta-code.hamming-lazy

:: hamming ( -- hamming )
    f :> h!
    [ 1 ] [
        h 2 3 5 [ [ * ] curry lmap-lazy ] tri-curry@ tri
        sort-merge sort-merge
    ] lazy-cons h! h ;