Mercurial > repo

view interps/linguine/pi.lng @ 11562:6b0304dcec5c draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<oerjan> ` cd bin; cp welcome \xd0\xb4\xd0\xbe\xd0\xb1\xd1\x80\xd0\xbe-\xd0\xbf\xd0\xbe\xd0\xb6\xd0\xb0\xd0\xbb\xd0\xbe\xd0\xb2\xd0\xb0\xd1\x82\xd1\x8c; sled \xd0\xb4\xd0\xbe\xd0\xb1\xd1\x80\xd0\xbe-\xd0\xbf\xd0\xbe\xd0\xb6\xd0\xb0\xd0\xbb\xd0\xbe\xd0\xb2\xd0\xb0\xd1\x82\xd1\x8c//s,welcome,welcome.ru,
author HackEso <hackeso@esolangs.org>
date Wed, 16 May 2018 04:46:17 +0100
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