gray-code-main ( -- )

Vocabulary

rosetta-code.gray-code

Inputs

None

Outputs

None

Definition

USING: arrays kernel math.parser prettyprint ranges sequences ;

IN: rosetta-code.gray-code

: gray-code-main ( -- )
    -1 32 [a..b] [
        dup [ >bin ] [ gray-encode ] bi
        [ >bin ] [ gray-decode ] bi 4array .
    ] each ;