Mine
public text v1 · immutableprogram pi
real n,s
integer i
n = 0
s = 0
i = 1000000
do while(n.LT.i)
s = s+((-1**n)/(2*n+1))
n = n+1
enddo
write(*,*) 'Pi: ',s*4
end program piprogram pi
real n,s
integer i
n = 0
s = 0
i = 1000000
do while(n.LT.i)
s = s+((-1**n)/(2*n+1))
n = n+1
enddo
write(*,*) 'Pi: ',s*4
end program pi