Mercurial > repo
diff interps/linguine/pi.lng @ 996:859f9b4339e6
<Gregor> tar xf egobot.tar.xz
author | HackBot |
---|---|
date | Sun, 09 Dec 2012 19:30:08 +0000 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/interps/linguine/pi.lng Sun Dec 09 19:30:08 2012 +0000 @@ -0,0 +1,19 @@ +'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