Mercurial > repo

view interps/linguine/bfi.lng @ 5674:91d4a5b788c9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<tswett> echo \'[11,11,11,15,15,23,12],[5,5,5,3,53,45,16,26,00,20,15,16,22,25,45,91,32,11,15,27,06,01,11,01,47,22,30,13,43,21,11,13,29,61,65,17,19,12,28,17,11,01,23,20,16,20,81,18,32,25,58,22.,1985,10.301350435,1555466973690094680980000956080767,13720946704494913791885940266665466978579582015128512190078...\' > wisdom/code
author HackBot
date Wed, 24 Jun 2015 14:47:46 +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