[R] Algorithme MinMax non concluant

[sozary]

Bonjour!
Alors voilà, avec le site developpez.com j'ai trouvé comment faire un algorithme MinMax.
Le seul problème, c'est que cela ne fonctionne pas...

Voici mon code source:

► Afficher le texte

Code : Tout sélectionner

#include <array.au3>
Global $profondeur
Global Const $MAXIMUM = 0
Global Const $MINIMUM = 10e3
Global $TicTacToe[3][3]


$TicTacToe[0][0] = "O"
$TicTacToe[1][0] = "O"

_IA($TicTacToe,"X",4)



Func _IA($Jeu,$Joueur,$prof)
    $max=$MAXIMUM
    Local $maxi=-1,$maxj=-1

    If $prof<>0 Or Not _Fin($Jeu) Then
        For $i=0 To 2
            For $j=0 To 2
                If $Jeu[$i][$j]="" Then
                    $Jeu[$i][$j]=$Joueur
                    $tmp=_CalcMin($Jeu,$Joueur,$prof-1)
                    If $tmp>$max Or $tmp=$max Then
                        $max=$tmp
                        $maxi=$i
                        $maxj=$j
                    EndIf
                    $Jeu[$i][$j]=""
                EndIf

            Next
        Next

    EndIf
    MsgBox(0,"",$maxi&","&$maxj)
    _ArrayDisplay($Jeu)


EndFunc

Func _CalcMax($Jeu,$Joueur,$prof)
    $max=$MINIMUM
    Local $tmp
    If $prof=0 Then Return _EvaluationDuJeu($Jeu,$Joueur)
    If _Fin($Jeu) Then Return _EvaluationDuJeu($Jeu,$Joueur)
    For $i=0 To 2
        For $j=0 To 2
            If $Jeu[$i][$j]="" Then
                $Jeu[$i][$j]=$Joueur
                $tmp=_CalcMin($Jeu,$Joueur,$prof-1)
                If $tmp>$max Then
                    $max=$tmp

                EndIf
                $Jeu[$i][$j]=""
            EndIf

        Next
    Next
    Return $max
EndFunc


Func _CalcMin($Jeu,$Joueur,$prof)
    $min=$MAXIMUM
    Local $tmp
    If $prof=0 Then Return _EvaluationDuJeu($Jeu,$Joueur)
    If  _Fin($Jeu) Then Return _EvaluationDuJeu($Jeu,$Joueur)
    For $i=0 To 2
        For $j=0 To 2
            If $Jeu[$i][$j]="" Then
                $Jeu[$i][$j]=$Joueur
                $tmp=_CalcMax($Jeu,$Joueur,$prof-1)
                If $tmp<$min Then
                    $min=$tmp

                EndIf
                $Jeu[$i][$j]=""
            EndIf

        Next
    Next
    Return $min

EndFunc
Func _EvaluationDuJeu($Jeu, $Joueur)
    Switch $Joueur
        Case "X"
            If $Jeu[0][1] = "O" And $Jeu[1][1] = "O" And $Jeu[2][2] = "O" Then
                Return -10
            EndIf
            If $Jeu[0][2] = "O" And $Jeu[1][2] = "O" And $Jeu[2][2] = "O" Then
                Return -10
            EndIf
            If $Jeu[0][0] = "O" And $Jeu[0][1] = "O" And $Jeu[0][2] = "O" Then

                Return -10
            EndIf

            If $Jeu[0][0] = "O" And $Jeu[1][1] = "O" And $Jeu[2][2] = "O" Then
                Return -10
            EndIf

            If $Jeu[0][0] = "O" And $Jeu[1][0] = "O" And $Jeu[2][0] = "O" Then
                Return -10
            EndIf
            If $Jeu[1][0] = "O" And $Jeu[1][1] = "O" And $Jeu[1][2] = "O" Then
                Return -10
            EndIf

            If $Jeu[2][0] = "O" And $Jeu[2][1] = "O" And $Jeu[2][2] = "O" Then
                Return -10
            EndIf
            If $Jeu[2][0] = "O" And $Jeu[1][1] = "O" And $Jeu[0][2] = "O" Then
                Return -10
            EndIf



            If $Jeu[0][1] = "X" And $Jeu[1][1] = "X" And $Jeu[2][2] = "X" Then
                Return 10
            EndIf
            If $Jeu[0][2] = "X" And $Jeu[1][2] = "X" And $Jeu[2][2] = "X" Then
                Return 10
            EndIf
            If $Jeu[0][0] = "X" And $Jeu[0][1] = "X" And $Jeu[0][2] = "X" Then
                Return 10
            EndIf

            If $Jeu[0][0] = "X" And $Jeu[1][1] = "X" And $Jeu[2][2] = "X" Then
                Return 10
            EndIf

            If $Jeu[0][0] = "X" And $Jeu[1][0] = "X" And $Jeu[2][0] = "X" Then
                Return 10
            EndIf

            If $Jeu[1][0] = "X" And $Jeu[1][1] = "X" And $Jeu[1][2] = "X" Then
                Return 10
            EndIf

            If $Jeu[2][0] = "X" And $Jeu[2][1] = "X" And $Jeu[2][2] = "X" Then
                Return 10
            EndIf
            If $Jeu[2][0] = "X" And $Jeu[1][1] = "X" And $Jeu[0][2] = "X" Then
                Return 10
            EndIf
            Return 0
        Case "O"

            If $Jeu[0][1] = "X" And $Jeu[1][1] = "X" And $Jeu[2][2] = "X" Then
                Return -10
            EndIf
            If $Jeu[0][2] = "X" And $Jeu[1][2] = "X" And $Jeu[2][2] = "X" Then
                Return -10
            EndIf
            If $Jeu[0][0] = "X" And $Jeu[0][1] = "X" And $Jeu[0][2] = "X" Then
                Return -10
            EndIf

            If $Jeu[0][0] = "X" And $Jeu[1][1] = "X" And $Jeu[2][2] = "X" Then
                Return -10
            EndIf

            If $Jeu[0][0] = "X" And $Jeu[1][0] = "X" And $Jeu[2][0] = "X" Then
                Return -10
            EndIf

            If $Jeu[1][0] = "X" And $Jeu[1][1] = "X" And $Jeu[1][2] = "X" Then
                Return -10
            EndIf

            If $Jeu[2][0] = "X" And $Jeu[2][1] = "X" And $Jeu[2][2] = "X" Then
                Return -10
            EndIf
            If $Jeu[2][0] = "X" And $Jeu[1][1] = "X" And $Jeu[0][2] = "X" Then
                Return -10
            EndIf

            If $Jeu[0][1] = "O" And $Jeu[1][1] = "O" And $Jeu[2][2] = "O" Then
                Return 10
            EndIf
            If $Jeu[0][2] = "O" And $Jeu[1][2] = "O" And $Jeu[2][2] = "O" Then
                Return 10
            EndIf
            If $Jeu[0][0] = "O" And $Jeu[0][1] = "O" And $Jeu[0][2] = "O" Then

                Return 10
            EndIf

            If $Jeu[0][0] = "O" And $Jeu[1][1] = "O" And $Jeu[2][2] = "O" Then
                Return 10
            EndIf

            If $Jeu[0][0] = "O" And $Jeu[1][0] = "O" And $Jeu[2][0] = "O" Then
                Return 10
            EndIf
            If $Jeu[1][0] = "O" And $Jeu[1][1] = "O" And $Jeu[1][2] = "O" Then
                Return 10
            EndIf

            If $Jeu[2][0] = "O" And $Jeu[2][1] = "O" And $Jeu[2][2] = "O" Then
                Return 10
            EndIf
            If $Jeu[2][0] = "O" And $Jeu[1][1] = "O" And $Jeu[0][2] = "O" Then
                Return 10
            EndIf
            Return 0


    EndSwitch

EndFunc   ;==>_EvaluationDuJeu


Func _Fin($Jeu)
    For $i=0 to UBound($Jeu)-1
    For $j=0 to UBound($Jeu,2)-1
        If $Jeu[$i][$j]="" Then Return False
    Next
    Next
Return True
EndFunc

Quelqu'un peut il me dire où le code à un soucis svp?
Merci d'avance!

[ZDS]

Hello Sozary,

N'ayant pas d'environnement AutoIt sous la main, je ne peux pas tester mon affirmation, mais à première vue, tu effectues pas mal de modifications sur une matrice $Jeu dans les fonctions _CalcMax($Jeu,$Joueur,$prof) et _CalcMin($Jeu,$Joueur,$prof) du genre :

Code : Tout sélectionner

$Jeu[$i][$j]=$Joueur
$Jeu[$i][$j]=""

Les modifications que tu effectues sur $Jeu dans tes fonctions ne seront pas prises en compte à la sortie de la fonction, à moins que tu ne changes les signatures en _CalcMax(ByRef $Jeu,$Joueur,$prof) et en _CalcMin(ByRef $Jeu,$Joueur,$prof).

Après, je ne saurai dire si ça vient de là, c'est juste une idée qui me semble logique. J'essayerai de tester ça au plus vite prochainement et d'affiner ma "contribution" ^^

N'hésite pas à nous tenir au courant, et à bientôt !

[sozary]

N ayant pas l environnement autoit sous les yeux, je ne peux pas rester moi aussi !
En revanche cela me parait logique maintenant que tu me le dit, je testerais donc ce soir!
En attendant, merci de ta contribution !

[sozary]

Le problème persiste

[mikell]

Le problème vient essentiellement de la fonction d'évaluation qui n'évalue rien du tout ^^

Ah NdD.. je m'étais pourtant juré de ne plus me faire attraper par tes questions tordues
M'enfin bon réponse ici
Dans cet exemple l'humain commence et l'IA joue en second, pour faire l'inverse je te laisse le soin d'adapter le code

BTW le code n'utilise pas ByRef mais il pourrait le faire, pas pour l'exactitude du code mais juste parce que c'est meilleur au niveau des performances (cf. le fichier d'aide)

[sozary]

Merci!!!!!!!!!!!!