2010-02-11から1日間の記事一覧

そこそこキモい Fortran コードを書いてみよう〜平方根篇〜

0 から 10 までの整数の平方根を計算し、出力します。 function function(if) do=if if (if==0) go to 100 do end=do do=(do+if/do)*.5 go to=abs(do-end) if (goto<=abs(do)/1d6) go to 100 end do 100 function=do end do if=0, 10 end do=function(if) wr…