※ 引述《magaiml (祈)》之銘言：
: 大概結果是
: x(1:5,1) 顯示=> T F F F F
: x(1:5,2) F T F F F
: x(1:5,3) F F T F F
: x(1:5,4) F F F T F
: x(1:5,5) F F F F T
: x(1:5,6) T T F F F
: ......
: x(1:5,32) T T T T T
有趣的題目 手癢試試看
program lalalal
implicit none
integer, parameter :: n = 4 !<<= 這裡修改大小
logical, allocatable :: x(:,:)
integer :: i, j, k
allocate( x( n, 2**n ) )
do i = 1, 2**n
k = i - 1
do j = 1, n
x(j,i) = ( mod(k,2)==1 )
k = k / 2
end do
print *, x(:,i)
end do
end program
執行結果:
F F F F
T F F F
F T F F
T T F F
F F T F
T F T F
F T T F
T T T F
F F F T
T F F T
F T F T
T T F T
F F T T
T F T T
F T T T
T T T T
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 58.115.25.219
※ 編輯: latinboy 來自: 58.115.25.219 (06/12 14:50)