在<>Fortran>上,我们编码如下:
!vectors w,q are of the same size ... w = ... !a vector of integers [0,...,n) if (allocated(t)) deallocate(t); allocate(t(count(w/=0))) t = pack(q, w/=0) m = count(t>0) if (allocated(b)) deallocate(b) allocate(b(m)) b = pack(t,t>0)
翻译Python:
t = q[w!=0] b = t[t>0]
我们不能确定我们确实执行的那部分方案是正确的。 请注意,它是一个非常大的方案的一部分,我们正在发现一些time误,有时甚至没有电文,但坠毁......