update

Task/Gray-code/APL/gray-code-1.apl

@@ -0,0 +1,2 @@
+N←5
+({(0,⍵)⍪1,⊖⍵}⍣N)(1 0⍴⍬)

Task/Gray-code/APL/gray-code-2.apl

@@ -0,0 +1,5 @@
+N←5
+grayEncode←{a≠N↑(0,a←(N⍴2)⊤⍵)}
+grayDecode←{2⊥≠⌿N N↑N(2×N)⍴⍵,0,N⍴0}
+
+grayEncode 19

Task/Gray-code/Aime/gray-code-1.aime

@@ -0,0 +1,18 @@
+integer
+gray_encode(integer n)
+{
+    return n ^ (n >> 1);
+}
+
+integer
+gray_decode(integer n)
+{
+    integer p;
+
+    p = n;
+    while (n >>= 1) {
+        p ^= n;
+    }
+
+    return p;
+}

Task/Gray-code/Aime/gray-code-2.aime

@@ -0,0 +1,24 @@
+integer
+main(void)
+{
+    integer i, g, b;
+
+    i = 0;
+    while (i < 32) {
+        g = gray_encode(i);
+        b = gray_decode(g);
+        o_winteger(2, i);
+        o_text(": ");
+        o_fxinteger(5, 2, i);
+        o_text(" => ");
+        o_fxinteger(5, 2, g);
+        o_text(" => ");
+        o_fxinteger(5, 2, b);
+        o_text(": ");
+        o_winteger(2, b);
+        o_byte('\n');
+        i += 1;
+    }
+
+    return 0;
+}