Mercurial > repo

view interps/linguine/int.lng @ 10000:20ae0b28393e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<izabera> ` echo \'sed "s/./& /g;s/.*/20k&p/" <<< "$*" | dc\' > bin/unaryrpn; chmod +x bin/unaryrpm; unaryrpm 111+/
author HackBot
date Tue, 20 Dec 2016 23:17:40 +0000
parents 859f9b4339e6
children
line wrap: on
line source

'ASCII digit to integer conversion (positive values only)
'Programmed by Jeffry Johnston, 2005
1[1?,1~10:2,0+*0,2=*0,0+*0,0+*0,0+*2,0+*1,0-48]1
2[0#]0