996
|
1 'BF interpreter in Linguine
|
|
2 'Programmed by Jeffry Johnston, 2005
|
|
3 1[*-2?,*-2~33:2,-2+1]1
|
|
4 2[*-2=-1,-2+1]3
|
|
5 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
|
|
6 4[*-2+1,*-2~256:5]15 '+
|
|
7 5[*-2=0]15
|
|
8 6[*-2?,*-2~-1:5]15 ',
|
|
9 7[*-2-1,*-2~-1:8]15 '-
|
|
10 8[*-2=255]15
|
|
11 9[*-2$]15 '.
|
|
12 10[-2-1]15 '<
|
|
13 11[-2+1]15 '>
|
|
14 12[*-2~0:13]15 '[
|
|
15 13[-3=1]16
|
|
16 14[-3=-1]16 ']
|
|
17 15[-1+1]3
|
|
18 16[-4=1]17
|
|
19 17[-1+*-3,*-1~91:18,*-1~93:19]20
|
|
20 18[-4+*-3]20
|
|
21 19[-4-*-3]20
|
|
22 20[-4~0:21]17
|
|
23 21[-3~1:15]3
|