VFP 愛用者社區

[sych]

set talk off
clea
local m,n,i,j,p,s
n=4
dime p(n)
m=1
?
for s=1 to n
m=m*s
p(s)=s
??p(s)
endfor
for s=2 to m
i=n
do whil not p(i-1)<p(i)
i=i-1
enddo
j=n
do whil not p(i-1)<p(j)
j=j-1
enddo
p(i-1)=p(i-1)+p(j)
p(j)=p(i-1)-p(j)
p(i-1)=p(i-1)-p(j)
for j=0 to (n-i-1)/2
p(i+j)=p(i+j)+p(n-j)
p(n-j)=p(i+j)-p(n-j)
p(i+j)=p(i+j)-p(n-j)
endfor
?
for j=1 to n
??p(j)
endfor
endfor
retu