Mercurial > repo

view src/ploki/examples/facul.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

#!/usr/local/bin/ploki
@x \ARG:1 . 1 _"
END
FOR x IF \@ < 2
		KTHX @OMFG \@
	FI
	LEET x \@
KTHX @OMFG (@x (x - 1) . (x * \@))