※ 引述《fdps (Try It)》之銘言：
: 這次遇到了個很其奇怪的檔案
: 以下是其中一小部份的資料
: 201 I 1 1 1 1 1 1 0 0
integer array1(8),i
integer arraysym(8)
read (xxx,xxx) array1(1:8)
: I + + + + + + + +
character(len=1) :: array2
read (ooo,ooo) array2(1:8)
do i=1,8
if(array2(i)=="+") arraysym(i)=1
if(array2(i)=="-") arraysym(i)=-1
end do
array1=array1*arraysym
--
海牛的海底城
http://manateecity.blogspot.com/
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.125.41.248