ina:=proc()假结束:mina:=2:
T: =proc(n,k)选项记忆;全球mina;局部t;
如果n<2或k<1或k>n,则1
当ina(t)或[1$4]<>map(x->igcd(x,t)时,从mina获取t,
[T(n-1,k-1),T(n-1,k),T(n-1,k+1),T(n,k-1)])
执行od;ina(t):=真;
而ina(mina)do mina:=mina+1 od;
t
金融机构
结束:
顺序(顺序(T(n,k),k=1。。n) ,n=1。。15) ; #海因茨2011年9月10日
|