{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 "Text Output" -1 2 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 0 }1 0 0 -1 
-1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 
1 0 0 255 1 0 0 0 0 0 0 1 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }
{PSTYLE "Error" 7 8 1 {CSTYLE "" -1 -1 "" 0 1 255 0 255 1 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 "" {TEXT -1 10 "question 1" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 16 "parler du typage" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 63 "append1:=proc(L::list(list))\n  local i;\n  [seq
(op(i),i=L)]\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "L1:=[
a,b,c]:\nL2:=[]:\nL3:=[u,v,w,x,y,z,0,1,2]:" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 20 "append1([L1,L2,L3]);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#7.%\"aG%\"bG%\"cG%\"uG%\"vG%\"wG%\"xG%\"yG%\"zG\"\"!\"\"\"\"\"#
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "append1([]);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#7\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 19 "map(op,[L1,L2,L3]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7.%\"aG%
\"bG%\"cG%\"uG%\"vG%\"wG%\"xG%\"yG%\"zG\"\"!\"\"\"\"\"#" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 164 "append2:=proc()\n  local i;\n  for
 i to nargs do\n    if not(type(args[i],list)) then \n      ERROR(`arg
uments must be of type list`)\n    fi\n  od;\n  map(op,[args])\nend:" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "append2(L1,L2,L3);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#7.%\"aG%\"bG%\"cG%\"uG%\"vG%\"wG%\"xG%
\"yG%\"zG\"\"!\"\"\"\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
10 "append2();" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7\"" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 10 "question 2" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 38 "cons:=proc(x,l::list)\n  [x,op(l)]\nend:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "cons(0,[1,2,3]);" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#7&\"\"!\"\"\"\"\"#\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 41 "endcons:=proc(l::list,x)\n  [op(l),x]\nend:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "endcons([1,2,3],0);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#7&\"\"\"\"\"#\"\"$\"\"!" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "endcons([],0);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#7#\"\"!" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 10 "questio
n 3" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "first1:=proc(l::list
)\n  op(1,l)\nend:    " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "f
irst1(L1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%\"aG" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 11 "first1([]);" }}{PARA 8 "" 1 "" {TEXT -1 
52 "Error, (in first1) improper op or subscript selector" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 129 "first2:=proc(l::list)\n  if nops(l
)>0 then op(1,l)\n  else ERROR(`first2 expects its argument to be a no
n void list`)\n  fi\nend:    " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 11 "first2([]);" }}{PARA 8 "" 1 "" {TEXT -1 68 "Error, (in first2) f
irst2 expects its argument to be a non void list" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 145 "last1:=proc(l::list)\n  local n;\n  n:=nops(
l);\n  if n>0 then op(n,l)\n  else ERROR(`last1 expects its argument t
o be a non void list`)\n  fi\nend:   " }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "last1([a,b,c]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%
\"cG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 146 "last2:=proc(l::lis
t)\n  local n;\n  n:=nops(l);\n  if n>0 then op(-1,l)\n  else ERROR(`l
ast2 expects its argument to be a non void list`)\n  fi\nend:   " }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "last2([a,b,c]);" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#%\"cG" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 10 "q
uestion 4" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "reverse:=proc(
l::list)\n  local n,i;\n  n:=nops(l);\n  [seq(l[n-i+1],i=1..n)]\nend:
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "reverse([a,b,c]);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#7%%\"cG%\"bG%\"aG" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 12 "reverse([]);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#7\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 10 "question 5" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 196 "rest:=proc(i::posint,l::lis
t)\n  local n,j;\n  n:=nops(l);\n  if n<i then\n    ERROR(`rest expect
s its second argument to be a list of length >`,i,`but received`,l)\n \+
 else [seq(l[j],j=i..n)]\n  fi\nend:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 26 "rest(3,[a,b,c,d,e,f,g,h]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#7(%\"cG%\"dG%\"eG%\"fG%\"gG%\"hG" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 14 "rest(3,[a,b]);" }}{PARA 8 "" 1 "" {TEXT -1 99 
"Error, (in rest) rest expects its second argument to be a list of len
gth >, 3, but received, [a, b]" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "35 0
 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }