Nonoblock: Difference between revisions
Content added Content deleted
(Added solution for Pascal) |
m (Small improvement to Pascal code) |
||
Line 2,060: | Line 2,060: | ||
inc(z[j - 1]); |
inc(z[j - 1]); |
||
z[h] := z[j] - 1; |
z[h] := z[j] - 1; |
||
if (j < h) then z[j] := 0; |
|||
z[j] := 0; inc(j); |
|||
end; |
|||
end; |
end; |
||
end; |
end; |