Po drátě 6: Řešení úlohy č. 59

Ach, ta vogonská poezie! Nebo že by to bylo něco jiného? Nadpis vypadá podezřele - když naťukáme na klávesnici to, co slyšíme, vypadá to skoro jako #!/usr/bin/perl. Nakonec to tedy nebude od vogonština, ale jen docela obyčejný perl. Stačí jen přepsat:

#!/usr/bin/perl

@a=("rajon", "rejp", "pejr", "roup", "pantograf", "rmen", "pohyb",  "paragraf", "raroh");

for (@a) {
        s/^(.).*(.)$/$1$2/;
        s/(.)/$1 gt "f" ? chr ( ord($1) -8 >> 1 ): $1/ge;
        print chr hex;
}
print "\n";

Po spuštění program vypíše heslo STETOSKOP.

Autorem úlohy je Komise pro realizaci, revitalizaci, restrukturalizaci a recitaci poezie při podrate.cz. (RRRRP, uznejte že i ta slova v programu byla srozumitelnější.)