Mercurial > repo

view interps/linguine/bfi.lng @ 2043:a38473ce31ac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<ais523> echo "#!/bin/sh" >bin/list; echo -n \'oldpwd=`pwd`; cd /var/irclogs/_esoteric; name=$(cat $(ls ????-??-??.txt | tail -1) | tail -1 | sed "s/[^<]*<//; s/>.*//"); cd $oldpwd; fgrep -q "$name" bin/list || echo -n "$name " >> bin/list; echo \' >> bin/list
author HackBot
date Thu, 07 Feb 2013 21:47:47 +0000
parents 859f9b4339e6
children
line wrap: on
line source

'BF interpreter in Linguine
'Programmed by Jeffry Johnston, 2005
1[*-2?,*-2~33:2,-2+1]1
2[*-2=-1,-2+1]3
3[-3=**-1,-3~-1:0,-3~43:4,-3~44:6,-3~45:7,-3~46:9,-3~60:10,-3~62:11,-3~91:12,-3~93:14]15            
4[*-2+1,*-2~256:5]15    '+
5[*-2=0]15
6[*-2?,*-2~-1:5]15      ',
7[*-2-1,*-2~-1:8]15     '-
8[*-2=255]15
9[*-2$]15               '.
10[-2-1]15              '<
11[-2+1]15              '>
12[*-2~0:13]15          '[
13[-3=1]16
14[-3=-1]16             ']
15[-1+1]3
16[-4=1]17
17[-1+*-3,*-1~91:18,*-1~93:19]20
18[-4+*-3]20
19[-4-*-3]20
20[-4~0:21]17
21[-3~1:15]3