2015-01-02から1日間の記事一覧
メモ帳代わりに。ソースだけ。 program order implicit none integer, allocatable :: iprm(:), irtp(:), iwk(:) integer :: i, k, m iprm = eratos(100) do k = 1, size(iprm) print *, ' ', iprm(k) do i = 2, iprm(k) - 1 print *, i, ':', ord(iprm(k), …
メモ帳代わりに。ソースだけ。 program order implicit none integer, allocatable :: iprm(:), irtp(:), iwk(:) integer :: i, k, m iprm = eratos(100) do k = 1, size(iprm) print *, ' ', iprm(k) do i = 2, iprm(k) - 1 print *, i, ':', ord(iprm(k), …