Data commit

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

@@ -0,0 +1,18 @@
+integer
+gray_encode(integer n)
+{
+    n ^ (n >> 1);
+}
+
+integer
+gray_decode(integer n)
+{
+    integer p;
+
+    p = n;
+    while (n >>= 1) {
+        p ^= n;
+    }
+
+    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;
+}