next ( hamming-iterator -- n )

Vocabulary

rosetta-code.hamming

Inputs

hamming-iterator

an object

Outputs

n

an object

Definition

USING: accessors deques kernel math.order ;

IN: rosetta-code.hamming

: next ( hamming-iterator -- n )
    dup [ 2s>> ] [ 3s>> ] [ 5s>> ] tri 3dup [ peek-front ] tri@
    min min [
        [ [ dup peek-front ] ] dip
        [ = [ pop-front* ] [ drop ] if ] curry compose tri@
    ] [ swap enqueue ] [ ] tri ;