International Olympiad in Informatics (IOI) 2007 - Croatia

http://olympiads.win.tue.nl/ioi/ioi2007/logo2007.gifS IOI 2007 - Zagreb, CroatiaS- T3h Reportaža

Istina, olimpijada je trajala od 15. do 22., i otkako sam se vratio, htio sam napisati nešto o svemu tome, ali nikako da uhvatim vremena za to, pa vam tako sad, sa zakašnjenjem, donosim svoju reportažu ovog, vjerovatno najvažnijeg, godišnjeg međunarodnog takmičenja programera.

Za one koji ne znaju o čemu se radi, IOI je međunarodno/svjetsko takmičenje iz oblasti informatike, ili bolje reći, programiranja, koje se održava svake godine u jednoj od zemalja učesnica. Prije ovog takmičenja je održano 18 takvih u zemljama širom svijeta (Argentina, Južnoafrička Republika, Kina, USA, Meksiko, itd.), a ove godine se Hrvatska izborila da bude domaćin. Dobar dio razloga je vjerovatno i odličan uspjeh hrvatskih takmičara na poslednjih par IOI-ova. Istina, s moje tačke gledišta, ljepše bi mi bilo otići malo u Argentinu, npr., nego u Zagreb, u kome sam ionako bar jednom godišnje, ali to je sad već čista subjektivnost.


I dan - srijeda, 15. avgust
Mi iz Bosne smo išli vozom - ekipa iz Sarajeva (Marko, Ibrahim, Emina i Leo the Team Leader) je krenula ranije, da bi prolazili kroz doboj oko 1:00 pm, kada smo se ukrcali ja i profesorica Nada, koja je prethodno doputovala iz Bijeljine. Te tako krenusmo na dug i naporan put do Zagreba. Nekad naveče oko 7 smo napokon stigli, i bili dočekani od strane Maje, koja nam je bila dodijeljena kao vodič. Zanimljivo je bilo što nas je već sve znala ko je ko, jer su svim vodičima već ranije dodijeljene ekipe, te su svi imali imena i slike, tako da se spreme unaprijed. Nedugo zatim smo kombijem prevezeni do doma Stjepan Radić, gdje nam je bio smještaj. Napokon smo dobili šansu ostaviti torbe u sobe, te smo zatim otišli u kantinu na večeru (hranu pohvaljujem). Pogodite šta je bilo slijedeće.


II dan - četvrtak, 16. avgust

http://i191.photobucket.com/albums/z...h_IMG_4457.jpgS http://i191.photobucket.com/albums/z...h_IMG_4471.jpgS http://i191.photobucket.com/albums/z...h_IMG_4467.jpgS http://i191.photobucket.com/albums/z...h_IMG_4472.jpgS http://i191.photobucket.com/albums/z...h_IMG_4487.jpg

Ranom zorom (7:00 am) odosmo na doručak svi i dalje umorni i nikakvi. Od 8 do 11 je po programu bio "practice session", gdje smo manje-više samo došli vidjeti halu, kompove i sl. Hala je ogromna, jako jako mnogo kompova na jednom mjestu... Inače, kompove je ustupio Končar. Na njima se vrtila zadnja Fedora (Linux distribucija, ako koji n00b ne zna), te se radilo u KDevelopu, FreePascalu i još po nečemu. Bilo je tu i par practice zadataka, koje mi se nije dalo raditi. Trebala mi je kafa. U 11 je počela ceremonija otvaranja, na kojoj nam je, između ostalog, hrvatsku himnu otpjevao, ni manje, ni više, već - Jacques Houdek. Ostatak dana smo lutali uokolo i sjedili po kafićima - nije nam mnogo šta više ni preostajalo.


III dan - petak, 17. avgust

http://i191.photobucket.com/albums/z...h_IMG_4505.jpg

U treći dan je već postalo ozbiljno - prvi dan takmičenja, prva tri zadatka (Aliens, FloodSi Sails). Agonija je trajala od 8:30 am do 13:30 pm. Prvi zadatak, Aliens, je bio relativno jednostavan, skoro čista logika, međutim, zbog jedne site, ali kobne, greške u shvatanju zadatka sam napisao kod koji radi samo u nekoliko slučajeva. Što je najgore, kada bih samo obrisao par linije iz njega, bez da išta drugo pipnem, mislim da bi mu se efikasnost udvostručila. I to do dan danas nisam prežalio. O ostala dva zadatka, pogađate, pojma nisam imao. Poslije ručka i odmora smo otišli malo u grad sa reprezentacijom Kirgistana (na slici) i njihovim vodičem (da, ona plava). Jedan od njih me pitao koja je vjera u Bosni, pa kad sam mu ja ispričao kakvih tu sve nacija i religija ima, zbunjeno me pogleda i reče "Pa mnogo vas tu ima...".


IV dan - subota, 18. avgust

http://i191.photobucket.com/albums/z...h_IMG_4518.jpgS http://i191.photobucket.com/albums/z...h_IMG_4522.jpgS http://i191.photobucket.com/albums/z...h_IMG_4524.jpgS http://i191.photobucket.com/albums/z...h_IMG_4530.jpgS http://i191.photobucket.com/albums/z...h_IMG_4547.jpg

Četvrti dan je prošao u zahebanciji, uglavnom. Najznačajniji je bio "open-air party" na Jarunu, kog možete vidjeti na slikama. Uglavnom, bilo je muzike, pjevanja, pizze, ćevapa, sporta... da, čak i sporta. To je bio prizor za vidjeti, stvarno. Međutim, na stranu fudbal, odbojka, badminton, stoni tenis... najveća rulja je bila oko - šaha. Mislim, ljudi dođu u prirodu, tu je muzika i sve, vesela atmosfera, i onda igraju šah. Meni neshvatljivo. Međutim, kad bolje razmislim - tu je bio i jedan Korejac (čini mi se) koje je, kud god bi pošao, sa sobom nosio Rubikovu kocku i vrtio je stalno. Mogla se tu snimiti alternativna verzija spota za White & Nerdy, definitivno. Takođe, kasnije, dok smo sjedili u jednom od kafića u City Centeru, Leo je mijenjao SIM karticu u svom telefonu, te sam mu na zadnjem dijelu maske uočio nešto što sam svakako morao uslikati - koliko još ljudi ima to na telefonu?


V dan - nedelja, 19. avgust

http://i191.photobucket.com/albums/z...h_IMG_4552.jpgS http://i191.photobucket.com/albums/z...h_IMG_4550.jpgS http://i191.photobucket.com/albums/z...h_IMG_4556.jpg

Drugi dan takmičenja, druga tri zadatka (Miners, PairsSi Training), drugih 5 sati agonije. Prva dva zadatka su se mogla riješiti nekim rudimentarnim rješenjima, međutim, to će raditi samo u par slučajeva. Pairsi su se mogli brute-forcati u prvih par testnih primjera. To rješenje bi teoretski riješilo svaki testni primjer, međutim, surova vremenska ograničenja prisiljavaju na mnogostruko složenija rješenja koja će raditi brže. Nešto slično je bilo i s drugim zadatkom, dok je training bio prilično užasan - svaka čast onima koji su riješili. Na veče smo imali neki party u domu. Koliko sam bio smoren i iscrpljen, trebala su mi samo tri Tuborga da se dohvatim karaoka. Ne pitajte.


VI dan - ponedeljak, 20. avgust

http://i191.photobucket.com/albums/z...h_IMG_4560.jpgS http://i191.photobucket.com/albums/z...h_IMG_4599.jpgS http://i191.photobucket.com/albums/z...h_IMG_4616.jpgS http://i191.photobucket.com/albums/z...h_IMG_4618.jpgS http://i191.photobucket.com/albums/z...h_IMG_4622.jpg

Šesti dan je bio obilježen odlaskom na Plitvička jezera. Bio je to ujedno i najnaporniji dan. Valjalo je ustati prije 6, doručkovati i onda u autobus... Kad smo stigli, nakljukali smo se kafama, te krenuli u obilazak. Najupečatljiviji dio je bio kad su nas trpali u one tour-busove - nagurali su unutra bar 3x više ljudi nego što je predviđeno. Ko je mogao disati, dobio je dobro mjesto. Da sam našao organizatora, poljubio bih ga u čelo. Uglavnom, previše hodanja i mrcvarenja da bi zapravo uživali u svemu tome. Krajolik jeste prelijep, ali meni tada nije bilo ni do čega. Vjerujem, ni mnogim drugim. Na povratku smo svratili i do "Nikola Tesla Memorial Centra". U kuću nisam ni ušao - previše ljudi je bilo unutra, a ja sam bio preiscrpljen i samo sam htio sav svjež vazduh koji sam mogao dobiti.


VII dan - utorak, 21. avgust

http://i191.photobucket.com/albums/z...h_IMG_4653.jpgS http://i191.photobucket.com/albums/z...h_IMG_4660.jpgS http://i191.photobucket.com/albums/z...h_IMG_4663.jpgS http://i191.photobucket.com/albums/z...h_IMG_4672.jpgS http://i191.photobucket.com/albums/z...h_IMG_4684.jpgS http://i191.photobucket.com/albums/z...h_IMG_4691.jpg

Ovo je bio dan sa "najrjeđim" programom - osim obroka, imali smo samo još završnu ceremoniju na rasporedu. Tada sam prespavao doručak i pola ručka. Da me nisu probudili, mislim da bih i večeru prespavao. Slobodno vrijeme smo iskoristili za još malo švrljanja po gradu. Te uveče, oko 6:00 pm, dođosmo i do završne ceremonije. Pošto smo svi već znali svoje "skromne" bodove, nismo se ničemu ni nadali, pa smo samo opušteno gledali kako ljudi izlaze na binu i kupe medalje. Najveći pwner je bio 13-ogodišnjak iz Bjelorusije... ne znam ni kako je dospio do takmičenja (valjda je nekako preko reda došao u srednju školu), uglavnom lik je pokupio jednu od zlatnih medalja. Osjećao sam se posjedovano. Prvo mjesto je osvojio Poljak, drugo i treće Kinezi, a četvrti je bio Hrvat, Goran Žužić. Svaka čast pobjednicima, u svakom slučaju. E, kad se sve završilo, bilo se red i pošteno napiti, je l'... U planu je bio neki party, kroz koji smo samo prozujali, i onda otišli dalje "po svome". U čoporu smo bili ja i kolege iz ekipe, Leo, Maja, Ivana (vodič Kirgistana), Petra (njena sestra, vodič Švedske), te dva Šveđana. Kao što vidite, popilo se, zapjevalo se, te zatim lagano taxijem nazad u dom. Noć je bila luda, i dalje smo divljali i po sobama, gledali filmove, kartali - spavali smo svega sat il' dva.


VIII dan - srijeda, 22. avgust

Dan odlaska. Ujutro, zadnji zajednički doručak, i nedugo zatim, put do glavnog kolodvora. Bilo je prilično čudno čekati taj voz - u neku ruku, svima je bilo drago što se napokon vraćaju, a opet, bilo nam je teško oprostiti se od Maje, s kojom smo se prilično sprijateljili za tih sedam dana. Cura je stvarno super, stalno je bila s nama, trudila se, vodila nas je gdje god nam je palo na pamet... Njoj još jednom veliko "hvala". Voz je stigao, svi smo se izgrlili s njom, sjeli u voz i napokon krenuli nazad. Nakon dosta sati kunjanja, znojenja i sličnih (ne)aktivnosti, stigosmo u Doboj, gdje smo izašli ja i profesorica Nada. Oprostismo se sa onima koji su produžili do Sarajeva, a i međusobno. Stari je došao po mene autom, te sam za koji minut ponovo bio u home sweet homeu.

Sve u svemu, nije da se iko od nas proslavio rezultatom, ali nije ni da mi je previše stalo do toga. Dobro sam se proveo, upoznao nove ljude, stekao nove prijatelje. Kako god, nisam se pokajao što sam otišao. Eto, potroših dosta vremena da ovo istipkam i slike uploadam, pa se nadam da je bar nekome bilo zanimljivo čitati. Ako koga još šta interesuje, neka pita. A ja ću se nastaviti nadati da ću se plasirati za slijedeći IOI u Egiptu...

Official site : Shttp://www.hsin.hr/ioi2007/

Vidim ja da ti je bilo zabavno, a ja mislio da je to neki über geek event. :D

Morao si slušati Jacquesa kako pjeva? :o ne bi ja :D anyway vidim išla je ekipa iz Bih,lijepo...

Burek je alkos, my man :cheer
Nadam se da si uživao u Stocku :D http://freeyarmind.com/board/Smileys...dgerslayer.gif
Ček, to je bilo informatičko natjecanje ili konvencija Anonimnih alkoholičara ^^

Mislim da je to jedno nezaboravno iskustvo i sudjelovati, pogotovo bi bilo nekome tko ne zna ništa "o tim tamo stvarima" kojime se vi bavite. Izgleda da je bilo uber zanimljivo. :wink:

Jipijeja. Bravo Bjurek.

Kralju dabogda do egipta ošo :)

@Neven <R>, da, to zapravo i jeste bio prilično "über geek event", ali jedna skoro zanemariva manjina ljudi tu, koji nisu über geekovi, se jednostavno morala malo i zabaviti kad su već tu =)

@Sgt. Bull, to je bilo intenzivno... Kako je još bila opšta zbrka, jedva da ga je ko primijetio kad je izašao na pozornicu. Ja sam se prepao kad iz čista mira zagalami na sav glas "LIJEEEPAAA NAaaša..."

@Fenrir, i u Stocku i u hostesama =)

@Arbiter, mogu ti reći da i jeste. Rado bih ponovio.

@Sajmon & Ps1ho, fala, fala...

Fora, nije vazno uvijek biti najbolji... nadam se da smo se predstavili u dobrom svijetlu kao domacini.

= Citat =:

---

Izvorno postao ReiKo

Fora, nije vazno uvijek biti najbolji... nadam se da smo se predstavili u dobrom svijetlu kao domacini.

---

To da. Organizacija je bila dobra, svo osoblje je bilo prijateljski nastrojeno. Istina, bilo je minornih ispada poput one vožnje tour-busom, ali sveukupno - thumb's up od mene.

13 godišnji bjelorus pobjedio ? Ah taj černobil...

= Citat =:

---

Izvorno postao Morgoth

13 godišnji bjelorus pobjedio ? Ah taj černobil...

---

Nije pobijedio. Medalje se ovdje ne dijele tracidionalno - po jedna zlatna, srebrena, i brončana. Medalja ima mnogo - 30 zlatnih, npr. Srebra i bronze ima još više. Taj mali, konkretno, je bio 20. mjesto.

= Citat =:

---

Izvorno postao Burek_fr0m_SPACE

= Citat =:

---

Izvorno postao Morgoth

13 godišnji bjelorus pobjedio ? Ah taj černobil...

---

Nije pobijedio. Medalje se ovdje ne dijele tracidionalno - po jedna zlatna, srebrena, i brončana. Medalja ima mnogo - 30 zlatnih, npr. Srebra i bronze ima još više. Taj mali, konkretno, je bio 20. mjesto.

---

lol XD Ja općenito mrzim natjecanja... Smatram da kad te netko unervozi da ne možeš pokazati istinski potencijal... Napravi nešto korisno, a ne tamo se utrkivati i pisati neke kurce koje nemaju smislu nikom poslije :D

A čuj tak ti je i na poslu, pod konstantnim si pritiskom pa je to s neke strane i dobra provjera kako se ljudi ponašaju u stresnim situacijama.

= Citat =:

---

Izvorno postao Neven <R>

A čuj tak ti je i na poslu, pod konstantnim si pritiskom pa je to s neke strane i dobra provjera kako se ljudi ponašaju u stresnim situacijama.

---

Da ali na poslu, posebice u gaming industriji nije prevelik pritisak, a može se rok potisnuti,a a ako malo zajebeš uvijek imaš kolege koji će te ponekad izbaviti, a ako imaš dodatnog posla, niko ti ne brani da radiš prekovremeno (mukte ne? :) ), i kao zadnje, zadaci nisu retardirano dosadni i nerijetko teški...

Jako lijep report, svaka čast. Rješio aliens za pola sata :D

= Citat =:

---

Izvorno postao Shadowhell

Jako lijep report, svaka čast. Rješio aliens za pola sata :D

---

Heh, a kako si ga testirao? Daj code, ako može, pa ću ti reći jesi li riješio.

Code:

---

program aliens;
var n,x,y,xd,xl,yd,xs,ys,m,xs1,ys1,q,z,xr,yr:longint;
    odg:string;
begin
readln(n,x,y);
xd:=x;
xl:=x;
yd:=y;
inc(m);
repeat
inc(xd);
if xd<=n then begin
        writeln('examine ',xd,' ',y);
        readln(odg);
        if odg[1]='t' then inc(m);
end else break;
until odg[1]='f';
dec(xd);
repeat
dec(xl);
if xl>=1 then begin
        writeln('examine ',xl,' ',y);
        readln(odg);
        if odg[1]='t' then inc(m);
end else break;
until odg[1]='f';
inc(xl);
repeat
dec(yd);
if yd>=1 then begin
        writeln('examine ',x,' ',yd);
        readln(odg);
end else break;
until odg[1]='f';
inc(yd);
xs:=xl+m div 2;
ys:=yd+m div 2;
xs1:=xs;
ys1:=ys;
repeat
inc(xs1,2*m);
if xs1<=n then begin
        writeln('examine ',xs1,' ',ys);
        readln(odg);
        if odg[1]='t' then inc(q);
end else break;
until odg[1]='f';
repeat
inc(ys1,2*m);
if ys1<=n then begin
        writeln('examine ',xs,' ',ys1);
        readln(odg);
        if odg[1]='t' then inc(z);
end else break;
until odg[1]='f';
case q of
0: begin
        xr:=xs-m;
        xl:=xs-4*m;
        if xl>=1 then begin
                writeln('examine ',xl,' ',ys);
                readln(odg);
                if odg[1]='t' then xr:=xs-2*m;
        end;
  end;
1: begin
        xr:=xs+m;
        xl:=xs-2*m;
        if xl>=1 then begin
                writeln('examine ',xl,' ',ys);
                readln(odg);
                if odg[1]='t' then xr:=xs;
        end;
  end;
2: xr:=xs+2*m;
end;
case z of
0: begin
        yr:=ys-m;;
        yd:=ys-4*m;
        if yd>=1 then begin
                writeln('examine ',xs,' ',yd);
                readln(odg);
                if odg[1]='t' then yr:=ys-2*m;
        end;
  end;
1: begin
        yr:=ys+m;
        yd:=ys-2*m;
        if yd>=1 then begin
                writeln('examine ',xs,' ',yd);
                readln(odg);
                if odg[1]='t' then yr:=ys;
        end;
  end;
2: yr:=ys+2*m;
end;
writeln('solution ',xr,' ',yr);
end.

---

Samo što programiram u Pascalu kao što vidiš :)

Uf, namučih se s čitanjem Pascala... Da, rješenje bi vjerovatno teoretski radilo. Međutim, nije optimalno. Možda si preskočio onaj dio koji kaže da se alienski uređaj može iskoristiti maksimalno 300 puta. A ti bi čas posla spiskao to na iole većoj njivi. Ako mi se bude dalo, napisaću i ja svoje rješenje.

U najgorem slučaju moj program treba oko 202 puta iskoristiti uređaj, ali nhf, teško je čitati ovo..

= Citat =:

---

Izvorno postao Shadowhell

U najgorem slučaju moj program treba oko 202 puta iskoristiti uređaj, ali nhf, teško je čitati ovo..

---

Ili ja ne znam čitati Pascal ili ti nisi u pravu. Da se ja ne bih mučio s kodom, ti mi reci - kad tražiš lijevo i desno da skužiš gdje si u kvadratiću, je l' se pomijeraš za po jedno polje? Pošto je za kvadratić šahovnice donja granica 3, a gornje praktički nema, tj. šahovnica može zauzeti i cijelu njivu (max 2 000 000 000). Ako ispituješ polje po polje, čas posla spiskaš limit ako je šahovnica velika.

Znači ovako..

Imamo koordinate jednog polja u kvadratiću.. pomičem se udesno, dolje, lijevo od tog kvadratića i provjeravam je li trava ugažena.

Time dobijem M ( kvadratići su MxM )

imam M i minimalni y kao i minimalni x čime dobijem koordinate središta TOG kvadratića..

Za sve ovo trebalo mi je 100xuređaj ( vodoravno provjeravanje ) + u najgorem slučaju također 100xuređaj ( okomito provjeravanje )

/ piše da je max mogući M=100 /

Kada znam M mogu se slobodno pomicati od središta poznatog kvadratića i provjeravati njegov položaj u odnosu na druge..

To i radim, pomičem se u koracima od 2*m udesno i gore kako bi odredio koordinate središnjeg kvadratića u odnosu na ovaj.. to je max 4xuređaj

Time odredim koliko je ugaženih kvadratića lijevo i gore od poznatoga ( q i z )

Po tome ( uz još nešto provjeravanja što ne bi trebalo biti više od 4xuređaj ) određujem x i y koordinatu središta traženoga kvadratića..

Jedino ako sam krivo shvatio gornju granicu M, iz one rečenice ( što je vjerojatno sad kad gledam )

= Citat =:

---

Izvorno postao Shadowhell

/ piše da je max mogući M=100 /

---

Da, za 40 bodova, tj. parcijalno rješenje. Za 100 bodova se treba malo više potruditi.

Kužim sad.. budem kasnije pokušao efikasnije..

Prvo sam mislio da je neki koncert ili party jer sam prvo pogledao thumbnailove i onda odscrollam gore i vidim "natjecanje u programiranju" mislim se wtf? Hostese na G33|/ eventu? Al dobro, vidim da nisu svi neki žgoljavi štrebečići s masnom kosom!

Svaka čast na sudjelovanju, ali kad si već bio u zagrebu, mogao si zvat na pivu :D

Da, mogo si častit, odvest me u Mali Medo i platit mi pivu, jer meni nedaju jer nemam 18. 8)

= Citat =:

---

Cura je stvarno super, stalno je bila s nama, trudila se, vodila nas je gdje god nam je palo na pamet... Njoj još jednom veliko "hvala".

---

Ništa se nije desilo? Razocharao si me jebachu :rotfl: hehhe, šalim se... gg na reportu :D

= Citat =:

---

Izvorno postao Sajmon Drimr

Da, mogo si častit, odvest me u Mali Medo i platit mi pivu, jer meni nedaju jer nemam 18. 8)

---

Uf... ja bih se volio preseliti u Malog Medu. Vg pivo je tamo. A inače, zbog prilično gustog programa i nehumane iscrpljenosti sam propustio da se nađem s nekim ljudima i prilično mi je žao... Mislim, da je do mene bilo, našao bih se ja sa svima vama - ali nije bilo do mene.

Burek, kad si u ZG sljedeći put častiš nas bačvom gričke. Barem one punoljetne :]

Stotka

Code:

---

program aliens;
var n,xs,ys,m,q,z,xr,yr,p1,p2:longint;
    odg:string;
    okxd,okxl,oky,okz:boolean;
    p,xs1,ys1,x,y,yd,xl,xd,xmin,xmax,ymin:int64;
begin
readln(n,x,y);
xl:=x;
xd:=x;
yd:=y;
if (n-xd)>(n div 5) then xmax:=xd+n div 5 else xmax:=n;
if xmax=n then begin
        writeln('examine ',xmax,' ',y);
        readln(odg);
        if odg[1]='t' then okz:=true;
end;
xmin:=xl-n div 5;
if xmin<1 then xmin:=1;
ymin:=yd-n div 5;
if ymin<1 then ymin:=1;
repeat
        repeat
                if okxd then break;
                p:=(xd+xmax) div 2;
                if okz and (p=n-1) then inc(p);
                writeln('examine ',p,' ',y);
                readln(odg);
                if odg[1]='t' then xd:=p else xmax:=p;
                p1:=p;
        until p=(xd+xmax) div 2;
        repeat
                if okxl then break;
                p:=(xmin+xl) div 2;
                writeln('examine ',p,' ',y);
                readln(odg);
                if odg[1]='t' then xl:=p else xmin:=p;
                p2:=p;
        until p=(xmin+xl) div 2;
        repeat
                if oky then break;
                p:=(ymin+yd) div 2;
                writeln('examine ',x,' ',p);
                readln(odg);
                if odg[1]='t' then yd:=p else ymin:=p;
        until p=(ymin+yd) div 2;
        if okxd=false then begin
                writeln('examine ',(x+xmax) div 2,' ',y);
                readln(odg);
                case odg[1]Sof
                't': begin
                        writeln('examine ',(x+(x+xmax) div 2) div 2,' ',y);
                        readln(odg);
                        if odg[1]='t' then okxd:=true else begin
                                xmax:=(x+(x+xmax) div 2) div 2;
                                xd:=x;
                        end;
                    end;
                'f': begin
                        xmax:=(x+xmax) div 2;
                        xd:=x;
                    end;
                end;
        end;
        if okxl=false then begin
                writeln('examine ',(xmin+x) div 2,' ',y);
                readln(odg);
                case odg[1]Sof
                't': begin
                        writeln('examine ',(x+(xmin+x) div 2) div 2,' ',y);
                        readln(odg);
                        if odg[1]='t' then okxl:=true else begin
                                xmin:=(x+(xmin+x) div 2) div 2;
                                xl:=x;
                        end;
                    end;
                'f': begin
                        xmin:=(x+xmin) div 2;
                        xl:=x;
                    end;
                end;
        end;
        if oky=false then begin
                writeln('examine ',x,' ',(ymin+y) div 2);
                readln(odg);
                case odg[1]Sof
                't': begin
                        writeln('examine ',x,' ',(y+(ymin+y) div 2) div 2);
                        readln(odg);
                        if odg[1]='t' then oky:=true else begin
                                ymin:=(y+(ymin+y) div 2) div 2;
                                yd:=y;
                        end;
                    end;
                'f': begin
                        ymin:=(ymin+y) div 2;
                        yd:=y;
                    end;
                end;
        end;
until okxd and okxl and oky;
if p2=1 then dec(p2);
m:=p1-p2;
xs:=xl+m div 2;
ys:=yd+m div 2;
xs1:=xs;
ys1:=ys;
repeat
        inc(xs1,2*m);
        if xs1<=n then begin
                writeln('examine ',xs1,' ',ys);
                readln(odg);
                if odg[1]='t' then inc(q);
        end else break;
until (odg[1]='f') or (q=2);
repeat
        inc(ys1,2*m);
        if ys1<=n then begin
                writeln('examine ',xs,' ',ys1);
                readln(odg);
                if odg[1]='t' then inc(z);
        end else break;
until (odg[1]='f') or (z=2);
case q of
0: begin
        xr:=xs-m;
        xl:=xs-4*m;
        if xl>=1 then begin
                writeln('examine ',xl,' ',ys);
                readln(odg);
                if odg[1]='t' then xr:=xs-2*m;
        end;
  end;
1: begin
        xr:=xs+m;
        xl:=xs-2*m;
        if xl>=1 then begin
                writeln('examine ',xl,' ',ys);
                readln(odg);
                if odg[1]='t' then xr:=xs;
        end;
  end;
2: xr:=xs+2*m;
end;
case z of
0: begin
        yr:=ys-m;;
        yd:=ys-4*m;
        if yd>=1 then begin
                writeln('examine ',xs,' ',yd);
                readln(odg);
                if odg[1]='t' then yr:=ys-2*m;
        end;
  end;
1: begin
        yr:=ys+m;
        yd:=ys-2*m;
        if yd>=1 then begin
                writeln('examine ',xs,' ',yd);
                readln(odg);
                if odg[1]='t' then yr:=ys;
        end;
  end;
2: yr:=ys+2*m;
end;
writeln('solution ',xr,' ',yr);
readln;
end.

---