dc output formating

14.6.2008 21:08 | Linux | Přečteno: 1096× | Komentářů: 9, poslední 18. 8. 2008 | Hodnocení: 100 % (9 hlasů)

Po dlouhé době jsem si zkusil napsat nějakou prkotinu v dc pro kterou jsem potřeboval formátovat výstup. Prostředky dc jsou v tomto směru skutečně omezené. No skoro by se dalo napsat prakticky žádné. Prostě nic. Všechno si člověk musí napsat sám. Naštěstí v tomto případě toho nebylo moc.

mysql: Can't create table

11.6.2008 13:29 | Linux | Přečteno: 1921× | Komentářů: 6, poslední 15. 7. 2008 | Hodnocení: 57 % (7 hlasů)

mysql: ERROR 1005 (HY000) at line 21: Can't create table './dbname/tablename' (errno: 150)

Informativní chybová hláška, že? Z toho je na první pohled jasné, v čem je chyba. No přece ...

Mizerná knížka, ale dobré cvičení

25.9.2007 22:26 | erlang | | Přečteno: 1601× | Komentářů: 16, poslední 19. 11. 2007 | Hodnocení: 60 % (5 hlasů)

O víkendu jsem si vzal do vlaku na čtení Algoritmy, Datové struktury a programovací techniky od Computer Pressu. Ta kniha je plná chyb, popisky v textu nesouhlasí s obrázky, na mnoha místech nesmyslně přeložená a spousta dalších podobných nepříjemností. Část z toho vzniklo zjevně při překladu, ale dost hodně je také věcí velmi mizerné redakce. To je ale u Computer Pressu celkem obvyklé, skoro by se dalo říct, norma. Nicméně mě to přimělo si některé příklady zkusit vyřešit jen tak cvičně.

Erlang a výkon mezi skriptovacími jazyky

13.9.2007 18:04 | Linux | | Přečteno: 1825× | Komentářů: 10, poslední 17. 9. 2007 | Hodnocení: 67 % (6 hlasů)

V diskusi pod článkem o lua na rootu je odkaz na jeden benchmark skriptovacích jazyků. Řekněme si na rovinu, že zvolená úloha je pro skriptovací jazyky zcela nevhodná. Nicméně mě zajímalo jak na tom bude erlnag, pro který je taková úloha snad ještě nevhodnější. Výsledkem jsem byl docela překvapen. HiPe verze erlangu se překvapivě dostala s relative speed 14.75 mezi Java 1.4.2 a Io 20070410 Vector a bez HiPe s relative speed 47.5 mezi Lua 5.1 a ocaml bytecode 3.09.2. To rozhodně není špatné.

fp? WTF? Functional Perl!

5.7.2007 15:42 | Perl | Přečteno: 1425× | Komentářů: 10, poslední 6. 7. 2007 | Hodnocení: 100 % (8 hlasů)

To si jednou takhle brouzdám po CPANu a hledám binding do Erlangu a pak mě napadne kouknout se kolem. Kromě toho, že jsou tam k nalezení moduly k telekomunikačním výpočtům Erlang B a C, které vymyslel ten člověk po němž dostal Erlang jméno (jo to je ten chlápek jehož obrázek se objeví na začátku a na konci toho Monthy Pythoního filměčku Erlang The Movie), tak je tam k nalezení i takový srandovní modul jménem fp.

Rekurze v erlang shellu

4.7.2007 11:46 | erlang | Přečteno: 1185× | Komentářů: 5, poslední 5. 7. 2007 | Hodnocení: 100 % (12 hlasů)

Jedna z výtek na adresu erlangu, co jsem zaznamenal, je nemožnost napsat rekurzivní funkci přímo v shellu. Přitom je to spíše příznak nedostatku informovanosti. Přiznám se bez mučení, že jsem to taky ze začátku nevěděl, protože k tomu je potřeba devilish ingenuity (slovy Joe Armstronga na straně 57). Ve výše odkazované disertační práci je jako ukázka výpočet faktoriálu.

Funkcionální hrátky

18.4.2007 14:44 | erlang | | Přečteno: 1577× | Komentářů: 5, poslední 19. 4. 2007 | Hodnocení: 88 % (8 hlasů)

Když zdrojový kód zkrátíte a zároveň vám vzroste rychlost exekuce, tak si můžete být skoro jistí, že už do toho pomalu pronikáte. Prohlížel jsem si takhle nějaký kód v erlangu a viděl jsem tam takovou hezkou vychytávku (stejná myšlenka je použita níže ve funkci mapper/2 a collector/2), kdy dotyčný procházel pomocí lists:foldl list a zároveň z něho vytvářel slovník (dict). No a pak mě napadlo jestli bych taky nemohl přepsat stavový algoritmus z mého prvního erlangového modulu na rekurzivní, ale se schopností foldl/foldr funkce a pak ostatní funkce jako map a perms přepsat se stejným trikem. Zároveň mi vrtalo hlavou jestli se to náhodou nezrychlí a byl jsem dost překvený, nárust výkonu byl více než dvojnásobný a kódu dost podstatně ubylo (dostal jsem se na 1,1 us což je ani ne 2x víc než v C napsaný Alghoritm-Permute pro perl!).

Tail rekurze v erlangu

14.4.2007 10:06 | erlang | | Přečteno: 1280× | Komentářů: 8, poslední 15. 4. 2007 | Hodnocení: 86 % (7 hlasů)

Ve funkcionálních jazycích se spousta (většina?) algorimů zapisuje jako rekurze. Nejinak je tomu i u erlangu. Jenže rekurze je pro normální dnešní CPU fuj a tak se to řeší (a nejen ve funkcionálních jazycích) tzv. tail rekurzí. Prakticky jde o nahrazení rekurze cyklem a nealokuje se kvůli tomu další paměť na zásobníku, ale různé jazyky se s tím umí vyrovnat různě.

Můj první erlang modul

13.4.2007 17:56 | erlang | | Přečteno: 2088× | Komentářů: 20, poslední 16. 4. 2007 | Hodnocení: 100 % (13 hlasů)

Nedávno jsem narazil na úžasný nový (pro mě), průmyslově ověřený funkcionální jazyk. Jmenuje se Erlang. Jeho vlastnosti mě přiměly říct wow! Posuďte sami. Za pozornost stojí například distributed (no on je to taky tak trochu komplet OS co se dokáže tvářit, že jede jako by jeden homogenní OS na heterogenním HW) a Hot code upgrade (viz example 14), nebo "Mnesia is a nice example of the power of Erlang: in how many languages could you write a fully-featured industrial-strength distributed DBMS in less than 20,000 lines of code?"

Perlová magie 2 aneb zákeřnost

2.2.2007 14:42 | Perl | Přečteno: 1466× | Komentářů: 23, poslední 5. 2. 2007 | Hodnocení: 83 % (6 hlasů)

Při ladění jednoho kusu kódu jsem narazil na další perlovou nechutnost. Vyzkoušejte sami:

perl -le 'sub a {@{$_[0]}}; sub b {a($_[0]), a($_[1])}; print scalar b([1,2], [3,4,5])'

perl -le 'sub a {@{$_[0]}}; sub b {a($_[0]), a($_[1])}; print scalar(@c=b([1,2], [3,4,5]))'

try/except/finally in Perl

6.1.2007 11:41 | Perl | Přečteno: 1380× | Komentářů: 9, poslední 9. 1. 2007 | Hodnocení: 85 % (13 hlasů)

Většinou prograuju v Perlu, ale zároveň po očku sleduju Python. Můj pocit z něj se vyvýjí v takových vlnách, chvilku se mi líbí hodně, chvilku méně a tak pořád dokola. Některé věci se mi v něm líbí, ale poslední dobou je pocit spíše rozpačitý. Jeho syntaxe je, jak bych to jen řekl, příliš košatá. Ony se dělají vtípky na to, že Perlový zdroják je před komprimací k nerozeznání od stavu po komprimaci. Hloupej vtípek, ale syntaxe Perlu je vlastně strašně jednoduchá až primitivní, to se ale o Pythonu nedá říct ani omylem. Už jen těch klíčových slov! I když ke klíčovým slovům Perlu přihodím všechny ty podivné znaky se speciálním významem, tak to nebudu ani na desetině syntaktických prvků Pythonu. Jo, já vím, Lisp je Lisp, ale Perl má taky něco do sebe. (No a radši nebudu ani zmiňovat dc, že) A proč to všechno píšu?

sub vs do performance in Perl

5.1.2007 16:00 | Perl | Přečteno: 1120× | Komentářů: 1, poslední 5. 1. 2007 | Hodnocení: 88 % (8 hlasů)

Tak jsem uvnitř podmínky grepu potřeboval vyhodnotit nějakou složitější věc a měl jsem možnost napsat to jako annonymní sub a nebo do. Položil jsem si otázku co bude rychlejší?

Perlová magie

6.12.2006 16:14 | Perl | Přečteno: 1735× | Komentářů: 42, poslední 7. 12. 2006 | Hodnocení: 67 % (9 hlasů)

Myslíte si, že umíte perl?

Bešová minilaskonka

7.6.2005 10:00 | BASH | Přečteno: 1972× | Komentářů: 12, poslední 14. 10. 2005 | Hodnocení: 100 % (1 hlasů)

Dnes to bude jen taková drobnost. Implementace basename a ověření platného jména proměné.

Bešové laskominy

26.5.2005 16:03 | BASH | Přečteno: 2114× | Komentářů: 6, poslední 27. 5. 2005 | Hodnocení: 100 % (1 hlasů)

Občas by člověk potřeboval něco naprogramovat v BASHi a nepamatuje si, nedělá to často a tak. No a k tomu by se mu hodily nějaké tu základní konstrukce vytesané do webu.

Eratosthenovo síto v dc

18.5.2005 16:30 | Linux | Komentářů: 12, poslední 19. 5. 2005 | Hodnocení: 100 % (1 hlasů)

Další z řady šíleností. Eratosthenovo síto v dc. Rychlost nic moc, ale padlé na hlavu je to dost.

dc -e '?dSavSb[SadLa+d1r:cdla>e]se[dlexsz]sd1[1+d;c0=ddlb>f]dsfx[p]sdlaSb1lfx'

Updated:

Trošku rychlejší verze inspired by Yeti.

dc -e '?dSavSb[d1r:cSadLa+dla!<e]se[ddSa2*Lad*lexszsz]sd3[d;c0=d2+dlb!<f]dsfx[p]sdlaSb2p3lfx'

Pokud někdo vyžaduje výsledek na jednom řádku tak koncovou část [p]sdlaSb2p3lfx je možné nahradit [[,]Pdn]sdlaSb2n3lfx10P

P.S.: Jsem si vědom, že zbytečně plýtvám pamětí (nad 100000 je to prakticky nepoužitelné), ale myslím, že by to hodně zpomalilo dělat nějaké přepočty indexů (nahrazením d1r:c za d2/1r:c a d;c za d2/;c se spotřeba paměti zmenší na polovinu, ale taky bohužel rychlost) a hlavně jsem línej to předělat ;-) .

Největší společný dělitel

9.3.2005 20:57 | Linux | Komentářů: 11, poslední 10. 3. 2005

Tak jsem se mrknul co dovede dc. Fakt užitečná hračička. Tak třeba jak udělat program pro nalezení největšího společného dělitele. Brnkačka:

dc -e '[r]sb[szpq]sc[sadlarla>b~d0=cldx]sd??ldx'

sed 'x;1!H;$!d;x'

Updated: Takže to mám blbě a až budu mít čas tak to zkusím přepsat.

Updated2: Po obědě se makat nechce, tak konečně fungující verze.

dc -e '[rSadLar%d0<a]sa??laxsap'

dc -e '[rSadLar%d0<a]sa[a=]P?[b=]P?laxsa[result:]Pp'

Updated3: Zkrácení o jeden znak a ochrana před poškozením od uživatele.

dc -e '??[rSadLar%d0<a]dsaxsap'
dc -e '[a=]P?[b=]P?[rSadLar%d0<a]dsaxsa[result:]Pp'

Updated4: Nějak nemám den nebo co. Ještě kratší verze.

dc -e '??[dSarLa%d0<a]dsaxsap'
dc -e '[a=]P?[b=]P?[dSarLa%d0<a]dsaxsa[result:]Pp'

Updated5: A ještě jeden znak.

dc -e '??[dSarLa%d0<a]dsax+p'
dc -e '[a=]P?[b=]P?[dSarLa%d0<a]dsax+[result:]Pp'

Quicksort

6.3.2005 13:00 | Linux | Přečteno: 4015× | Komentářů: 13, poslední 7. 6. 2007 | Hodnocení: 100 % (1 hlasů)

Nemaje klasického informatického vzdělání byl jsem toho ve škole ušetřen. O čem mluvím? Všechny ty algoritmy pro třídění a tak. No a pak to člověk potřebuje a neví. Když už to zjistí, tak si to chce vytesat do kamene. Ehm do webu. Tak taky rozšířím zbytečně duplicitní stránky, na kterých je taková, nebo onaká implementace quicksortu. Až to zas někdy budu potřebovat a jestli bude abíčko ještě existovat, tak to třeba tady najdu.

Co mi vadí na FF a Mozille?

15.2.2005 12:13 | Linux | Přečteno: 2908× | Komentářů: 33, poslední 26. 2. 2005

Nemám rád lidi, co se přímo rozplývají nad FF nebo Mozillou. Mám u nich pocit, že jsou přinejmenším zaslepení. Přemíra ,,chytrosti`` některých progremů je totiž na pováženou. Krom nedomyšleností, které jsem už párkrát uvedl jinde, jsem narazil na jednu, kterám mě ,,pobavila``. Kdo máte rádi FF a Mozillu raději nečtěte dále, protože se vašemu miláčkovi dostane vybraných slov.

BASH - IFS je mocná zbraň

11.2.2005 12:15 | BASH | Přečteno: 10128× | Komentářů: 6, poslední 11. 2. 2005 | Hodnocení: 100 % (1 hlasů)

Tak jsem zase potřeboval něco naprogramovat. Člověk by si řekl, když nevím jak na to v bashi, použij něco silnějšího, třeba perl. Ale to bych nebyl já, kdybych to aspoň nezkusil. Takže máme nějaký textový soubor s daty z měření a v něm za komentářem jsou popisky jednotlivých sloupečků. Kdyby to byla jen jedna série s jedněmi popisky, tak je to naprosto jednoduché, ale těch sérií je víc a jak na potvoru každá má jiné popisky. No a já z toho chci vytvořit příkaz pro gnuplot s tím, že si uživatel může vybrat kterou sérii a který sloupeček chce zobrazit. To vyžaduje mít možnost načíst jednotlivé popisky do proměných a pak se přes indexy k nim dostat při zpracování parametrů na příkazovém řádku.

Prametry v BASHi? Snadno a konfortně!

9.2.2005 18:55 | BASH | Přečteno: 2471× | Komentářů: 3, poslední 6. 1. 2006 | Hodnocení: 100 % (1 hlasů)

Občas je potřeba udělat ve scriptu zpracování parametrů a když už, tak pořádně. Nejdřív jsem to dělal všechno přes bash a jeho expanze a dokázal jsem si udělat prakticky cokoli, co jsem si usmyslel, ale bylo to trošku nepřehledné a pracné. A pak jsem objevil getopt (getopts v bashi je taková hračka, která mě teda rozhodně neuspokojila).

Awk & sed: Příručka ... - a co BASH?

9.2.2005 15:03 | BASH | Přečteno: 3190× | Komentářů: 0 | Hodnocení: 100 % (2 hlasů)

V článku jsem se dočetl o zajímavé knížce a nejen já. Kolega ji dokonce pořídil do firmy. Tak jsem si v ní zalistoval. Narazil jsem na dobrej příklad kdy nepoužít sed. Je to hned první příklad použití editoru sed 3.4.1 Vyhledávání souborů v adresářích v PATH.

I ty Pichi

3.1.2005 07:45 | Kecy | Komentářů: 0