Reprise du message précédent :
Je viens de voir ton message, je te met ça dans 5 mn.
A+,

Il suffit de remplacer modifier la procédure qui formate les lignes.
Cette version modifiée fait l'affaire:

sub jovalisate {
  my $fh = shift;
  my $string = shift;
  my @list = split /\s+/, $$string;
  my @display = ("0.0", "0.0", "0.0", "0.0", "0.0", "0.0", "0.0", "0.0", "0.0" );
  my @display1 = @display;
  print $fh "@display\n";
  my $coup = 1;
  foreach my $i (@list) {
    $display[$i - 1] = $coup++%2 ? "1.0" : "-1.0";
    $display1[$i - 1] = $display[$i - 1];
    print $fh "@display1\n";
    $display1[$i - 1] = "0.0";
    print $fh "@display\n";
  }
  # print $fh "\n"; # si on veut séparer chaque partie par une ligne blanche
}

A+,

 
 
Attends, je viens de voir le tien, je crois qu'il ne me faux que les coup du joueur 2 dans le fichier.
Bien sur, l'état de chaqe coup correspondant comprenant le le coup du joueur 1.  
 
Merci Gilou.

sub jovalisate {
  my $fh = shift;
  my $string = shift;
  my @list = split /\s+/, $$string;
  my @display = ("0.0", "0.0", "0.0", "0.0", "0.0", "0.0", "0.0", "0.0", "0.0" );
  my @display1 = @display;
  print $fh "@display\n";
  my $coup = 1;
  foreach my $i (@list) {
    $display[$i - 1] = $coup++%2 ? "1.0" : "-1.0";
    $display1[$i - 1] = $display[$i - 1];
    print $fh "@display1\n";
    $display1[$i - 1] = "0.0";
    print $fh "@display\n";
  }
  # print $fh "\n"; # si on veut séparer chaque partie par une ligne blanche
}

 
 
Bon, maintenant que c'est fait, obligé de tester.
Si tu peux prendre ma dernière remarque en compte....
Merci Gilou, bise.

C'est pas clair du tout.
Sur un exemple, je comprendrais sans doute mieux.
A+,

Je vais essayer de décrire mon problème.
 
il me faudrait des couple de ligne dont la première est l'état du jeu après que le joueur 1 ai joué.
Et la ligne deux, avec seulement le coup du joueur 2.
 
Donc par l'exemple :
 
1.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
0.0 -1.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
1.0 -1.0 1.0 0.0 0.0 0.0 0.0 0.0 0.0
0.0 0.0 0.0 -1.0 0.0 0.0 0.0 0.0 0.0
1.0 -1.0 1.0 -1.0 1.0 0.0 0.0 0.0 0.0
0.0 0.0 0.0 0.0 0.0 -1.0 0.0 0.0 0.0
 

sub jovalisate {
  my $fh = shift;
  my $string = shift;
  my @list = split /\s+/, $$string;
  my @display = ("0.0", "0.0", "0.0", "0.0", "0.0", "0.0", "0.0", "0.0", "0.0" );
  my @display1 = @display;
  print $fh "@display\n";
  my $coup = 1;
  foreach my $i (@list) {
    $display[$i - 1] = $coup++%2 ? "1.0" : "-1.0";
    if ($coup%2) {
      $display1[$i - 1] = $display[$i - 1];
      print $fh "@display1\n";
      $display1[$i - 1] = "0.0";
    }
    else {
      print $fh "@display\n";
    }
  }
  # print $fh "\n"; # si on veut séparer chaque partie par une ligne blanche
}

A+,

Merci Gilou, je n'ai pas terminé les testes, pour l'instant, ça ne fonctionne pas mais j'espère bien y parvenir.
En tout cas, mis à par les ligne de plateau vide que j'ai du supprimer (pas à la main) le fichier de données est bien ce que j'attendais.
Merci encore Gilou.
A+

 
Pour supprimer les lignes de plateau vide (je pensais que tu les voulais au vu de tes exemples) il suffit de mettre la ligne qui les envoie en commentaire:

sub jovalisate {
  my $fh = shift;
  my $string = shift;
  my @list = split /\s+/, $$string;
  my @display = ("0.0", "0.0", "0.0", "0.0", "0.0", "0.0", "0.0", "0.0", "0.0" );
  my @display1 = @display;
  # print $fh "@display\n"; # cette ligne la a mettre en commentaire, avec un # devant
  my $coup = 1;
  foreach my $i (@list) {
    $display[$i - 1] = $coup++%2 ? "1.0" : "-1.0";
    if ($coup%2) {
      $display1[$i - 1] = $display[$i - 1];
      print $fh "@display1\n";
      $display1[$i - 1] = "0.0";
    }
    else {
      print $fh "@display\n";
    }
  }
  # print $fh "\n"; # si on veut séparer chaque partie par une ligne blanche
}

A+,

Oui, merci Gilou, j'avais vu. Tout de même, tu charries là....
 
Merci encore Gilou.

Ce commentaire me laissait penser que tu filtrais avec un grep négatif (grep -v ...)
A+,

Salut, j'ai tout essayé, j'ai laissé tomber PragmARC pour fann avec lequel j'ai essayer toute les combinaison de fonction d'activation et d'algorithme de trainning, mais rien n'y fait.
Au maximum le réseau joue deux coup et encore, parfois il joue une place occupée.
 
Je dis pas que je laisse tomber, mais j'y reviendrais plus tard éventuellement à moins que vous ayez de bonne idées ?

 
 
Je viens de faire ma première partie de morpion avec un réseau de neurones.
 
Avec fannada avec 3 couche cachées, une de 81 plus une de 9 plus encore une de 81.
Voilà mal joué !

Bon, c'est pas impec quand même.
 
Ou alors, c'est un morpion intelligent qui déclare forfait de temps à autre.  

 
Je te dis, un apprentissage par renforcement serait bien plus efficace Bien plus simple à coder et meilleurs résultats...

Peut-être, mais je voulais tester un réseau de neurones là !
Merci rufo,.... Ca boum !
 
 
En parlant d'apprentissage par renforcement, j'au trouvé plus intéressant à faire ...
 
Je voudrait enseigner le codage Ada par renforcement, t'as une idées ?

 
Je suis pas sûr de comprendre Enseigner à qui : un ordi ou des élèves (dans le 2ème cas, j'imagine que c'est, du coup, une blague )?

Ben ouais, c'est pour l'enseigner à la bécane.  

ben le pb, c'est qu'avant de lui apprendre à coder en ada, va falloir lui apprendre l'algorithmie... et à penser l'algo par rapport au pb soumis
 
Ca me paraît super chaud, surtout que si tu y arrives, tu vas mettre au chômage tous les développeurs