gray-decode ( n! -- n' )

Vocabulary

rosetta-code.gray-code

Inputs

n!

an object

Outputs

n'

an object

Definition

USING: kernel math ;

IN: rosetta-code.gray-code

:: gray-decode ( n! -- n' )
    n :> p!
    [ n -1 shift dup n! 0 = not ] [ p n bitxor p! ] while p ;