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.