Gray code

Arturo

<lang rebol>toGray: function [n]-> xor n shr n 1 fromGray: function [n][

   p: n
   while [n > 0][
       n: shr n 1
       p: xor p n
   ] 
   return p

]

loop 0..31 'num [

   encoded: toGray num
   decoded: fromGray encoded

   print [
       pad to :string num 2 ":" 
       pad as.binary num 5 "=>" 
       pad as.binary encoded 5 "=>" 
       pad as.binary decoded 5 ":" 
       pad to :string decoded 2
   ]

]</lang>

Output:

 0 :     0 =>     0 =>     0 :  0 
 1 :     1 =>     1 =>     1 :  1 
 2 :    10 =>    11 =>    10 :  2 
 3 :    11 =>    10 =>    11 :  3 
 4 :   100 =>   110 =>   100 :  4 
 5 :   101 =>   111 =>   101 :  5 
 6 :   110 =>   101 =>   110 :  6 
 7 :   111 =>   100 =>   111 :  7 
 8 :  1000 =>  1100 =>  1000 :  8 
 9 :  1001 =>  1101 =>  1001 :  9 
10 :  1010 =>  1111 =>  1010 : 10 
11 :  1011 =>  1110 =>  1011 : 11 
12 :  1100 =>  1010 =>  1100 : 12 
13 :  1101 =>  1011 =>  1101 : 13 
14 :  1110 =>  1001 =>  1110 : 14 
15 :  1111 =>  1000 =>  1111 : 15 
16 : 10000 => 11000 => 10000 : 16 
17 : 10001 => 11001 => 10001 : 17 
18 : 10010 => 11011 => 10010 : 18 
19 : 10011 => 11010 => 10011 : 19 
20 : 10100 => 11110 => 10100 : 20 
21 : 10101 => 11111 => 10101 : 21 
22 : 10110 => 11101 => 10110 : 22 
23 : 10111 => 11100 => 10111 : 23 
24 : 11000 => 10100 => 11000 : 24 
25 : 11001 => 10101 => 11001 : 25 
26 : 11010 => 10111 => 11010 : 26 
27 : 11011 => 10110 => 11011 : 27 
28 : 11100 => 10010 => 11100 : 28 
29 : 11101 => 10011 => 11101 : 29 
30 : 11110 => 10001 => 11110 : 30 
31 : 11111 => 10000 => 11111 : 31