Po drátě 3: Řešení úlohy č. 7

Jak název přílohy (babylon.c) napovídá, v této úloze půjde o jazyky.

První jazyk je Céčko. Pravda, trochu zvláštní Céčko (main obvykle nebývá rekurzivní), ale zkompilovat jde a dokonce i spustit. Když tak učiníte, ejhle, vypadne další program. Úloha totiž připomíná matrjošku - stačí programy jenom kompilovat a spouštět, až ten poslední vydá heslo. Jediný problém je přijít na to, čím je vlastně kompilovat.

Druhý jazyk je už totiž zajímavější: Vypadá to na něco funkcionálního, komentáře se zřejmě píší za dvě pomlčky, pseudonápověda skrytá v morseovce v tom komentáři povídá nějaké nesmysly, ale radí také značně podezřelé slovo "monáda", některá klíčová slova vypadají poměrně googlitelně. Pokud nám to nebylo jasné ihned, trocha snahy by nás měla dovést k tomu, že je to Haskell. Jeho výstup nám vydá například ghc nebo hugs.

Třetí zdroják si také na nic nehraje, přesto jej na první pohled pravděpodobně poznají zejména ti, kdo ještě pamatují doby, kdy po zemi chodili plechoví dinosauři. Komu nestačí klíčová slova a formátování evidentně pocházející z časů děrných štítků, ten by se měl dostat k cíli prostým vygooglením komentáře: Ano, je to dědeček Fortran 77. Můžeme si na něj pustit dle distribuce třeba g77 nebo gfortran.

Poslední prográmek je úložkou nejen pro latiníky, ale také pro perlové hackery. Modulek Lingua::Romana::Perligata z klávesnice Damiana Conwaye využívá toho, že v perlu si každý může upravit svůj parser k obrazu svému, a dává nám tak první programovací jazyk na světě, který má flexi a díky tomu téměř naprosto volný slovosled: Perligatu. A jak na to přijít, pokud ji neznáte? Inu, v první řadě si musíte uvědomit, že je to skutečně program, nikoli latinská poezie - na to by měla navést indentace, v bloku začínajícím "per quisque" by i nepříliš jazykově nadaný hacker mohl tušit for cyklus. Potom už stačí googlit kandidáty na klíčová slova, fráze jako "programming in Latin" rovněž vedou k cíli okamžitě. Můžete si také všimnout slova Perligata, která obsahuje (ale nevypisuje - přesněji, vypisuje jen ve verzi zasílané jako nápověda) předcházející fortranovský program. Perlový skriptík můžeme spustit například příkazem "perl -MLingua::Romana::Perligata" a následně se nám dostane kýženého hesla.

Komentář

Céčkový program dekóduje velice jednoduše zkomprimovaný text. Obrovské pole curses[] rozebere na nibbly (4-bitové kousky), hodnoty 0-14 kódují nejčetnějších 15 písmen (viz pole broomsticks[]), nibble 15 značí, že se jedná o méně četné písmenko, jehož kód je uložen v následujících dvou nibblech.

Haskellový program je poměrně přímočarý - obsahuje jedno obrovské magické číslo skrývající text dalšího programu v 96kové soustavě, funkci impera, která jej převádí na ASCII kódy, a funkci pigLatin vytvářející výstupní string.

Ani fortranovský program nedělá nic složitého. Nachází se v něm pole A obsahující všechna slova vyskytující se v následujícím perlovém programu, pole X se seznamem pozic v poli A a cyklus, který slova z A podle X vypisuje. Můžete si všimnout i poněkud podezřelých čísel -1, která používáme k tomu, abychom z výstupu odstranili nadbytečné mezery.

Prográmek v Perligatě je zdaleka nejjednodušší. Doslovně přeložený z latiny do normální perlovštiny by vypadal nějak takto:

print STDOUT qq(Heslo je) . " ";
my $Repositori = qq(coc);
my $Temporali = qq(ci);
$Repositori = $Repositori . $Temporali;
my @Ageri = (qq(nel), qq(la));
unshift @Ageri, $Repositori;
foreach $Locul (@Ageri)
{
        print STDOUT $Locul;
}
print STDOUT "\n";

Podotkněme ještě, že psát a ladit v Perligatě složitější programy vyžaduje jisté zkušenosti a notnou dávku trpělivosti. Ve zdrojácích lze používat pouze římská čísla (zobecněná) a všechny chybové hlášky jsou v latině. Například touto hláškou vás Perligata oblaží, pokud do programu omylem napíšete středník:

Aliquod barbarum inveni: ';' ad versum XIV

Mezi nejpodivuhodnější špatná hesla, která chodila k této úloze, patří například lorem ipsum, kostel, curses nebo hello world.

Úlohu vymyslela Anička, dlouhý zimní večer si její výrobou krátila společně s Martinem.