谁有更好的办法？！

[longspring]

有一个数组例xx(10,3)是这样的，元素都是字符型的
1 2 3
1 a1 b1 c1
2 a2 b2 c2
3 a3 b3 c3
4 a4 b4 c4
5 a5 b5 c5
6 a6 b6 c6
7 a7 b7 c7
8 a8 b8 c8
9 a9 b9 c9
10 aa bb cc
如何有效更快的罗列出其中的全部组合xx(1,i)+xx(2,i)+xx(3,i)+xx(4,i)+xx(5,i)+xx(6,i)+xx(7,i)+xx(8,i)+xx(9,i)+xx(10,i)如
....
a1c2a3a4a5b6a7a8a9aa
....
小弟使用循环做的，结果虽然能够出来，但是速度很慢，不知道有什么好一点的方法，请指教。

[begbear]

不可能吧，這二維數組用循環做是最快的了，應該不會太慢吧
local i,j,cCount
cCount=""
for i=1 to alen(xx,1) &&行總數
for j=1 to alen(xx,2) &&列總數
cCount=cCount+x(i,j)
endfor
endfor
?cCount

[JXLEE365]

不能再快了！

[whint]

由于VFP不支持递归，所以只能如此了。

[xiolig]

怎么说VFP不支持递归？以求阶乘为例：
FUNCTION QQ
PARAMATERS n
RETURN IIF(n>1, n * QQ(n-1), 1)
求10！：
?QQ(10)
至多是递归层数有限制而已。

[dyming0410]

老兄，那递归怎么做，能不能提供一点思路。
还有begbear的代码执行的结果不是我所想要的，我的结果应该有59049种组合，请再帮帮忙想想办法。

xiolig(凌霄)不是做了个典型的VFP递归吗？

[JXLEE365]

递归的速度更慢！

[longspring]

老兄，那递归怎么做，能不能提供一点思路。
还有begbear的代码执行的结果不是我所想要的，我的结果应该有59049种组合，请再帮帮忙想想办法。

[newfang]

速度估计是上不去了！！
顶多就是代码写的简单点…………

[zhongyj]

alength=10
dime aa[alength]
for i=1 to alength
aa[i]='a'+trans(i)
endfor
?f1(@aa,'',alength)
function f1
parameters array1,string1,n
return iif(n=1,array1[n]+string1,f1(@array1,array1[n]+string1,n-1))

[longspring]

具体代码怎么实现呢，没有头绪，请指教！

[longspring]

小弟实在愚昧，麻烦老兄能写出生成59049种组合的代码，非常感谢！