Mercurial > repo

view src/ploki/examples/omfg.pk @ 11328:56b2bb1446bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<wob_jonas> perl -e open$h,"<",($f="wisdom/font");local$/;$_=<$h>;s/ \\S+sample\\.png// or die; if (1) { open $o,">",$f;print$o $_; } print;
author HackBot
date Wed, 17 Jan 2018 21:00:31 +0000
parents ac0403686959
children
line wrap: on
line source

#!../ploki
WUNT "2+3\t-3+24\t2+24\t-3+3
LET a @ADD 2
LET a$ @ADD @NEG 3
WUNT \AUSG a.3 _ "\t" _ (a$.24) _"\t "_(a.24)_"\t "_(a$.3)_"
END
FOR ADD LEET X \@
KTHX @OMFG(X + \@)