Raw Code for computing De Bruijn-sequences

array d[0:36];
d[0] := 0; d[1] := 0; d[2] := 0; d[3] := 0; d[4] := 0; d[5] := 0;
k := 5;
4 < k and k < 36 herhaal

begin            j := k-1; geluk := true;
                j ≥ 4 and geluk herhaal
                begin gelijk := true; h := 0;
                        h ≤ 4 and gelijk herhaal
                        begin gelijk := (d[k-h] = d[j-h]); h := h+1 end;
                        gelijk zoja geluk := false; j := j-1
                end;
                geluk dan
                begin k := k+1; k ≤ 31 dan d[k] := 0 anders d[k] := d[k-32] and
                      anders
                begin k > 31 zoja k := 31;
                        d[k] = 1 zoja k := k-1;
                        d[k] := 1
                end
end

---

Transcribed by Mikhail Esteves

Last revised on Sat, 19 Jul 2003.