yshl https://blog.hatena.ne.jp/yshl/ 週1でも日記 https://yshl.hatenadiary.com/ 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 には予約語が無い」「変数の途中の空白は無視される」くらいです。プロの手にかかれ… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fyshl.hatenadiary.com%2Fentry%2F20100211%2F1265900522" title="そこそこキモい Fortran コードを書いてみよう〜平方根篇〜 - 週1でも日記" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2010-02-11 00:02:02 rich https://yshl.hatenadiary.com/entry/20100211/1265900522 1.0 100%