A-M baby

Task/Gray-code/Erlang/gray-code-1.erl

@@ -0,0 +1,9 @@
+-module(gray).
+-export([encode/1, decode/1]).
+
+encode(N) -> N bxor (N bsr 1).
+
+decode(G) -> decode(G,0).
+
+decode(0,N) -> N;
+decode(G,N) -> decode(G bsr 1, G bxor N).

Task/Gray-code/Erlang/gray-code-2.erl

@@ -0,0 +1,11 @@
+-module(testgray).
+
+test_encode(N) ->
+  G = gray:encode(N),
+  D = gray:decode(G),
+  io:fwrite("~2B : ~5.2.0B : ~5.2.0B : ~5.2.0B : ~2B~n", [N, N, G, D, D]).
+
+test_encode(N, N) -> [];
+test_encode(I, N) when I < N -> test_encode(I), test_encode(I+1, N).
+
+main(_) -> test_encode(0,32).