RosettaCodeData/Task/Gray-code/Mathematica/gray-code.math

3 lines
104 B
Plaintext

graycode[n_]:=BitXor[n,BitShiftRight[n]]
graydecode[n_]:=Fold[BitXor,0,FixedPointList[BitShiftRight,n]]