Wyniki konkursu „Węże w Pythonie”!
Zwycięski kod w 499 bajtach!
Zwycięzcą konkursu został ‘jarekj’, serdecznie gratulujemy!
Zgłoszone przez niego rozwiązanie w języku Pascal ma długość 499 bajtów. W czasach, gdy komputery programowane były za pomocą taśm perforowanych za tak skompresowany kod można było dostać zapewne majątek. :)
Za zgodą autora, prezentujemy poniżej zwycięski kod, po niewielkim sformatowaniu wyglądu (oryginalne rozwiązanie mieści się w jednej linii):
{$definec u then}
{$definec y +z(i}
{$definec x p[i}
{$definec v -1]+x+1]+x-m]+x+m]}
{$definec l for i:=m to 131 do if p[i}
type b=byte;
var t,n,m,i,r:b;
p:array[b]of b;
c:char;
function z(i:b):b;begin z:=0;if 5>x]u
exit;x]:=2;z:=1
y-1)y+1)y-m)y+m)end;
begin
readln(t);
repeat
fillchar(i,147,1);readln(n,m);m:=m+1;for i:=1 to n*m do if(0=i mod m)u
readln else
begin read(c);x+m]:=47-ord(c)end;l]*x-m+1]+x+1]*x-m]in[26,11]u
n:=y)y+1)y-m);l
v>15 u n:=y);l
v=8 u
if 4<y)u r:=r+1;writeln(r-1);t:=t-1;until t=0;end.
