forest blog

Zadání jsem zmínil včera, tady je moje řešení (nic optimalizováného, protože čas talčil, takže dost velká prasárna):

program projekt;
 uses crt;
 const rozmer = 8; { rozmer sachovnice }
 var pocet: integer;
 function strana(aktualni,pohyb:integer):integer; begin
  if aktualni = 0 then strana:=pohyb else begin
   if (((aktualni=3) OR (aktualni=4)) AND ((pohyb=1) OR (pohyb=2))) OR
      (((aktualni=1) OR (aktualni=2)) AND ((pohyb=3) OR (pohyb=4))) then strana:=aktualni;
   if (((aktualni=3) OR (aktualni=4)) AND ((pohyb=3) OR (pohyb=4))) OR
      (((aktualni=1) OR (aktualni=2)) AND ((pohyb=1) OR (pohyb=2))) then strana:=0;
  end;
 end;
 function retezec(x,y:integer):string;
  var pomocna,pomocna2: string;
 begin
  str(x,pomocna);
  str(y,pomocna2);
  retezec:=pomocna+pomocna2;
 end;
 function volno(x,y:integer;cesta:string):boolean;
   var i:integer;
       pomocna,pomocna2,pomocna3:string;
  begin
  i:=1;
  volno:=true;
  str(x,pomocna2);
  str(y,pomocna3);
  pomocna2:=pomocna2+pomocna3;
  for i:=1 to (length(cesta) div 3) do begin
   pomocna:=cesta[(i-1)*3+2]+cesta[(i-1)*3+3];
   if pomocna = pomocna2 then volno:=false;
  end;
 end;
 procedure tah(x,y,hloubka:integer;cesta:string;kostka:integer);
   var pomocna: string;
  begin
  if hloubka = sqr(rozmer) then begin
   writeln(cesta);

   inc(pocet);
  end else begin

   pomocna:=cesta+’,'+retezec(x+1,y);
   if (NOT (x=rozmer)) AND volno(x+1,y,cesta) AND (NOT (kostka=1)) then begin
    tah(x+1,y,hloubka+1,pomocna,strana(kostka,1));
   end;
   pomocna:=cesta+’,'+retezec(x-1,y);
   if (NOT (x=1)) AND volno(x-1,y,cesta) AND (NOT (kostka=2)) then begin
    tah(x-1,y,hloubka+1,pomocna,strana(kostka,2));
   end;
   pomocna:=cesta+’,'+retezec(x,y+1);
   if (NOT (y=rozmer)) AND volno(x,y+1,cesta) AND (NOT (kostka=3)) then begin
    tah(x,y+1,hloubka+1,pomocna,strana(kostka,3));
   end;
   pomocna:=cesta+’,'+retezec(x,y-1);
   if (NOT (y=1)) AND volno(x,y-1,cesta) AND (NOT (kostka=4)) then begin
    tah(x,y-1,hloubka+1,pomocna,strana(kostka,4));
   end;
  end;
 end;
begin
 clrscr;
 pocet:=0;
 tah(1,1,1,’ 11′,0);
 writeln;
 writeln(’Pocet reseni: ‘,pocet);
 readkey;
end.

spustitelné je to jenom ve Free Pascalu, v Tubro nebo Borland Pascalu přeteče zásobník…

Dneska zas pod mrakem, zas nevyspalý a zas středa. Takže jsem se ráno musel nějak dostat z postele (poslední 3 dny jsem se pořádně nevyspal, protože se mi prořezává osmička…snad to brzo ustoupí). Ráno studijní skupina: já a Štajny jsme se vydali vzhůru do problému jednoho z nejvíce vyřazovacího přemět - Úvod do informatiky. Dopoledne jsme si zopákli znalosti na vnitrosemestrálku, která bude v pátek, a odpoledne jsem se pustil do dodělání bonusového projektu:

Představme si kostku s pěti černými a jednou bílou stěnou. Tuto kostku na začátku postavíme do jednoho rohu šachvnice 8×8 bílou stěnou nahoru. Dále už můžeme kostku převalovat přes její hrany tak, že kostka stále zůstává na šachovnici a její bílá stěna je stále viditelná.

Vašim úkolem je projít s kostkou každé pole šachovnice právě jednou za dodržení výše psaných podmínek. Kolika různými způsoby to lze udělat? Předpokládám, že pro nalezení správného řešení naprogramujete jednoduché prohledávání všech možností hrubou silou. Hledejte řešení také pro jiné rozměry šachovnic. (Jak velkou šachovnici váš program ještě prohledá?) více na stránce projektu

Vyřešil jsem to za pět minut dvanáct před termínem, ale vyřešil (body asi nezískám, alespoň jsem získal trochu programátorskho sebevědomí). Trochu se o projektu rozepíšu zítra, až bude definitivně uzavřeno odevzdávání. Mezitím jsem si odskočil na bazén, kde jsme uplaval krásných 1900 metrů za 53 minut (v rámci toho, že jsem moc nezapojoval nohy kvůli gymnastice):

100 m K rozplavání
2× (50 m Kn, 50 m Zn, 50 m Kr, 50 m Zr)
2× (50 m K, 50 m Z)
200 m P
2× (50 m K, 50 m Z; rychle, pomalu, pomalu, rychle)
50 m P, 50 m K, 50 m P, 50 m Z
100 m K vyplavání (konec povinného)
500 m K volně sám v bazénu

Po první stovce jsem myslel, že mi upadnou ramena (týden nicnedělání se podepsal úplně. Koleno drží a zlepšuje se, takže jsem rád (možná o víkendu půjdu v Havířově běhat, ale to ještě uvidím…). Na gymnasiku večer jsem se raději vyprdl - jistota je jistota a ortoped by nemusel pochopit můj sebedestruční sklon ;-)

Tak jsem vyrazil snad poprvé v životě na nějaké závody v běhání se jen podívat - vybral jsem si dobře. Halový světový pohár na 48 hodin zní dobře, takže jsem v pátek vzal nový foťáček, Panasonic DMC-FZ5, a vyrazil na Výstaviště, kde se v pavilonu Z odehrával souboj v běhu na 2 dny nonstop. Podmínky podmínky pro focení byly odpoledne naprosto ubohé - fotky byly zrnité, elektronika byla dost zblblá z prosvítajícího světla z venku do haly… V noci to už bylo o dost lepší, takže přiblejsknutím už to bylo skoro ono…kdyby jen mi akumulátor vydržel víc. Tak jsem alespoň zafandil Láďovi na šestihodinovce a pokecal se Svaťou, který v sobotu běžel dvanáctku… Do haly jsem dorazil ještě jednou - v sobotu v noci. Závodníci na 48 hodin byli ve 3. čtvrtině závodu - šla už dost poznat krize, která na všechny dolehla… Nejlépe to asi vystihl český závodník:”Ty vole, ták dlouhý kolo, do píííči!” (jediná věta, kterou jsem od něho slyšel…). Moje fotky na běhej.com a plná moje výběrovka (bohužel 95% fotek z haly je fakt totální odpod - prostě neměl jsem na to techniku abych tam něco dobrého nafotil)

Tak jsem se vrátil z vyšetření (ortopeda jsem nestihl, protože ne každý ultrazvuk má podespanou smlouvu s mojí pojišťovnou). Zpráva z ultrazvuku zní dobře:

Sono pravého kolenního kloubu: kloub je bez výpotku, menisky i postranní vazy jsou intaktní, lig. patellae je nor., fossa poplitea bez patol. UZ nálezu. Event. hematom ani jiné změny nenalezeny.

Ortoped to posoudí v pondělí. Ale dost mě zajíma, kde je teda průšvih, protože nohu ani nenarovnám a ani pořádně nezanožím (unguje na omezenou pohyblivost) a to se nebavím o “příjemném” pocitu při chůzi, kdy je noha nestabilní (jako by nebyla moje…).

Když v Havířově řeknete, že jdete do Sokola, tak jde do Petřvaldu do hospody… Akorát v Brně význam je naprosto jiný a nezavádějící. Když do Sokola, tak cvičit. Tak jsme se domluvili na středeční večer. U kasy nakonec pro jistotu kupujeme permici na 8 vstupů za 300, pán se nás říká, že se nám to třeba nemusí líbit - říkáme s Jirkou:”Musí!” (oba děláme znovu přijímačky) Pak Jiří nám ušetří 80 kaček tím, že jako první za poslední měsíc trefí nohu vrátnému na vzdálenost cca 8 metrů (dík Jiří, jsi šikulka!). Převlíknout, rozcvičit. Tělocvična je víc než supr. Je tady vše - 12×12 metrů “rojtrovky” (gymnastická pružná podlaha) až po bradla. Před náma cvičí tak prvnáčci - umí to tak o 1000% líp než všichni tělocvikáři dohromady, kteří se tam nakonec slezli jak švábi na pivo… Začínám sestavičkou na rojtrovce na přijímačky. OK, tak zkusím přidat přemet. Nejdřív s dopomocí do molitanové jámy a pak bez. A problém - bez pomoci jsem to přetočil a vyhodil si pravé koleno, naskakuje, snad bude v pořádku. Ale není to ono. Pak zkouším na rojtrovce přemet - děs a hrůza…furt to je na “paty”. Pak sestavička na hrazdě, aby ch si naplnil noční můru… Po hodině jsme mrtví… Pokud se chcete podívat na nějaké videa, tak vřele doporučuju moji prostnou, kde jde vidět jak se to nedělá!!!
p.s.: ráno jsem se probudil a nemohl jsem téměř hýbat s kolenem - zítra ortoped, takže uvidím (to snad ani s těma zraněníma není možné!)

Tak jsme s Adamem vyrazili na Lysou, jako obvykle. Ráno relativně hnusně, ale kolem poledne se to roztrhalo, takže jsme si užili krásný sjezdík. Více než slova budou lepší fotky… Takže skialpy a běžky jsou uloženy ve skříni a kolo je “skoro” připraveno k první vyjížďce.

Tak jsem ráno zas (po asi 14 hodinách) vyrazil znovu na bazén. Motiv byl naprosto jasný: 8×250 m krual s minutovým vydýcháním do vody… Takže krásné 2 kiláky za 52 minut. Pomalu zjišťuju, že čím častěji, tím mám méně špatný pocit (to je něco jiného než: lepší pocit) z plavání. Ale začínám mít strach z přijímaček, protože tam se neplave vytrvalost, ale stovka, což je naprosto jiná liga… Za nějaký měsíc bych si chtěl otestovat 3800 metrů souvisle, hádejte proč??? ;-)

Zní to blbě, ale dneska jsem si na bazéně večer připadal takhle - všichni plavali pomalu a já se furt musel vyhýbat…až jsem si připadal blbě. Takže jen rekapitulace: vše kraul 100 100 200 50 250 100 (čistý čas sem: 15:40) 200 400 300 za 45 minut (1700 metrů)… Snad vychytám dobu, kdy v dráze nikdo nebude - je to nepříjemné pro mě i pro ostatní, když se “předjíždíme”. Vyzkouším ráno jít na 10. hodinu (relativně málo času na regenraci…) - uvidíme… Začíná to pomalu vypadat, že víc naplavu než naběhám - ano je to tak, do toho psího počasí mě zatím nikdo nevytáhne!

Dneska to bylo na bazéně neslané nemastné… Ze začátku trápení, ale pak jsem vypnul mozek a nejdnou jsem zjistil, že plavu posledních 400 metrů naprosto souvisle… Takže rovné 2 kiláky za 52 minut. Nic moc. Teď se Tučňák nasírá, ale je to tak… Můj rozpis:

300 m rozplavání (kraul)
50 m Z nohy
50 m Z ruce
50 m Z nohy
50 m Z ruce
50 m K nohy
50 m K ruce
50 m K nohy
50 m K ruce
50 m P
50 m Z ruce
50 m Z nohy
50 m K tempo
100 m P
50 m Z tempo
100 m P
150 m vyplavání (kraul)
--konec povinného a zbytek jsem plaval souvisle kraul (tříkopák, jinak úseky šestikopák)

Asi každý zná ten pocit, že něco zapoměl, ale neví co… Takový pocit jsem měl v neděli, myslel jsem si že se jedná o něco do školy - nějakaá seminárka? nějaká knížka z knihovny? či já vím :-( Ale pak v úterý sednu na net a hle, už je mi vše jasné - zapoměl jsem na závody! Zní to neuvěřitělně, ale je to tak - řádně jsem se přihlásil, ale nedorazil, ač jsem měl na to čas… S takovou asi zapomenu i umřít. Takže alespoň výsledky ostatních, když už ne mě… i když na druhu stranu jsem v neděli ráno nadával na další příval sněhu a tímto vyjadřuji svůj prostest: KONEC ZIMY a tímto vyhlašuju prostní dobrou náladu, protože si ji nenecám zkazit takovou prkotinou jako je nekončící zima.