Advanced Search

Question: What's wrong with this procedure? I'm working on a proc decompositing integers.

Question:What's wrong with this procedure? I'm working on a proc decompositing integers.

rhenskyyy 0 Maple
proc
April 23 2012
0

decom:=proc(n::posint,m::posint)
> local a,c,d::posint,e,f,i,j,k,l,s,t,u;s:=[];t:={};u:={};
> if m=n then return [[1$m]];fi;
>  for i from 1 to nops(decom(n-1,m)) do
>   a[i]:=op(i,decom(n-1,m));# a is a list
>   c[i]:=[op({op(a[i])})];
>   #d[i,j]:=coun(a[i],op(j,c[i]));#c:unrepeated numbers in a. d:number of repeatance
>    for k from 1 to nops(c[i]) do
>     e[i,k]:=aadd1(c[i],k);
>      for l from 1 to nops(e[i,k]) do
>       f[i,k,l]:=[op(l,e[i,k])$(coun(a[i],op(j,c[i])))];s[i,k]:=[op(s[i,k]),op(f[i,k,l])];
>      od;
>    u[i]:=u[i] union {s[i,k]};
>    od;
>   t:=t union s[i];
>   od;
> return [t];
> end;

Maple tells me that I used invalid subscript selectors.
Please Wait...