NonCrossingTranspos:=n->转换(NonCrossingTransposAux(binexp2pars(n),1),'permlist',binwidth(n));
非交叉TransposAux:=进程(s,ii)局部e,p,i,j;i:=ii;p:=[];对于s中的e,do p:=permul(p,非交叉TransposAux(e,i+1));j:=i+计数参数(e)+1;p:=永久(p,[i,j]]);i:=j+1;od;收益(p);结束;
CountParens:=进程局部e,k;如果(0=无),则返回(0);fi;e:=0;对于k in s,do e:=e+2+CountParens(k);od;返回(e);结束;
|