FortranでFizzBuzz
C++でfor文とか、FortranでDO文とか、使ったら負けです。
program fizzbuzz integer,parameter :: N = 20 integer :: i character(8),dimension(N) :: list write(list,'(I4)') (/(i,i=1,N)/) where(mod((/(i,i=1,N)/),3)==0) list="fizz" where(mod((/(i,i=1,N)/),5)==0) list="buzz" where(mod((/(i,i=1,N)/),15)==0) list="fizzbuzz" print '(a)',list end program fizzbuzz
http://ideone.com/jotnRに置いてみる