99 alaus butelių daina arba labai geekiška programavimo kalba

Yra tokia monotoniška angliška daina: 99 alaus buteliai ant lentynos. Prasideda daina taip:

99 bottles of beer on the wall, 99 bottles of beer!
Take one down, pass it around,
98 bottles of beer on the wall!

Ir taip tesiasi kol baigiasi tie buteliai. Galima parašyti programą kuri šios dainos teksta atspausdina ant ekrano. Nieko ten sudėtingo. Tačiau yra tokia labai labai geekiška programavimo kalba “perl". Šiaip, ji sukurta apdoroti tekstui ir turi visokių įdomių teksto apdorojimo prigulnybių. Nors ir kiek moku šią kalbą, man jos užkeikimai su visokiais skliausteliais, apostrofais, šliašais ir kitais simboliais nesuprantama… O štai kaip sugeba programuoti šios kalbos specialistai. Tai minėtos dainos printeriavimo source kodas:

99 bear bottles

Ir kas gi gaunasi, kai šią programą paleidi šele? Ogi taip:
99 bottles on the wall, take on down, pass around.
Kas žino geegiškesnę nesamonę? :)

10 Responses to “99 alaus butelių daina arba labai geekiška programavimo kalba”

  1. jonas Says:

    Yra dar yra tokia ezoterine kalba malbolge , stai kaip atrodo labas pasauli programa :

    ('&%:9]!~}|z2Vxwv-,POqponl$Hjig%eB@@>}=

    tokia,gan lengvai suprantama kalba :D

  2. jonas Says:

    Oi, blyn, kaip iskreipe programos koda, na wikipedijoje galit paziuret…

  3. Administrator Says:

    nu worpressas turi nupjaustyti įtartinus kablelius :) Jis net javascriptą iškastruoja todėl tenka pavargti su tais kalkuliatoriais.

  4. ligonis Says:

    o tam perl turi itakos tarpu skaicius?

    http://en.wikipedia.org/wiki/Brainfuck

    vos ne morzes kodas kompiuteriui :D

  5. Administrator Says:

    Biški paguglinau… Piet kalbos variacija (padidinta):
    99 bottles in Piet

  6. Administrator Says:

    Perlui tarpiukai neturi įtakos, jei jie nestovi kur nors kur jie reikalingi. Šaip, brainfukas, piet ir malbolge tai “ezoterinės" ir nepraktiškos kalbos. O štai perlas visiškai rimta kalba. Pvz. ant jos “sukasi" faunos puslapiai (tie kur atsidaro paspaudus ant kampinio arklio).

  7. Mantas Says:

    Tokie dalykai su Perl dažniau padaromi ne rankomis, bet per Acme::EyeDrops arba panašius dalykus: http://search.cpan.org/perldoc?Acme::EyeDrops

    Dar yra toks http://99-bottles-of-beer.net/ - visomis egiztuojančiomis kalbomis.

  8. kionig Says:

    Besidomėdamas Python, buvo paminėta ir apie PERL. O PERL, kūrėjas buvo lingvistas… :D O ne koks nors kompiuterių mokslo inžinierius :)

  9. jonas Says:

    99 buteliu programa parasyta LOLCODE programa manau yra pati geekiskiausia :D

    http://99-bottles-of-beer.net/language-lolcode-1544.html

  10. tomas Says:

    kionig: bet tuo metu kompiuterių mokslo inžinierių, kaip tokių ir nebuvo. Buvo fizikai, matematikai, astronomai, na ir lingvistai.

    O kalbant į temą: http://en.wikipedia.org/wiki/International_Obfuscated_C_Code_Contest

Leave a Reply

Bot-Check (Jei ne skaičiai spauskit refresh. Tik oranžinius naudoti.)

Unhappy Tikbalang