Pobij obecny rekord i wygraj 16GB!

Firma Sphere Research Labs rzuca rękawicę fanom języka C!

Po zaciętej rywalizacji w poprzedniej edycji konkursu: ONP w 100 bajtach? ustanowiony został przez nas nowy rekord: 81 bajtów! Zapraszamy wszystkich chętnych do bicia rekordu – nagrodą za nadesłanie kodu o długości nie większej niż 80 bajtów jest PenDrive 16 GB. Dodatkową nagrodą będzie koszulka z nadrukiem spoj.pl.

Poprzedni etap konkursu znajduje się na stronie: ONP w 100 bajtach?
Wyniki poprzedniego etapu: Wyniki konkursu “ONP w 100 bajtach”!

Powodzenia!

Organizatorzy zastrzegają sobie prawo do publikacji zwycięskiego rozwiązania na stronach portalu Contest.pl.

Zwycięski kod w 95 bajtach!

Zwycięzcą konkursu na najkrótszy kod został Marcin Jarczewski, serdecznie gratulujemy!

Po zaciętej rywalizacji i próbach przekroczenia granicy 100 bajtów przez wielu uczestników, najkrótsze rozwiązanie zgłosił p.Marcin Jarczewski, pobijając dotychczasowy rekord! Zgłoszone przez niego rozwiązanie w języku C ma długość 95 bajtów.

Zgodnie z regulaminem konkursu, poniżej prezentujemy zwycięski kod (rozbity na dwie linie):

*s;main(k,t){s=t;for(gets(&k);~(k=getchar());k-41?*++s=k:s--)
for(;*s>k&&k-40&&putchar(*s--););}

Strona z konkursem: ONP w 100 bajtach?.

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.

Znasz świetnie język C? To jest zadanie dla Ciebie!

Jeżeli jesteś fanem języka C i uważasz, że znasz jak nikt inny niskopoziomowe sztuczki – zmierz się z PRAWDZIWYM problemem! Napisz program przekształcający wyrażenie algebraiczne z nawiasami do postaci ONP w… 100 bajtach!
Dotychczasowy rekord dla tego zadania niepobity od 2006 roku wynosi 98 bajtów! Spróbuj zmierzyć się z najlepszymi, napisz jako pierwszy program o długości co najwyżej 100 bajtów a wygrasz koszulkę (L, XL lub XXL) z nadrukiem:

Dodatkowa nagroda za pobicie rekordu!

Osoba, która jako pierwsza zgłosi rozwiązanie o długości co najwyżej 97 bajtów otrzyma nagrodę specjalną: PenDrive 8 GB! Powodzenia!

Organizatorzy zastrzegają sobie prawo do publikacji zwycięskiego rozwiązania na stronach portalu Contest.pl.

Zadanie konkursowe

Uwaga! Warunkiem otrzymania nagrody jest podanie swojego adresu email w polu ‘Secret phrase‘ (zaznacz checkbox ‘Give a secret phrase‘) w zwycięskim nadesłaniu. Organizatorzy na wskazany adres wyślą szczegółowe informacje w sprawie odbioru nagród.

Czy uważasz, że 500 bajtów to dużo?

Napisz najkrótszy program w Pascalu lub Pythonie i wygraj koszulkę z nadrukiem SPOJ-a!

Postanowiliśmy wykorzystać jedno z zadań z konkursu  “4puzzles” (edycja I). Nagrodę otrzyma pierwszy uczestnik, którego rozwiązanie zadania będzie nie dłuższe niż 500 bajtów. Nagrodą w konkursie jest koszulka z nadrukiem:

Uwaga! Warunkiem otrzymania nagrody jest podanie swojego adresu email w polu ‘Secret phrase‘ (zaznacz checkbox ‘Give a secret phrase‘) w zwycięskim nadesłaniu. Organizatorzy na wskazany adres wyślą szczegółowe informacje w sprawie odbioru nagród.

Zadanie konkursowe