そこそこキモい 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) write(*,*) end do end do end
使っているネタは「Fortran には予約語が無い」「変数の途中の空白は無視される」くらいです。プロの手にかかれば、これより遥かにキモいコードができる事は明白なので、「最高にキモい」とは名乗りません。
追記 : もちろん Fortran にはべき乗演算子 ** も sqrt 関数もあるので、通常はそちらを使うはずです。