numeric digits 11 a.=0 do n=1 x=n do i=0 to 21 k=n*n+i*i a.k=1 x=x/2+n/2/x end do a.n say format(x,,6,901-n) end end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page