RUN #[version optimisee algorithme recursif,operations ordonnes /*+-,test parite division par 2 10:0:0:9 :33999τ  100d 8:8:8:23624H\,23624H\+64@:236099\,2:"CHFLET"62640:"DICO"34000Є::"JEU.BAS" d(:::A$="DES CHIFFRES ET DES LETTRES" nB$="MODE D'EMPLOI SUCCINCT" s :" ";a$ x'4;b$ }'"les regles du jeu sont celles qui prevalaient avant que ne soient introduits les defis. En revanche, le jeu beneficie de l'evolution recente du nombre de lettres du tirage, desormais fixe a 10." '"APRES UN TIRAGE DE LETTRES, SI UNE ANNONCE EST DEMANDEE IL FAUTINTRODUIRE UN NOMBRE (LE NOMBRE DE LETTRES), ET NON LE MOT" q"POUR INDIQUER VOS CALCULS ENTREZL'OPERATION (12*3 PAR EXEMPLE), PUIS ENTER ET ENFIN LE RESULTAT DE CELLE-CI.." N#1;1;"TAPEZ UNE TOUCHE POUR LANCER":0:C$=:13 : ADES CHIFFRES ET DES LETTRESBMODE D'EMPLOI SUCCINCTCHFLET P R :~[G> !ЄOG |[[![ !<[6#:(>2[2x\2y\2[2[3*M\##~##2[2~[O [~6 # (6 # Ͱ*|["[!["[>*["|[:~[2[>2[*|[~8>*[~  (5<#"[ > w:[G:[]x2[>!["[*|[#"|[:[( O:~[ڃ:[(:[=2[ >҃*[:~[OG "|["[> !ЄOG N#F[*|[R҃*|[B5:~[=2~[5*["|[2 [:~[2"[O:[ʖ>2[2[:[<2[*|[O ~(=!O ~2#[ :[2[>2![2[:[<2[O:~[( *|[ ~=2([!O "$[! ~2#[: [(+((:"[ Җ:~[2"[:#[ :#[( :#[ : [ :[2![:"[*$[~ (IO*[~  ('<*[#"[ *[6 >!["[*$[#"$[: [ jj: [ x2)[: [ :#[( y>2 [!<[:#[( ##:~[O #p+"&["*[!:([O "$[*$[~*&[w#"&[#"$[~ :"[O:)[2"[:[ʖ:[: [j:)[O:"[2"[j:[O:![02[2 [:~[2"[j:~[ ҟ*["|[2"[>2[:[:~[=Oʟ<2[*|[O ~_@[8[2([!O "$[!["[>2[*$[~ O:[(|*[~ (C @*[6 :[G:~[O:[0>*$[#"$[!["[:[<:[(F:[<2[*$[#~O:[(<*[#"[*$[~O*$[~( ( :[(0:[=2[!<[:~[O "&[w#:([O! "$[:~[G:[O2"[*$[[&[:"[O:[ҟ:[ʙß*["|[:[O:~[8:[O:[ :[ :[>8:[(>8*M\ :[O!J[~_(@[8>E# !<[J[y ( ~8 #y2[*["[![h[!h[[![r[!r[[ <[*[:~[O!J[6#:O:y\!AX8 6O 6(+6*U\++~02 [+~02 [+~02 [+~02[+~02[*M\##N#F#[6 |_xXGB(zWJ(zWz@W|g͢|W}o}( O! &o)))|2[*["[*[~2[#"[>2[*["[: [O*[" [: [G* [|8g2 [! [4:[2 [! [4 *[: [o"[:[2[:[=2[ *[: [g"[:[=2[ : [O: [G:[2[&ѧB:[!*[G O :[![=G(O [ ![#w#=O ~O#~G=O {w#zwɗ![w#2x\2y\<2[!"[8K[>2[>2[:[<2[>2[:(:[=2[ >![:[C[:[C[͗ᗹ ʌp+q* [B >2[2["[2[[[R0:[![C[* ["[>2[ :[![:[![#0:[ :[=2[):[<2[![:[=2[![ ß:[0$8:[O:[ *[K [B0<2[ð:[G:[0<2[ë:[=G:[0<2[ä:[[:[<2[:[2[[ :[=2[Ì:[͊"[:[͊"[*[R0:[!f[=G(_q#p#:[w#q#p#:[![q#p:[( :[GO!f[[:[<2[ɇ==O ~O#~G:[Y<j&ͩ(m{ } c"[S["[!"[R(0<)($ͺ=*[ѧR8 "[*[)#*[)"[*[B K[*[B(>/7C[*[[[R"[S[&R*[B(>-"[2[*[[[0>+&ͩ(!"[}( *["[0)| } *[>xͺBȗB|O|?g}?o B@(LBBL**N,BHTTTTHDICO oЄgoߤÊ:>                                          !                     #      #      #       #                                           %                                                                           *                                  /               0 0  0                            3                                         ! ! !!!! !     !  ! !           !   !         ! !      ! ! !!        ! ! ! ! ! !  ! ! !! !    4! !!!    !! "  "  "   "  "      "b/ b5"  "b2   "         #C! # # ##  # ##  ## # ## C# #  # # #  Cl)     #  #  c-/ # /c/# #c- / ## / ##### #  # c/##    #    #  $$$ $  $  $   $ $$   $ $  %     $ $               $ $$$ $ $   $  $ % % %  %%  %% %  %% -% %%%%% % %%% %%   % % % % %      %    %      %      %  % % % %   % %%% % % %& &   & & &  &        & &      &  & &&& & f2 & &  &&       '''    g/ ' '  ' '   !     ( (          (   (  (   () )  )) )   ) ))  ) )  )) )   ))  )  ) ) ) )  ) )      /   *     +    +    ,    ,   , ,    ,   -   -  - - m1 -- - m3-    -  -   m/   m/   - -   m/    m9 m9    //     /  /2    0  0  00   0        0           0 p 0 0  0  00    q!  1     11             2  2  R% 2 2 2 2 22  2   2    3         3 3  3 3    3        3     3     3      3  3      3  3 3 3    3 3  3 33        4 4   4          4 4      To2 t 4  4 4             v,         v)  v46 6  6    7        c/3 % / r!$ !  ! ! !! !"!!! ! ! !   !   !  ! !! !! & ! !!  ! !!! !!    !! ! ! !!! ! !  !! ! ! -!  !  !! !    !!! !! ! !  !2! !  ! !! 3!! ! 3 ! ! !!!!! !!   ! ! !  !  ! "  " "b0""   ""  "    ", bb"  "   b/ " " " b2  b!" """" #c#  #        # c! # ##  c!##c2# ## ## #  # # (Ch5#  # C((#  c( #    # #      #    c,Cl   ##  # Co # # /#  ###c-# c-##  #/  c.#/ ##  #Co# #  # #c  Coc5  # c   5 #  c # c5#          $  $$$$    $    $ $$$ $$$$ $$ %$$$%$ $     $ $ $)$     $$$ $$$$  $ $Do $$  $  %% % %%% % % %%%%%%  %%%% %% %  % %  % % % %% % %%%%-%%%%%%  %%%%%  % %%%% %<% % % %%%%28 %% % %%  %% %%8 %%%% % %% %%%%    && f!f! &  &     && ) &         f &  / & / F/&&f  & &  &f2    &   g!   ' G!     '          '''GGr!' ' ' g2'  G2      (  !(     ( (        h   ((     ) ))  ) -)- .   ))  ))))) ) )  ) .) )) ) .   ) ) ).    .))  ) )    *  * J *         +        l!, ,,       ,   ,   ,  ,   - -    --  --   - -   -  -  - - ---         -   -  - - - - -- .   .  n/  / /// // / // /       /    /   /  2  /       /   / /  / 0  0 0   p!      00 0  00  0 0 00 p!0     0  0  p p% %       0 p       p/     p/0   0 0p00 0  2  0       0            1    222 2 Ra2  2 2   2 22  22 2  2 22 22    Ro5r/ 2   SS    3       3333 3 3S    C!3      3             3     33 3 3  S3   3 3  33 3 4 t04 t  T t%   4   4    4 T   4 44   4442  24 4 4   444 t/4   5 4!6   %     6 6         6  ) 6  7          ;- 4 0' 3<  )c/)m! 4m!%34c! Co!!!"!! !!!!!   ! !! !!!  # !!!!!!! ! ! !  ! !  !!!!!*  !!, !! ! !  !!! !   !! ! -! ! !  !! ! !  !!!!!   !!     !!!!! !! 3! ! ! !2  ! !! ! ! !   "" "" """  " ""  " "b"""    "" "" b," "b/ "" " "b5b5""  ""  b/b" " """b2" "b2" "  "b5b"##Ca)!  #c! c! #### #C!# # c.C% Ch!  Chc!#C(# #c(     #   ### # # # c)   #  #c!###Co&c)c/c c/   # ##  c-# # c/ ## ##  ##c5c c// 2##c;# c2c2#c/#c2# C2Cr9 c5 Cu  $$ $  $$$% $$ $$ $$$%$ $ $ $ $$D $  $$$$ $$dd5$22$$D %% ;%;%%%%#;% ;%%;%;; ;'   % %; %%%  %; %%; ;% $;;  ;; ;% %%%;; % ;% % % %; %;;; %#;3%% ;; %;%4%6 ;%% ;%%%%%%% %%  %% & &    f! &&F!&f!  f && f)  Ff)Fi&&&  &  &&F, &&, Fl%f% &&& &   &   F/& &&&&&& f2&&& F  & &  '   'g! '  Gg.  ' '''   'g.   g' 'G '  22  g2  ' 2 g2 'Gr/g/g/''Gu;''(( h! (!(  (( ((   (  ((    ((  (h/  (  (    )  )) )) --))). )) )  )) )) ) ) ).)) )) ! *  *    **    *    *     l!,, , , ,,Ll)  ,,l)         ,,l l5  ,-   m! m)-  m-m!m2m!-- ---Ům; -m3 mm5-  -   ---    m.  -  m4-- - -  m5-   .. n..n).   . //"#      /  /  / / ///    000p!  0 p!0  00 00 0 p)   p50 00  0    0 0p!0p!0p,p)p,,0p)000 0 0 p5  p5/0  250      Q   Qu)    1  2Ra#2 2    2r 2 r  2  2   22 R2 2  2 2 222 222 2 22   2 2  2 33  3 3 333s# # 33   3      3     33      3 3  33  3    3S/ 3 3  3 s4333334   Ta,444Ta244 T{ 4   4 4t/ t5t!T224 4t2Tt<444 4444 44t244244 4 6%6VeV 6  6 6   Vi) v26       :  z) 2# 3# # #0-2 "-!    m););%;) !!$"b2&)3 3: #,-3- ! ,00$!-n/# 0"!n)# $!G2 /m/2!!p/lCoCr!!!!! !!!! !! !! !  , !!! ! !!!! !! !!!! ! !!! !!  b!b!"b!" b!" "b!b!b4  "  )   """ " b b)b"b/ b/"b/b/b/b5""b2b2"" b5" #C$ c!  #c!#C!#C!#c   #C%C.c%#(C(# ## c!C,ClCClCo#Co,  c/# /C/#c/c5CC5c5##c>c2#  #   $ $$$D%$$ $$$D$ $/D//$$ D D5 %%;%  %% %%%  %%6?;% ;%;%;%%;;%%%%&&f Fa4 & & &&& & f.f%F2F;&F)&& & F/ Fo.ۆ//f/& &ff& f2 & &&f2f2& && ''Ga! Ga   ' ' g!!g2'G%'' 'g)g,' G GoGo'g/g2'G2' G2G2'g2' g2''' ' ((H!  H<( ((( h/ (( (( ) ))) )) )  J!j!j!* j< J) * * **   + K!l!!,, ,l!l!, ,  ,ll; ,Li', ,l)l)l/,,l/ ,, ! -!-!- ----m m=  -- -   m.-m//   n!... n!. 6.Ne n). . n N/  /     /  / / / /  000 0 p!! p2p30p#0p)p%p%;0%0p(00 0p1p) p!00 p,p,00 000/0p200p)p)000  Q%2r!2 2r!2 2 r;22 2%R(2Ro#22 2 Ro5r/2 22 S!33  3 3333333S<33 S;   33s) )   3333 3333S5 53 T!Ta# 44 T!t)Te$%4T}2t%44)44T/4//To/t224 4  t4    6666%6v%%V"9"N1=O$(J-un):N2=O$(J+un):"40" # J:E=qe: ( F=un:J=Fsx:I$(J)=" ""50" -k(J)=N1I$(J)=" ":"55" 2 J:"70" 7!F=dx:J=unsx:I$(J)=" ""65" <k(J)=N2I$(J)=" ":"100" AJ FF>P$E=cq: KJ=uṉP$:P$(J)=" ""90" P F=unN1=R(J)P$(J)=" ":"55" U!F=dxN2=R(J)P$(J)=" ":"100" Z J:E=cq: d R(I)=A i IdixE=un: !A=A:"MOT:";B$:B$AE=dx: P$=A$:T$=B$:I=un:J=un P$(I)=T$(J)"240" I=I+un:Idix"225" E=ts: &P$(I)=" ":I=un:J=J+un:JA"225" qI=ro:A$=" ":P$=B$:"8012":P$="":IȱB$A$=B$:A$=A$:(LETTRE+11 ):i="23300":iP$=A$(I) P$=B$ @"VALIDEZ-VOUS(O/N)?";P$:P$="N"E=st:p$=r$:"8010":"255" RO>B$P$=R$:"8010":B$=R$ RO=B$P$=R$:"8005"  P$=B$: :J(ts,dx)::x$:I=undx+(J$(ts)="ARBITRE "):"1560":I L\I$=("OUI"Y0)+("NON"Y0):"23658",hu:SX,DX;"DES CHIFFRES ET DES LETTRES";''';"0:JOUER" Mc'"1:JOUEURS"''"2:TIRAGE(";M$;")"''"3:NOMBRE DE JEUX(";TO;")"''"4:CHRONOMETRE(";I$;")"''"5:SORTIE" U"zo:p$=:p$<"0"p$>"5""1109" V°"13":j=p$:j=zo"3000" [#junjQE"1300+100*j":"1100" jj=cq xHJ$(ts,nf):J=zo:I=undx:("NOM DU JOUEUR ";I),J$(I):J$(I)=J$(I,hu) DJ(I;" EST-IL L'ORDINATEUR(O) ");I$:I$="O"j=un:j$(i,nf)="*" ""1560":I:JJ$(ts)="ARBITRE"  "1560": (CH=CH:M$="AU SORT":CHM$="MANUEL "  un;I,"12";cq;I;un;" ";cq;J$(I,hu);un;" ";cq;(" "J(I,un)<"100");(" "J(I,un)J(un,un))-dix*(J(dx,un)=J(un,un)):IY=un-NO:"4305":A=F:"8000":E=zo:A>R"200":EP$=B$ 'E"4400":P$=R$:"8010":R=A:A=zo .N1=NO+(un-dx*NO)*(A>R):N2=R*(R>A)+A*(AR): :Y=NO:"4305":R=F:A=F:"8000":J$(ts,un)" ""4600" BRO>zoA=RO:A>RP$=R$:Y=un-NO:"8000":"8010":N1=Y:N2=A: ;A=R:"200":N2=R:EN1=un-NO:"4400":P$=R$:"8010": Y=NO:N1=NO:P$=B$: 'Y=un-NO:"4305":A=F:ARA=R:Y=NO %"8000":"200":E"4400":Y=un-Y  N1=Y:N2=A:EP$=B$:"8012"  p"dx,un;cq;E$(nf):CH"6010" q4I=unsx:(I;"E NOMBRE:");K(I):"7000":I:"6030" zrK(sx):H=zo:H$=C$:I=unsx:A=IN2:RAN:IN2=A:J=(CT*H$)+un:K(I)=H$(J):H=H+K(I):J=unH$=H$(dx):"6025" J=H$H$=H$(J-un):"6025" H$=H$(J-un)+H$(J+un) I:H<"25""6010" I=unsx:"7000":I CH"6035" 5"COMPTE A TROUVER :";N:P$=N:P$=P$:PRINT:8H238  "6060" OA=IN:RAN:IN=A:N=(CT*"900")+"100":H$=N:P$="000":P$=P$:PRINT:8H238 I=tsun-un:F=H$(I)  J=unts:K=zonf+(F-nf)*(J=ts) ZH=(23637U\+256*23638V\)-cq:H,70F+dx*I:P$=K:P$=P$:PRINT:8H238  K:J:I sN0="23296":J0="23433":i=unsx:N0,k(i):N0+un,zo:N0=N0+dx:i:"23310",(N/"256"):"23309",N-"256*23310" H=CHIFFRE:MUS:T=H "N3=zo:J$(NO+un,nf)"*""6200" !A=T:Y=NO:"8015":T"6120" "7800":T=NN1=NO:N2=hu: kY=un-NO:"4305":R=T:A=F:"8015":y=no:(A-N)<(T-N)dix:R=A:y=un-no:E"4400":Y=NO:t"7800" N1=Y:N2=sx+dx*(R=N): 85Y=NO:"4305":A=F:"8015":J$(ts,un)" ""6300" :=(T-N)<(A-N)Y=un-NO:A=T:"8015":"7800":R=A:"6210" =:R=A:"8015":Y=NO:dix:E"4400":Y=un-NO:t"7800" BN2=sx+dx*(R=N):N1=Y: ?R=A:Y=un-NO:"4300":Y=NO:A=F:(N-A)<(R-N)R=A:Y=un-NO 'A=R:"8016":dix:E"4400":Y=un-Y N1=Y:N2=sx+dx*(R=N) GN3=sx*(T>zo)+dx*(T=N):(T-N)<(R-N)e*tA=T:Y=dx:"8015":"7800"   XiA$=(K(I)K(I)"21",dx;cq;un;zo;"IL Y AVAIT : ";p$;" ":dix*cq: J "8005" LP$=P$:PRINT:C7228 M QOst,"15";un;cq;zo;J$(Y+un,hu):zo;qe;zo;dix,"20";" ";dix,"17";A: VP$=P$:PRINT:4<128 X ^Fװ".01","-60":װ".01",un:k=unnf*nf:254,k:K:254,hu: rEA="509+67*A":AȰ"4096"a="A/4096-(A/4096)":A=("A*4096+.05") |CT=A/"4096": %T$(J)="E"N0=un %&N0V>tsFT$(J)="E" %0 %%x$("232"̰"233")=(".."t)+(tt) %(qe,st;un;st;dx;X$("232"̰"233"): %]H=(23637U\+256*23638V\)-cq:H,sx*hu+ts*I-un:P$=T$(J):P$=P$:PRINT:@M228 % &#un;"->ENTER":zo:°"13": &"64462",(t/cq): m a rinahiffr/ettrJ flycveRQ^nhfxtm8&[$[g r ar LONGUEUR HORS NORMES LONGUEUR DIFFERENTE DE L'ANNONCEEMPLOI D'ELEMENTS INEXISTANTS ! OPERATION FAUSSE ! NOMBRE DEJA UTILISE ! RESULTAT DIFFERENT DE L'ANNONCE MOT NON ACCEPTE ! u^ -Y` ARDOISE    ANNONCE                                           b oan'n @ [ [R&x i  2KdZ<H  P                     I                     L L   E   T  ; e&X8 1 3 4  N JOUEUR  SCORE CP  5 0 5                                 TEMPS:30s              JOUEUR 1 SPECTRUM* MAU SORTdnJO110*3BTUTELLE  FELICITES WpNRSTLDGMBCPFHVQJKWXZNRSTLDGMCPFHVQJXNRSTLDGMBCPFHVNRSTLMCPVNRSTLDMCNRSTLDMNRSTLMNRSTLNRSTLNRSTLNRSTLNRSTNRSTNSTSVAEEIOUYEEAUIOUEAOEEIOEEAAUEUOIAEIAEEIOUYEEAUIOUEAOEEIOEEAAUEUOIAEIAEEIOUEEAUIOUEAOEEIOEEAAUEUOIAEIAEEIOUEEAUIOUEAOEEIOEEAAUEUOIAEI# ! dH}AEEIOUYEEAUIOUAOEEOEEAAUEUOIAEAEEIOUYEEAUIOUEAOEEIOEEAAUUOIAEIAEEIOUEEAUIOUEAOEEIOEEAAUEUOIAEIAEEIOUEEAUIOUEAOEEIOEEAAUEOIAEIA IUELEICFTSTkNRSTLDGMBPHVQJKWXZNRSTLDGMCPFHVQJXNRSTLDGMBCPFHVNRSLMCPVNRSTLDMCNRSTLDMNRTLMNRSTLNRSTNRSTLNRSTLNRSTNRSTNSTSIkNRSTLDGMBPHVQJKWXZNRSTLDGMCPFHVQJXNRSTLDGMBCPFHVNRSLMCPVNRSTLDMCNRSTLDMNRTLMNRSTLNRSTNRSTLNRSTLNRSTNRSTNSTSP FELICITES 0