Mic wrote:Formate ton PC et réinstalle
Ya pire tu sais
Crée un nouveau profil à partir d'un profil vierge et active la licence, au pire on crée 30 profils
Mic wrote:Formate ton PC et réinstalle
charognard wrote:va voir ICI
l'algo n'est pas de moi mais le programme est plutot convaiquant
lbl 1600
disp "PC"
N:=4:S:=1:O:=2:M:=45
lbl 1610
R:=A[S+90]
if R=0:goto 1640
lbl 1620
A[R*9+S]:=0
IA_calc()
if D=0:A[R*9+S]=-1:goto 1640
lbl 1630
J:=S:G:=1
return
lbl 1640
S:=S+1
if S8:goto 1610
lbl 1650
N:=4:S:=1
lbl 1660
R:=A[S+90]
if R=0:goto 1690
lbl 1670
A[R*9+S]=1
IA_calc()
if D=0:A[R*9+S]=-1:goto 1690
lbl 1680
S:=S+1
if S8:goto 1660
lbl 1690
for J,111,117
A[J]=0
endfor
lbl 1700
N:=3:S:=1
lbl 1710
R:=A[S+90]
if R=0:goto 1730
lbl 1720
A[R*9+S]:=0
IA_calc()
A[S+110]=D/E
A[R*9+S]=-1
lbl 1730
S:=S+1
if S8:goto 1710
lbl 1740
N:=3:S:=1
lbl 1750
R:=A[S+90]:if R=0:goto 1770
lbl 1760
A[R*9+S]:=0
IA_calc()
A[S+110]=A[S+110]+D*E
A[R*9+S]=-1
lbl 1770
S:=S+1
if S8:goto 1750
lbl 1780
N:=3:S:=1
lbl 1790
R:=A[S+90]
if R2:goto 1840
lbl 1800
A[R*9+S]:=0
R:=R-1
A[R*9+S]=-1
lbl 1810
A[S+110}:=-D
lbl 1830
A[R*9+S]:=-1
R:=R+1
A[R*9+S]:=-1
lbl 1840
S:=S+1
if S8:goto 1790
lbl 1850
K:=-50:L:=0
for J,111,117
if A[J]K:K:=A[J]
L:=J-110
endfor
lbl 1860
if A[L+90]=0:A[L+110]:=-60
goto 1850
lbl 1870
J=RND 7
if A[J+90]=0:goto 1870
lbl 1880
if A[J+110]=K:RETURN
lbl 1890
J:=L:RETURN
Bisam wrote:C'est une méthode classique mais assez efficace. Tu ne pourras pas la programmer à partir de ce que tu nous as donné car il manque la partie essentielle : la fonction IA_calc() qui s'occuppe de faire les tests !
Users browsing this forum: ClaudeBot [spider] and 2 guests