enqueue ( n hamming-iterator -- )

Vocabulary

rosetta-code.hamming

Inputs

n	an object
hamming-iterator	an object

Outputs

None

Definition

USING: accessors deques kernel math ;

IN: rosetta-code.hamming

: enqueue ( n hamming-iterator -- )
    [ [ 2 * ] [ 2s>> ] bi* push-back ]
    [ [ 3 * ] [ 3s>> ] bi* push-back ]
    [ [ 5 * ] [ 5s>> ] bi* push-back ] 2tri ;