Data update

Task/Gray-code/11l/gray-code.11l

@@ -9,7 +9,7 @@ F gray_decode(=n)
    R n
 
 print(‘DEC,   BIN =>  GRAY => DEC’)
-L(i) 32
+L(i) 0.<32
    V gray = gray_encode(i)
    V dec = gray_decode(gray)
    print(‘ #2, #. => #. => #2’.format(i, bin(i).zfill(5), bin(gray).zfill(5), dec))

Task/Gray-code/Ada/gray-code.ada

@@ -1,47 +0,0 @@
-with Ada.Text_IO, Interfaces;
-use Ada.Text_IO, Interfaces;
-
-procedure Gray is
-
-   Bits : constant := 5; -- Change only this line for 6 or 7-bit encodings
-   subtype Values is Unsigned_8 range 0 .. 2 ** Bits - 1;
-   package Values_Io is new Ada.Text_IO.Modular_IO (Values);
-
-   function Encode (Binary : Values) return Values is
-   begin
-      return Binary xor Shift_Right (Binary, 1);
-   end Encode;
-   pragma Inline (Encode);
-
-   function Decode (Gray : Values) return Values is
-      Binary, Bit : Values;
-      Mask        : Values := 2 ** (Bits - 1);
-   begin
-      Bit    := Gray and Mask;
-      Binary := Bit;
-      for I in 2 .. Bits loop
-         Bit    := Shift_Right (Bit, 1);
-         Mask   := Shift_Right (Mask, 1);
-         Bit    := (Gray and Mask) xor Bit;
-         Binary := Binary + Bit;
-      end loop;
-      return Binary;
-   end Decode;
-   pragma Inline (Decode);
-
-   HT : constant Character := Character'Val (9);
-   J  : Values;
-begin
-   Put_Line ("Num" & HT & "Binary" & HT & HT & "Gray" & HT & HT & "decoded");
-   for I in Values'Range loop
-      J := Encode (I);
-      Values_Io.Put (I, 4);
-      Put (": " & HT);
-      Values_Io.Put (I, Bits + 2, 2);
-      Put (" =>" & HT);
-      Values_Io.Put (J, Bits + 2, 2);
-      Put (" => " & HT);
-      Values_Io.Put (Decode (J), 4);
-      New_Line;
-   end loop;
-end Gray;

Task/Gray-code/Arturo/gray-code.arturo

@@ -14,9 +14,9 @@ loop 0..31 'num [
 
     print [
         pad to :string num 2 ":"
-        pad as.binary num 5 "=>"
-        pad as.binary encoded 5 "=>"
-        pad as.binary decoded 5 ":"
+        pad to :string .format:".b" num 5 "=>"
+        pad to :string .format:".b" encoded 5 "=>"
+        pad to :string .format:".b" decoded 5 ":"
         pad to :string decoded 2
     ]
 ]

Task/Gray-code/Euphoria/gray-code.ex

@@ -1,34 +0,0 @@
-function gray_encode(integer n)
-    return xor_bits(n,floor(n/2))
-end function
-
-function gray_decode(integer n)
-    integer g
-    g = 0
-    while n > 0 do
-        g = xor_bits(g,n)
-        n = floor(n/2)
-    end while
-    return g
-end function
-
-function dcb(integer n)
-    atom d,m
-    d = 0
-    m = 1
-    while n do
-        d += remainder(n,2)*m
-        n = floor(n/2)
-        m *= 10
-    end while
-    return d
-end function
-
-integer j
-for i = #0 to #1F do
-    printf(1,"%05d => ",dcb(i))
-    j = gray_encode(i)
-    printf(1,"%05d => ",dcb(j))
-    j = gray_decode(j)
-    printf(1,"%05d\n",dcb(j))
-end for

Task/Gray-code/Frink/gray-code.frink

@@ -2,5 +2,7 @@ for i=0 to 31
 {
    gray = binaryToGray[i]
    back = grayToBinary[gray]
-   println[(i->binary) + "\t" + (gray->binary) + "\t" + (back->binary)]
+   println[pad[i->binary] + "\t" + pad[gray->binary] + "\t" + pad[back->binary]]
 }
+
+pad[x] := padLeft[x,5,"0"]

Task/Gray-code/VBScript/gray-code.vb

@@ -1,29 +0,0 @@
-Function Encoder(ByVal n)
-    Encoder = n Xor (n \ 2)
-End Function
-
-Function Decoder(ByVal n)
-    Dim g : g = 0
-    Do While n > 0
-       g = g Xor n
-       n = n \ 2
-    Loop
-    Decoder = g
-End Function
-
-' Decimal to Binary
-Function Dec2bin(ByVal n, ByVal length)
-    Dim i, strbin : strbin = ""
-    For i = 1 to 5
-        strbin = (n Mod 2) & strbin
-        n = n \ 2
-    Next
-    Dec2Bin = strbin
-End Function
-
-WScript.StdOut.WriteLine("Binary -> Gray Code -> Binary")
-For i = 0 to 31
-    encoded = Encoder(i)
-    decoded = Decoder(encoded)
-    WScript.StdOut.WriteLine(Dec2Bin(i, 5) & " -> " & Dec2Bin(encoded, 5) & " -> " & Dec2Bin(decoded, 5))
-Next

Task/Gray-code/VHDL/gray-code-1.vhdl

@@ -1,14 +0,0 @@
-LIBRARY ieee;
-USE ieee.std_logic_1164.all;
-
-entity b2g is
-   port(  bin  : in  std_logic_vector (4 downto 0);
-          gray : out std_logic_vector (4 downto 0)
-        );
-end b2g ;
-
-architecture rtl of b2g is
-  constant N : integer := bin'high;
-begin
-  gray <= bin(n) & ( bin(N-1 downto 0) xor bin(N downto 1));
-end architecture rtl;

Task/Gray-code/VHDL/gray-code-2.vhdl

@@ -1,17 +0,0 @@
-LIBRARY ieee;
-USE ieee.std_logic_1164.all;
-
-entity g2b is
-   port(  gray : in     std_logic_vector (4 downto 0);
-          bin  : buffer std_logic_vector (4 downto 0)
-        );
-end g2b ;
-
-architecture rtl of g2b is
-  constant N : integer := bin'high;
-begin
-  bin(N) <= gray(N);
-  gen_xor: for i in N-1 downto 0 generate
-    bin(i) <= gray(i) xor bin(i+1);
-  end generate;
-end architecture rtl;