{VERSION 3 0 "DEC ALPHA UNIX" "3.0" }
{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 262 "insert:=proc(L::lis
t,x,i::posint)\n  local n,j:\n  n:=nops(L);\n  if n<i-1 then ERROR(`in
sert expects the length of the list to be not smaller than the positio
n of insertion minus 1, but received`,x,L,i)\n  else \n    [seq(L[j],j
=1..i-1),x,seq(L[j],j=i..n)]\n  fi\nend:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "insert([x,y,z],a,1);" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#7&%\"aG%\"xG%\"yG%\"zG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
20 "insert([x,y,z],a,4);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7&%\"xG%\"
yG%\"zG%\"aG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 107 "insert:=pr
oc(L::list,x,i::posint)\n  local n,j:\n  n:=nops(L);\n  [seq(L[j],j=1.
.i-1),x,seq(L[j],j=i..n)]\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 222 "permlist:=proc(L::list)\n  local n,i,LL,LLL;\n  n:=nops(L);\n
  if n<2 then [L]\n  else\n    LL:=permlist([seq(L[i],i=2..n)]);\n    \+
for i to n do \n      LLL[i]:=map(insert,LL,L[1],i)\n    od;\n    [seq
(op(LLL[i]),i=1..n)]\n  fi\nend:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 13 "permlist([]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7#7
\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "permlist([a]);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#7#7#%\"aG" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 18 "permlist([a,b,c]);" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#7(7%%\"aG%\"bG%\"cG7%F%F'F&7%F&F%F'7%F'F%F&7%F&F'F%7%F'F&F%" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 98 "perm:=proc(L::list)\n  local n;\n  n:=nops(L);\n  i
f n=0 then\n    L\n  else\n    recur(L,n,n)\n  fi\nend:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "exchange:=proc(L,i,j)\n  local k,L1
;\n  L1:=L:\n  L1[i]:=L[j];\n  L1[j]:=L[i];\n  L1\nend:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 217 "recur:=proc(L,i,n)\n    local j,L1
,L2;\n    if i=1 then print(L)\n    else \n        L1:=L;\n        for
 j to i do \n        L2:=exchange(L1,i,j);\n        recur(L2,i-1,n);\n
        L1:=exchange(L2,i,j)\n      od\n    fi\n  end:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "perm([a,b,c]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#7%%\"bG%\"cG%\"aG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%
%\"cG%\"bG%\"aG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%%\"cG%\"aG%\"bG" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%%\"aG%\"cG%\"bG" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#7%%\"bG%\"aG%\"cG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
7%%\"aG%\"bG%\"cG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%%\"aG%\"bG%\"cG
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "13 0 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 }