2011-10-19から1日間の記事一覧
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=…
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=…