{VERSION 2 3 "DEC ALPHA UNIX" "2.3" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 278 "denumerants:=proc(n ::nonnegint)\n local n2,n5,n10,n20,nb,p,q,r;\n nb:=0;\n for n20 fro m 0 to iquo(n,20) do\n p:=n-20*n20;\n for n10 from 0 to iquo(p,1 0) do\n q:=p-10*n10;\n for n5 from 0 to iquo(q,5) do\n \+ nb:=nb+iquo(q-5*n5,2)+1\n od\n od\n od;\n nb\nend:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "st:=time():\ndenumerants(100 0);\ntime()-st;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\")wuXA" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"D!\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 407 "denumerantsview:=proc(n::nonnegint)\n local n2,n5,n 10,n20,nb,p,q,r;\n nb:=0;\n for n20 from 0 to iquo(n,20) do\n p:= n-20*n20;\n for n10 from 0 to iquo(p,10) do\n q:=p-10*n10;\n \+ for n5 from 0 to iquo(q,5) do\n r:=iquo(q-5*n5,2);\n \+ for n2 from 0 to r do\n nb:=nb+1; # \n print(n-(2*n 2+5*n5+10*n10+20*n20),n2,n5,n10,n20)\n od\n od\n od\n \+ od;\n nb # NULL\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "d enumerantsview(11);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6'\"#6\"\"!F$F$F$ " }}{PARA 11 "" 1 "" {XPPMATH 20 "6'\"\"*\"\"\"\"\"!F%F%" }}{PARA 11 " " 1 "" {XPPMATH 20 "6'\"\"(\"\"#\"\"!F%F%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6'\"\"&\"\"$\"\"!F%F%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6' \"\"$\"\"%\"\"!F%F%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6'\"\"\"\"\"&\"\" !F%F%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6'\"\"'\"\"!\"\"\"F$F$" }} {PARA 11 "" 1 "" {XPPMATH 20 "6'\"\"%\"\"\"F$\"\"!F%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6'\"\"#F#\"\"\"\"\"!F%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6'\"\"!\"\"$\"\"\"F#F#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6'\"\"\"\" \"!\"\"#F$F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6'\"\"\"\"\"!F$F#F$" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#\"#7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 314 "denum:=proc(n::nonnegint,S::list(nonnegint))\n loca l nu,q,r,ls,head,i,c;\n option remember;\n nu:=nops(S);\n if nu=0 t hen 0\n elif nu=1 then \n q:=iquo(n,S[1],r);\n if r=0 then 1\n \+ else 0\n fi\n else\n ls:=S[nu];\n head:=[seq(S[i],i=1..nu -1)];\n add(denum(n-c*ls,head),c=0..iquo(n,ls))\n fi\nend:\n " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "denum(10,[10,5,1,2]);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#\"#6" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "st:=time():\ndenum(1000,[1,2,5,10,20]);\ntime()-st;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\")wuXA" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"&d@\"!\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 683 "denum1:=proc(n::nonnegint,S::list(nonnegint))\n local depth,leve l,nn,flag,up,down,i,c;\n depth:=nops(S);\n if depth=0 then RETURN(NU LL) fi;\n level:=0:\n nn:=n;\n flag:=down;\n do\n if flag=down \+ and nn=0 then \n print(seq(c[i],i=1..depth));\n flag:=up \n \+ fi;\n if level0 then\n if nn>=S[level] th en\n flag:=down;\n c[level]:=c[level]+1;\n nn:=nn -S[level];\n else \n flag:=up;\n nn:=nn+c[level]*S[ level];\n c[level]:=0;\n level:=level-1;\n fi\n \+ else\n break\n fi;\n# print([seq(c[i],i=1..level)],nn,flag) \n \n od;\n NULL\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "de num1(10,[2,5,1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"\"!F#\"#5" }} {PARA 11 "" 1 "" {XPPMATH 20 "6%\"\"!\"\"\"\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"\"!\"\"#F#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"\"\" \"\"!\"\")" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"\"\"F#\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"\"#\"\"!\"\"'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"\"#\"\"\"F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"\"$ \"\"!\"\"%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"\"%\"\"!\"\"#" }} {PARA 11 "" 1 "" {XPPMATH 20 "6%\"\"&\"\"!F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" } }}}{MARK "10 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }