Mercurial > repo

view interps/linguine/bfi.lng @ 8497:2c419f225667

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<izabera> ` echo \'for file do mapfile -t lines < "$file"; for (( i = ${#lines[@]} -1; i >= 0; i-- )) do printf "%s\\n" "${lines[i]}"; done done\' >> bin/tac
author HackBot
date Thu, 16 Jun 2016 09:40:02 +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