{VERSION 4 0 "IBM INTEL NT" "4.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 
2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Heading 1" -1 3 1 
{CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 6 
6 1 0 1 0 2 2 0 1 }{PSTYLE "Heading 2" -1 4 1 {CSTYLE "" -1 -1 "Times
" 1 14 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 8 2 1 0 1 0 2 2 0 1 }
{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 
2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Outpu
t" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }
1 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Title" -1 18 1 {CSTYLE "" -1 -1 
"Times" 1 18 0 0 0 1 2 1 1 2 2 2 1 1 1 1 }3 1 0 0 12 12 1 0 1 0 2 2 
19 1 }{PSTYLE "cours" -1 256 1 {CSTYLE "" -1 -1 "Helvetica" 1 14 0 0 
128 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 3 -4 3 0 2 2 0 1 }{PSTYLE "re-c
ours" -1 257 1 {CSTYLE "" -1 -1 "Times" 1 14 0 128 0 1 2 2 2 2 2 2 1 
1 1 1 }1 1 0 0 0 0 3 -4 1 0 2 2 256 1 }{PSTYLE "bullet-cours" -1 258 
1 {CSTYLE "" -1 -1 "Helvetica" 1 14 0 0 128 1 2 2 2 2 2 2 1 1 1 1 }1 
1 0 0 0 0 3 -4 3 0 2 2 0 2 }}
{SECT 0 {EXCHG {PARA 18 "" 0 "" {TEXT -1 14 "X Info PC 2004" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 0 {PARA 3 "" 0 "" 
{TEXT -1 11 " Question 1" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "
entier:=proc(b,c) 3*b+c end;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'ent
ierGR6$%\"bG%\"cG6\"F)F),&9$\"\"$9%\"\"\"F)F)F)" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 24 "entier(0,2);entier(2,0);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"'" }}}}
{SECT 0 {PARA 3 "" 0 "" {TEXT -1 11 " Question 2" }}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 68 "poidsFort:=proc(x) iquo(x,3) end;poidsFaible:=
proc(x) irem(x,3) end;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*poidsFort
GR6#%\"xG6\"F(F(-%%iquoG6$9$\"\"$F(F(F(" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%,poidsFaibleGR6#%\"xG6\"F(F(-%%iremG6$9$\"\"$F(F(F(" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "verifie:=proc(x) entier(poid
sFort(x),poidsFaible(x)) end;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(ve
rifieGR6#%\"xG6\"F(F(-%'entierG6$-%*poidsFortG6#9$-%,poidsFaibleGF.F(F
(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "map(verifie,[$0..8])
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7+\"\"!\"\"\"\"\"#\"\"$\"\"%\"\"&
\"\"'\"\"(\"\")" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 11 " Question 3
" }}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 69 "Pour pouvoir tester on commen
ce par fabriquer des tableaux al\351atoires" }}{EXCHG {PARA 256 "> " 
0 "" {MPLTEXT 1 0 138 "affarr:=proc(arr) local long,k,str; str:=NULL;l
ong:=op(2,op(2,eval(arr))); for k from 0 to long do str:=str,arr[k],` \+
` od; print(str) end;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 93 "te
st1:=array(0..20):for k from 0 to 19 do test1[k]:=rand(3)();test1[20]:
=7; od:affarr(test1);" }{TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6L\"\"\"%\"~GF#F$\"\"#F$F%F$F#F$F%F$F%F$\"\"!F$F%F$F%F$F#F$F&F$F%F$F&F
$F%F$F&F$F&F$F&F$F%F$F%F$\"\"(F$" }}}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
24 "op(2,op(2,eval(test1)));" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 104 "longueurMotif:=proc(t,i,j,m
) local k;\n      k:=0; while ((k<m) and (t[i+k]=t[j+k])) do k:=k+1 od
; k end;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%.longueurMotifGR6&%\"tG%
\"iG%\"jG%\"mG6#%\"kG6\"F-C%>8$\"\"!?(F-\"\"\"F3F-32F09'/&9$6#,&9%F3F0
F3&F96#,&9&F3F0F3>F0,&F0F3F3F3F0F-F-F-" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 27 "longueurMotif(test1,0,8,8);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#\"\"!" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 11 " Questi
on 4" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 196 "longueurMotifMax:=p
roc(t,i,j,m) local k,max;\n     k:=0;max:=0;while (i+k<j) do \n       \+
if longueurMotif(t,i+k,j,m) > max \n       then max:=longueurMotif(t,i
+k,j,m) fi ;\n       k:=k+1; od; max end;" }{TEXT -1 11 "           " 
}}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%1longueurMotifMaxGR6&%\"tG%\"iG%\"
jG%\"mG6$%\"kG%$maxG6\"F.C&>8$\"\"!>8%F2?(F.\"\"\"F6F.2,&9%F6F1F69&C$@
$2F4-%.longueurMotifG6&9$F8F:9'>F4F>>F1,&F1F6F6F6F4F.F.F." }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "affarr(test2);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6P\"\"#%\"~G\"\"\"F$F#F$\"\"!F$F%F$F%F$F&F$F#F$F&F$F%F$F%
F$F&F$F#F$F&F$F%F$F%F$F#F$F%F$F#F$F&F$F#F$F#F$\"\"(F$" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "longueurMotifMax(test2,0,8,8);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\")" }}}}{SECT 0 {PARA 3 "" 0 "" 
{TEXT -1 11 " Question 5" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 82 "
test2:=array(0..22,[2,1,2,0,1,1,0,2,0,1,1,0,2,0,1,1,2,1,2,0,2,2,7]):af
farr(test2);" }{TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6P\"\"#%
\"~G\"\"\"F$F#F$\"\"!F$F%F$F%F$F&F$F#F$F&F$F%F$F%F$F&F$F#F$F&F$F%F$F%F
$F#F$F%F$F#F$F&F$F#F$F#F$\"\"(F$" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 244 "motifMax:=proc(t,i,j,m) local k,max,kmax;\n       k:
=0;max:=0;kmax:=0;\n       while (i+k<j) do \n      if longueurMotif(t
,i+k,j,m)>max \n      then kmax:=k;max:=longueurMotif(t,i+k,j,m) fi ;
\n      k:=k+1;  od; (kmax,max,t[i+k+max]) end:           " }}{PARA 0 
"> " 0 "" {MPLTEXT 1 0 22 "motifMax(test2,0,8,8);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6%\"\"$\"\")\"\"#" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 
11 " Question 6" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 93 "imprimerT
riplet:=proc(A,L,C) (poidsFort(A),poidsFaible(A),poidsFort(L),poidsFai
ble(L),C) end;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%0imprimerTripletGR
6%%\"AG%\"LG%\"CG6\"F*F*6'-%*poidsFortG6#9$-%,poidsFaibleGF.-F-6#9%-F1
F39&F*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "imprimerTripl
et(8,8,2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6'\"\"#F#F#F#F#" }}}}
{SECT 0 {PARA 3 "" 0 "" {TEXT -1 11 " Question 7" }}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 110 "test3:=array(0..36,[0,0,0,0,0,0,0,0,0,1,0,2,1
,0,2,1,0,1,2,1,0,2,1,0,0,2,1,0,2,1,0,0,2,1,0,0,x]):affarr(test3);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6fo\"\"!%\"~GF#F$F#F$F#F$F#F$F#F$F#F$F#F
$F#F$\"\"\"F$F#F$\"\"#F$F%F$F#F$F&F$F%F$F#F$F%F$F&F$F%F$F#F$F&F$F%F$F#
F$F#F$F&F$F%F$F#F$F&F$F%F$F#F$F#F$F&F$F%F$F#F$F#F$%\"xGF$" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "motifMax(test3,0,9,8);" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6%\"\"!F#\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 39 "imprimerTriplet(motifMax(test3,0,9,8));" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6'\"\"!F#F#F#\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 39 "imprimerTriplet(motifMax(test3,0,9,8));" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6'\"\"!F#F#F#\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 40 "imprimerTriplet(motifMax(test3,1,10,8));" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6'\"\"!F#F#\"\"\"\"\"#" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 40 "imprimerTriplet(motifMax(test3,3,12,8));" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6'\"\"#\"\"!\"\"\"F#F%" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 40 "imprimerTriplet(motifMax(test3,9,18,8));" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6'\"\"!\"\"#F$F#F#" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 41 "imprimerTriplet(motifMax(test3,16,25,8));" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6'\"\"!\"\"#F$F$\"\"\"" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 41 "imprimerTriplet(motifMax(test3,25,34,8));
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6'\"\"\"\"\"#\"\"!F$%\"xG" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 271 "compresser:=proc(t)\n   loc
al boulot; \n   boulot:=proc(d)\n       local u,mm;\n       mm:=[motif
Max(test3,d,d+9,8)];\n       u:=mm[3];\n       if u=x \n       then im
primerTriplet(op(mm)) \n       else imprimerTriplet(op(mm)),boulot(d+m
m[2]+1) fi; \n    end;\nboulot(0) \nend:     " }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 28 "mm:=[motifMax(test3,0,9,8)];" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%#mmG7%\"\"!F&\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 18 "compresser(test3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
@\"\"!F#F#F#\"\"\"F#F#F#F$\"\"#F%F#F$F%F$F#F%F%F#F#F#F%F%F%F$F$F%F#F%%
\"xG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 121 "ct3:=array(0..29,[
0, 0, 0, 0, 1, 0, 0, 0, 1, 2, 2, 0, 1, 2, 1, 0, 2, 2, 0, 0, 0, 2, 2, 2
, 1, 1, 2, 0, 2, x]):affarr(ct3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6hn
\"\"!%\"~GF#F$F#F$F#F$\"\"\"F$F#F$F#F$F#F$F%F$\"\"#F$F&F$F#F$F%F$F&F$F
%F$F#F$F&F$F&F$F#F$F#F$F#F$F&F$F&F$F&F$F%F$F%F$F&F$F#F$F&F$%\"xGF$" }}
}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 11 " Question 8" }}{EXCHG {PARA 
256 "" 0 "" {TEXT -1 324 "   Le texte \340 renvoyer va \352tre initial
is\351 \340 000000000, il sera nomm\351 'renvoi' de longueur courante \+
'ici'\n     quand on lit un triplet (A,L,C) on va ajouter L+1 caract
\350res \340 renvoi qui seront : L caract\350res de l'ancien renvoi en
 partant du (ici-9+A)-i\350me puis le caract\350re C\n     quand C n'e
st pas 0,1 ou 2 on sait avoir fini" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 549 "decompresser:=proc(tc)\n     local longtc,long,k,new
t,ici,p,a,l,c;\n     longtc:=op(2,op(2,eval(tc)));long:=9;  \n     for
 k from 1 to (1+longtc/5) do long:=long+1+entier(tc[5*k-3],tc[5*k-2]) \+
od;\n     newt:=array(0..long-1);\n     for k from 0 to 8 do newt[k]:=
0 od; ici:=8;\n     for k from 1 to (1+longtc/5) do\n         a:=entie
r(tc[5*k-5],tc[5*k-4]);l:=entier(tc[5*k-3],tc[5*k-2]);c:=tc[5*k-1];\n \+
       if l<>0 then for p from 1 to l do newt[ici+p]:=newt[ici-9+a+p] \+
od fi; ici:=ici+l;\n         ici:=ici+1;newt[ici]:=c;\n         od;aff
arr(newt);\n  end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "decom
presser(ct3);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6fo\"\"!%\"~GF#F$F#F$F#
F$F#F$F#F$F#F$F#F$F#F$\"\"\"F$F#F$\"\"#F$F%F$F#F$F&F$F%F$F#F$F%F$F&F$F
%F$F#F$F&F$F%F$F#F$F#F$F&F$F%F$F#F$F&F$F%F$F#F$F#F$F&F$F%F$F#F$F#F$%\"
xGF$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}}{MARK "8 1 1 \+
0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }