Posterous theme by Cory Watilo

Land of Lisp

So, you still don't think it's worth learning Lisp?

Well, you'll have to make your own decisions on how to make the best use of your valuable free time. However, Lisp really does contain some great programming ideas that you may never encounter anywhere else.

In the interactive comic below (adapted from the epilogue of the book) I've given my best shot at explaining, precisely, what the most interesting features in Lisp are that you'd be missing out on... So why don't you give it a quick read?

Oh, and be sure to click on all the throbbing text!























Paul és Claudia szerelmi élete?

UP: Meghalt az Andy Vajna sikereit is elhomályosító sztár

Uj Péter| Népszabadság|2010. október 27.

Lemaradtam a sátoros zászlóbontásról, és hogy az internet segítségével megalakult, aminek meg kellett (a számítógép észrevétlenül része lett hétköznapjainknak), amire föleszméltem, megdöglött, illetve elhalálozott Közép-Európa legnagyobb jósa (nem, nem Frabato, aki megzavarta a műtőlámpát, de nem is Lui, aki már tudja az X-Faktor végeredményét), Paul, a polip. (A polip egy úgynevezett tengeri állat, amelynek nyolc „karja", ezzel szemben mindössze egyetlen, ráadásul húgyhólyag formájú feje van, és tengerben, konkrétan a víz alatt él; „karjain" található úgynevezett „tapadókorongjaival" kitűnően tapad meg bármilyen sima felületen, pl. üvegen, csempén, járólapon vagy csiszolt kőburkolaton, annak ellenére, hogy természetes élőhelyén, a tengerek, óceánok mélyén ilyen dolgok csak elvétve találhatók.) Egyébként meg a puhatestűek (Mollusca) törzsének egyik osztályáról (fejlábúak, Cephalopoda) beszélünk konkrétan.

Paul jelenlegi tudásunk szerint a valaha élt Legtöbb Világbajnoki Futballmeccs Eredményét Megjósló Gerinctelen Állat a világon, ami világszerte világrekord, ebből is látszik, hogy a német önkormányzati rendszer mennyivel fejlettebb, marketingötleteiben a világ leghosszabbb lókolbászánál, legkisebb tökös-mákos rétesénél és a széllel szemben hugyozásnál megragadt magyar településeket Június 17. strassze-hosszal veri.

Az oberhauseni Sea Life (tengeri élet) akvárium gyászjelentése szerint a nyáron sikerrel fölépített és még Andy Vajna vagy Dzsudzsák Balázs világsikereit is elhomályosító világsztár tetemét csütörtök hajnalban találta meg gondozója. Idegenkezűségre vagy kábítószer-használatra utaló nyomot nem találtak a helyszínen. Mindöszsze két és fél évet élt. „Természetes okból, békében, nyugodt körülmények között élve halt meg” –nyilatkozta róla Stefan Porwoll gondozó, aki minden bizonnyal nagyon szomorú volt, hiszen hosszú évek szívós és szisztematikus munkája veszett kárba az értelmetlen tragédiával.

A Lábasfejű Orákulum (paneljavaslatom a magyar sajtónak, lásd még: „nyuszis magazin”, „taláros testület”, „szexi sztár”) elvesztése ugyan komoly csapás az Emscher-parti iparvárosnak, de az utóbbi években a világ élvonalába fejlődött német sztárállatipar aligha torpan meg, alighanem valahol már – egy vidéki kiscsapatban, fővárosi intézetben, ki tudja? – utánpótlásnevelik a következő nagy sportesemény eredményeit megjóslandó hüllőt, csigát, rovart vagy moszatot.

De a németeknek különben is ott van még Knut, a gondatlan, mélyszegény szülei által magára hagyott berlini jegesmedvebocs is, aki önmagában nagyobb híresség, mint Kelet-Közép-Európa teljes faunája pannon gyíkostul, homoki viperástul, túzokostul.

A mi adóforintjainkból csak egy nyomorult kettős struccgyilkosságot sikerült kitalálni, ez tényleg szánalmas, enbékettes, jellemző az Orbán-kormány szellemi, szakmai és erkölcsi színvonalára. Nem csoda, ha ilyen teljesítménnyel ferde szemmel néznek ránk az Európa-házban, és az egykori bezzegországból mára megvetett páriák lettünk.

(Mondjuk esélyünk talán még van, ha nem is sok, de mindenképpen reális: fény derülhetne például valami összefüggésre Paul és Liptay Claudia szerelmi élete között, esetleg Andy Vajna megszerezné a tetemet, és fölkerülne az étlapra a Nobuban.)

via nol.hu

Ti tá tá tí tá tá tátátáá, ti tí tá tá tátátááá

Lázár János a Fidesz parlamenti frakcióvezetője válaszul bejelentette: kezdeményezi az alkotmány módosítását, hogy azok a kérdések, amelyekről nem lehet népszavazást tartani, kerüljenek ki az Alkotmánybíróság (Ab) hatásköréből
A Galaxis békéjének és megszilárdításának érdekében, Uniónkat új alapokra helyezzük. Mától a neve, I. Galaktikus Birodalom!’” ( Palpatine Császár )

(Source: index.hu)

És ha 10 millió majom használna AWK-t?

Cross posted from Proggit. Though they don't show self-posts there, so it is good as dead. Copy and paste to terminal and enjoy!

awk 'function wl() {rate=4000; return int((rate/160)*(0.87055^(int(rand()*10))))}; BEGIN {srand(); wla=wl(); while(1) {wlb=wla; wla=wl(); if (wla==wlb) wla*=2; d=(int(rand()*10+5)*rate/4); a=0; b=0; c=128; ca=40/wla; cb=20/wlb; de=rate/10; di=0; for (i=0;i<d;i++) {a++; b++; di++; c+=ca; c+=cb; if (a>wla) {a=0; ca*=-1}; if (b>wlb) {b=0; cb*=-1}; if (di>de) {di=0; ca*=0.9; cb*=0.9}; printf("%c",c)}; c=int(c); while(c!=128) {c<128?c+=1:c-=1; printf("%c",c)};};}' > /dev/dsp

If you run OSSv4, use rate=64000 Someone with a better sense of pitch might want to find rate numbers that are more in tune. If it stutters on your computer (though you'd need to have a Pentium 2 for this to happen) use mawk instead.

It uses a pentatonal scale, so it'll probably sound slightly out of tune no matter what you do.

It is also my first awk script, go easy on me. Improvements welcome.

Edit: formatted for your viewing pleasure.

awk 'function wl() {\
        rate=4000; \
        return int((rate/160)*(0.87055^(int(rand()*10))))}; \
    BEGIN {\
        srand(); \
        wla=wl(); \
        while(1) {\
            wlb=wla; \
            wla=wl(); \
            if (wla==wlb) \
                wla*=2; \
            d=(int(rand()*10+5)*rate/4); \
            a=0; b=0; c=128; \
            ca=40/wla; cb=20/wlb; \
            de=rate/10; di=0; \
        for (i=0;i<d;i++) {\
            a++; b++; di++; c+=ca; c+=cb; \
            if (a>wla) \
                {a=0; ca*=-1}; \
            if (b>wlb) \
                {b=0; cb*=-1}; \
            if (di>de) \
                {di=0; ca*=0.9; cb*=0.9}; \
            printf("%c",c)}; \
        c=int(c); \
        while(c!=128) {\
            c<128?c+=1:c-=1; \
            printf("%c",c)};};}' > /dev/dsp