subroutine swap(a, b) integer,intent(inout) :: a, b integer :: c c = a a = b b = c end subroutine swap program main implicit none integer :: a, b read(*,*) a b = 3 call swap(a,b) write(*,'(2I5)') a, b end program main 何の言語かわかる人は…

弾さんの【404 Blog Not Found:Stiffと偉大なプログラマー達-プログラマーと数学・物理】で見かけた「concrete math」という言葉。調べてみたところ、あのKnuth先生（→【ドナルド・クヌース - Wikipedia】）らが書いた本の題名らしいですね（asin:0201558025…