Mercurial > repo
view interps/linguine/pi.lng @ 2864:2d427b75daf1
<Jafet> echo \'const short main[] = {18517,58761,49201,49801,49407,51081,3816,0,18432,27749,28524,8236,28535,27762,8548,24074,3762,1295,15536,65329,1295};\' > hi.c && gcc hi.c -o hi && ./hi
author | HackBot |
---|---|
date | Sun, 05 May 2013 16:09:40 +0000 |
parents | 859f9b4339e6 |
children |
line wrap: on
line source
'pi calculator in Linguine 'Programmed by Jeffry Johnston, 2005 1[0=1,1=0,2=1,3=1,4=46]2 2[5=*0,5+*0,5+*0,-2=*5,-2+*1,-3=*2,-1=3]16 3[6=*-2,-2=*5,-2+*0,-2+*1,-1=4]16 4[6~*-2:8,-3=*3,-3+*3,-3+1,-2=*2,-1=5]14 5[2=*-2,1+*0,1+*0,-2=*1,-1=6]14 6[1=*-2,-2=*0,-3=*3,-1=7]14 7[0=*-2,3+1]2 8[6#,4~46:9]10 9[4$,4=0]10 10[-2=*0,-3=10,-1=11]14 11[0=*-2,-2=*2,-3=*6,-1=12]14 12[1-*-2,-2=*1,-3=10,-1=13]14 13[1=*-2]2 14[-4=*-3,-5=*-2,-2=0]15 15[-4~0:*-1,-2+*-5,-4-1]15 16[-4=*-2,-2=0]17 17[-4<*-3:*-1,-4-*-3,-2+1]17