そこそこキモい 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 関数もあるので、通常はそちらを使うはずです。