Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
4837 connectés 

  FORUM HardWare.fr
  Programmation

  problème en camL

 
 


Dernière réponse
Sujet : problème en camL
sire de Botcor tiens... un brestois !

Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse
[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 
Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
sire de Botcor tiens... un brestois !
xav14

lordankou a écrit a écrit :

il sert à quoi l'algo de huffman ?




 
c'est une méthode de compression je crois
 
il me semble que c'est ca qui est tombé a mon exam de juin (que j'ai eu :D sans rien foutre)
lordankou et bon voilà ça marche mais bon ça c vraiment que le début. il faut que j'inclus la 3e dimension et ensuite rajouter peut être une notion de temps  
 

Code :
  1. #open "graphics";;
  2. open_graph "";;
  4. let init_matrice longueur_matrice nombre =
  5.   let matrice = make_matrix longueur_matrice longueur_matrice 0 in
  6.    for compteur = 1 to (longueur_matrice-2) do
  7.     for compteur2 = 1 to (longueur_matrice-2) do
  8.      matrice.(compteur).(compteur2) <-(random__int nombre)
  9.     done ;
  10.    done ;
  11. matrice ;;
  14. let dessiner_matrice x_depart y_depart matrice rayon_cellule=
  15. for compteur = 0 to (vect_length matrice -1) do
  16.   for compteur2 = 0 to (vect_length matrice -1) do
  17.     match matrice.(compteur).(compteur2) with
  18.      |1 -> set_color black ; fill_circle (x_depart+rayon_cellule*compteur*2) (x_depart+rayon_cellule*compteur2*2) rayon_cellule
  19.      |_ -> set_color white ; fill_circle (x_depart+rayon_cellule*compteur*2) (x_depart+rayon_cellule*compteur2*2) rayon_cellule         
  20.   done ;
  21. done ;
  22. ;;
  26. let successeur_matrice matrice matrice_suivante =
  27.     let lg = (vect_length matrice) in
  28.     for compteur = 1 to (lg-2) do
  29.       for compteur2 = 1 to (lg-2) do
  30.         match (matrice.(compteur-1).(compteur2-1)+matrice.(compteur-1).(compteur2)+matrice.(compteur-1).(compteur2+1)+matrice.(compteur).(compteur2-1)+matrice.(compteur).(compteur2+1)+matrice.(compteur+1).(compteur2-1)+matrice.(compteur+1).(compteur2)+matrice.(compteur+1).(compteur2+1)) with
  31.          |2 -> if (matrice.(compteur).(compteur2)=1) then matrice_suivante.(compteur).(compteur2) <- 1 else matrice_suivante.(compteur).(compteur2) <- 0
  32.          |3 -> matrice_suivante.(compteur).(compteur2) <- 1 
  33.          |_ -> matrice_suivante.(compteur).(compteur2) <- 0         
  34.       done ;
  35.     done ;
  36. matrice_suivante;;
  39. clear_graph();;
  41. let matrice_suivante = make_matrix 10 10 0 ;;
  42. let test = let matrice = (init_matrice 10 2) in
  43. dessiner_matrice 250 200 matrice 5 ;
  44. dessiner_matrice 100 100 (successeur_matrice matrice matrice_suivante) 5 ;;
  46. let boucle matrice longueur x_depart y_depart rayon_cellule =
  47. let matrice_suivante = (make_matrix longueur longueur 0) and matrice_temporaire = (make_matrix longueur longueur 0) in
  48. calcul matrice matrice_suivante ;
  49. where rec calcul matrice matrice_suivante =
  50.   for compteur = 0 to 1 do
  51.    ();
  52.   done ;
  53.   dessiner_matrice x_depart y_depart matrice rayon_cellule ;
  54.   calcul (successeur_matrice matrice matrice_suivante) matrice_suivante ;;
  56. clear_graph();;
  58. boucle (init_matrice 20 2) 20 100 100 2 ;;
LeGreg

lordankou a écrit a écrit :

oui mais je trouve que avec un fort typage on a un algo bien propre et pour le récursif je sais pas ce que ça donne en c++



 
Disons que si tu codes tout de go en recursif en C++
meme pour du terminal il ne va pas te dérécursifier à la main.
Par contre, il y a des cas ou dérécursifier passe par une gestion manuelle d'une pile, donc ca peut-etre un plus si tu laisses le langage gérer la pile pour toi.
 
Sauf qu'evidemment la pile a une taille limitée en mémoire (par l'OS ou le langage) et donc parfois tu ne peux pas faire sans gérer ta pile sans reposer sur celle du système :).
 
Sinon Caml est tres bon pour plein de choses pas seulement le recursif mais passons.
 
A+
LeGreg
farib ....
lordankou il sert à quoi l'algo de huffman ?
farib allez pour le plaisir : algo de huffman
 

Code :
  1. type arbre= Feuille of char|Noeud of (arbre*arbre);;
  3. let rec ajoute element liste =
  4. match liste with
  5. []->[element,1]
  6. |(lettre,nbr)::l-> if element = lettre then (element,(nbr+1))::l
  7.                    else (lettre,nbr)::(ajoute element l);;
  9. let rec frequence texte liste =
  10. if texte = "" then liste
  11. else frequence (sub_string texte 1 ((string_length texte)-1) ) (ajoute  texte.[0] liste);;
  13. let double_min liste =
  14. let rec mini_aux av ap mini =
  15. match ap with
  16. []->av,mini
  17. |(a,b)::l->if b < (snd mini) then (mini_aux (mini::av) l (a,b))
  18.   else mini_aux ((a,b)::av) l mini
  19. in ( let truc = mini_aux [] (tl liste) (hd liste)
  20. in ( let truc2 = mini_aux [] (tl (fst truc)) (hd (fst truc))
  21. in (fst truc2,(snd truc,snd truc2))));;
  23. let rec normalise liste =
  24. match liste with
  25. []->[]
  26. |(a,b)::l->((Feuille a),b)::(normalise l);;
  28. let rec arbreuh liste =
  29. match liste with
  30. [a,b]->a
  31. |_->(let resu = (double_min liste) in (
  32. match resu with
  33. (a,((b,c),(d,e))) -> arbreuh (((Noeud (b,d)),(c+e))::a)
  34.  ));;
  36. let rec encodage texte table_codage =
  37. match texte with
  38. ""->[]
  39. |_->(assq texte.[0] table_codage)@(encodage (sub_string texte 1 ((string_length texte)-1)) table_codage);;
  41. let rec codage bitprec tree =
  42. match tree with
  43. (Feuille a)-> [(a,(rev bitprec))]     
  44. |Noeud (a,b)-> (codage (0::bitprec) a)   @   (codage (1::bitprec)  b);;
  46. let compresse texte =
  47. let arbre_huffman = arbreuh (normalise (frequence texte []))
  48. in ( let table_compression = (codage [] (arbre_huffman)) in (
  49. (encodage texte table_compression),arbre_huffman));;
  51. let decompresse liste arbrini =
  52. let rec decode_aux liste tree =
  53. match liste,tree with
  54. [],(Feuille a)->[(char_for_read a)]
  55. |_,(Feuille a)->(char_for_read a)::(decode_aux liste arbrini)
  56. |x::l,(Noeud (a,b)) -> if x = 0 then (decode_aux l a) else (decode_aux l b)
  57. in ( concat (decode_aux liste arbrini));;


 
pour décompresser, copie la liste de bits et l'arbre en parametres
lordankou oui mais je trouve que avec un fort typage on a un algo bien propre et pour le récursif je sais pas ce que ça donne en c++
je sais que c super pratique en camL le récursif (j'adore  :love: ).
farib ben disons que les algos sous caml et c++ c pas tellemtn al meême maniere caml eet archi type et récursif
lordankou je voulais faire le jeu de la vie en l'adaptant un peu pour le mettre en 3d et avec un système d'évolution. je vais faire ça en c++ et en opengl mais bon préfère trouver l'algo d'abord en caml et ensuite traduire tout ça en c++ avec de l'opengl.  
 
en ce qui concerne le vect_assign le plus con c que j'avais bien utilisé le <- au lieu de = une dizaine de ligne au dessus dans une autre fonctoin  :sarcastic:  
 
ah là là que d'erreur. bon là j'y suis presque j'ai juste une erreur :  
#Uncaught exception: Invalid_argument "vect_item"
 
mais bon ça je pense savoir d'ou ça vient. étant donné que je fais tout le tour de la matrice et que je dois regarder l'état de tous les cellules adjacentes j'ai du mettre un + au lieu d'un moins quelques parts. bref verrait ça demain car là fatigué !!!
 
je mes tjrs le code de ce que j'ai fais pour l'instant (si ça peut intéresser quelqu'un  :lol:  :lol: ) :  

Code :
  1. #open "graphics";;
  2. open_graph "";;
  4. let init_matrice longueur_matrice nombre =
  5.   let matrice = make_matrix longueur_matrice longueur_matrice 1 in
  6.    for compteur = 0 to (longueur_matrice-1) do
  7.     for compteur2 = 0 to (longueur_matrice-1) do
  8.      matrice.(compteur).(compteur2) <-(random__int nombre)
  9.     done ;
  10.    done ;
  11. matrice ;;
  14. let dessiner_matrice x_depart y_depart matrice rayon_cellule=
  15. for compteur = 0 to (vect_length matrice-1) do
  16.   for compteur2 = 0 to (vect_length matrice.(compteur)-1) do
  17.     match matrice.(compteur).(compteur2) with
  18.      |1 -> set_color black ; fill_circle (x_depart+rayon_cellule*compteur*2) (x_depart+rayon_cellule*compteur2*2) rayon_cellule
  19.      |_ -> set_color white ; fill_circle (x_depart+rayon_cellule*compteur*2) (x_depart+rayon_cellule*compteur2*2) rayon_cellule         
  20.   done ;
  21. done ;
  22. ;;
  24. let comparaison matrice nombre i j =
  25.   match (nombre) with
  26.      |2 -> if (matrice.(i).(j)=1) then 1 else 0
  27.      |3 -> if (matrice.(i).(j)=0) then 1 else 1
  28.      |_ -> 0;;
  31. let successeur_matrice matrice =
  32.   let matrice_suivante = make_matrix (vect_length matrice) (vect_length matrice) 1 in
  33.     matrice_suivante.(0).(0) <- comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) 0 0 ;
  34.     matrice_suivante.(vect_length matrice-1).(0) <- comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) (vect_length matrice-1) 0 ;
  35.     matrice_suivante.(0).(vect_length matrice-1) <- comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) 0 (vect_length matrice-1) ;
  36.     matrice_suivante.(vect_length matrice-1).(vect_length matrice-1) <- comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) (vect_length matrice-1) (vect_length matrice-1) ;
  37.     for compteur = 1 to (vect_length matrice-2) do
  38.       for compteur2 = 1 to (vect_length matrice.(compteur)-2) do
  39.         match (matrice.(compteur-1).(compteur2-1)+matrice.(compteur-1).(compteur2)+matrice.(compteur-1).(compteur2+1)+matrice.(compteur).(compteur2-1)+matrice.(compteur).(compteur2+1)+matrice.(compteur+1).(compteur2-1)+matrice.(compteur+1).(compteur2)+matrice.(compteur+1).(compteur2+1)) with
  40.          |2 -> if (matrice.(compteur).(compteur2)=1) then matrice_suivante.(compteur).(compteur2) <- 1 else matrice_suivante.(compteur).(compteur2) <- 0
  41.          |3 -> matrice_suivante.(compteur).(compteur2) <- 1 
  42.          |_ -> matrice_suivante.(compteur).(compteur2) <- 0         
  43.       done ;
  44.     done ;
  45.     for compteur = 1 to (vect_length matrice) do
  46.       match (matrice.(compteur-1).(0)+matrice.(compteur-1).(1)+matrice.(compteur).(1)+matrice.(compteur+1).(1)+matrice.(compteur+1).(0)) with
  47.         |2 -> if (matrice.(compteur).(0)=1) then matrice_suivante.(compteur).(0) <- 1 else matrice_suivante.(compteur).(0) <- 0
  48.         |3 -> matrice_suivante.(compteur).(0) <- 1 
  49.         |_ -> matrice_suivante.(compteur).(0) <- 0
  50.     done ;
  51.     for compteur = 1 to (vect_length matrice) do
  52.       match (matrice.(0).(compteur-1)+matrice.(1).(compteur-1)+matrice.(1).(compteur)+matrice.(1).(compteur+1)+matrice.(0).(compteur+1)) with
  53.         |2 -> if (matrice.(0).(compteur)=1) then matrice_suivante.(0).(compteur) <- 1 else matrice_suivante.(0).(compteur) <- 0
  54.         |3 -> matrice_suivante.(0).(compteur) <- 1 
  55.         |_ -> matrice_suivante.(0).(compteur) <- 0
  56.     done ;
  57.     for compteur = 1 to (vect_length matrice) do
  58.       match (matrice.(compteur-1).(vect_length matrice)+matrice.(compteur-1).(vect_length matrice-1)+matrice.(compteur).(vect_length matrice-1)+matrice.(compteur+1).(vect_length matrice-1)+matrice.(compteur+1).(vect_length matrice)) with
  59.         |2 -> if (matrice.(compteur).(vect_length matrice)=1) then matrice_suivante.(compteur).(vect_length matrice) <- 1 else matrice_suivante.(compteur).(vect_length matrice) <- 0
  60.         |3 -> matrice_suivante.(compteur).(vect_length matrice) <- 1 
  61.         |_ -> matrice_suivante.(compteur).(vect_length matrice) <- 0
  62.     done ;
  63.     for compteur = 1 to (vect_length matrice) do
  64.       match (matrice.(vect_length matrice).(compteur-1)+matrice.(vect_length matrice-1).(compteur-1)+matrice.(vect_length matrice-1).(compteur)+matrice.(vect_length matrice-1).(compteur+1)+matrice.(vect_length matrice).(compteur+1)) with
  65.         |2 -> if (matrice.(vect_length matrice).(compteur)=1) then matrice_suivante.(vect_length matrice).(compteur) <- 1 else matrice_suivante.(vect_length matrice).(compteur) <- 0
  66.         |3 -> matrice_suivante.(vect_length matrice).(compteur) <- 1 
  67.         |_ -> matrice_suivante.(vect_length matrice).(compteur) <- 0
  68.     done ;
  69. matrice_suivante;;
  71. let rec boucle matrice x_depart y_depart rayon_cellule =
  72.   dessiner_matrice x_depart y_depart matrice rayon_cellule ;
  73.   for compteur = 0 to 600000 do
  74.   ();
  75.   done ;
  76.   boucle (successeur_matrice matrice) x_depart y_depart rayon_cellule ;;
  79. let fonction_de_test longueur_matrice nombre x_depart y_depart rayon_cellule =
  80. let matrice = (init_matrice longueur_matrice nombre) in
  81. boucle matrice x_depart y_depart rayon_cellule ;;
  84. clear_graph();;
  85. fonction_de_test 20 13 100 100 10 ;;


 
BONNE NUIT !
farib ben moi ca faisait un an que j'en avais pas fait, et j'ai retrouvé la syntaxe rien que pour toi ! en gros g bossé a ta place !
 
(dans quel cadre tu t'y es remis ?)
lordankou bah euh disons que ça fait plutôt un an que j'en ai pas fait et bon je me suis remis à ça y'a deux jours donc faut que je me réhabitue avec la syntaxe !  :ange:
farib j'ai corrigé l'algo d'avant (morceaux en gras) (y'a un bug  ave le forum, verifie caractere par caractere)
 

Code :
  1. let successeur_matrice matrice =
  2.     let matrice_suivante = (make_matrix (vect_length matrice) (vect_length matrice) 1) in (
  3.       matrice_suivante.(0).(0)<- (comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) 0 0) ; 
  4.       matrice_suivante.(0).((vect_length matrice) - 1) <- (comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) 0 (vect_length matrice-1));
  5. ); matrice_suivante ;;
farib ca fait pas longtemps que tu fais tu caml
pour assigner a un vecteur on fait comme ca
 
vecteur.(indice)<-valeur
 
no comment
lordankou je comprends pas justement pourquoi  

Code :
  1. (matrice_suivante.(0).(0)) = (comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) 0 0)


est un bool  
car je veux mettre dans matrice_suivante.(0).(0) le résultat de "comparasion" qui est un int donc logiquement ça devrait être un int l'expression ci dessus.
idem pour  
matrice_suivante.(vect_length matrice-1).(0)
matrice_suivante.(0).(vect_length matrice-1)
matrice_suivante.(vect_length matrice-1).(vect_length matrice-1)
 
bref la fonction est :

Code :
  1. let successeur_matrice matrice =
  2.   let matrice_suivante = make_matrix (vect_length matrice) (vect_length matrice) 1 in
  3.     matrice_suivante.(0).(0) = comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) 0 0 ;
  4.     matrice_suivante.(vect_length matrice-1).(0) = comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) (vect_length matrice-1) 0 ;
  5.     matrice_suivante.(0).(vect_length matrice-1) = comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) 0 (vect_length matrice-1) ;
  6.     matrice_suivante.(vect_length matrice-1).(vect_length matrice-1) = comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) (vect_length matrice-1) (vect_length matrice-1) ;
  7.     for compteur = 1 to (vect_length matrice-2) do
  8.       for compteur2 = 1 to (vect_length matrice.(compteur)-2) do
  9.         match (matrice.(compteur-1).(compteur2-1)+matrice.(compteur-1).(compteur2)+matrice.(compteur-1).(compteur2+1)+matrice.(compteur).(compteur2-1)+matrice.(compteur).(compteur2+1)+matrice.(compteur+1).(compteur2-1)+matrice.(compteur+1).(compteur2)+matrice.(compteur+1).(compteur2+1)) with
  10.          |2 -> if (matrice.(compteur).(compteur2)=1) then matrice_suivante.(compteur).(compteur2)=1 else matrice_suivante.(compteur).(compteur2)=1
  11.          |3 -> if (matrice.(compteur).(compteur2)=0) then matrice_suivante.(compteur).(compteur2)=1 else matrice_suivante.(compteur).(compteur2)=1
  12.          |_ -> if (matrice.(compteur).(compteur2)=1) then matrice_suivante.(compteur).(compteur2)=0 else matrice_suivante.(compteur).(compteur2)=0         
  13.       done ;
  14.     done ;;


 
et doit donner la matrice successive de la matrice donné en entrée suivant les règles du jeux de la vie.
farib (au passage cmlc c génial pr le récursif... g fait un algo de huffman  récursif, c t trop court en terme de code... en 5-6lignes tu fais des algos trop piussants)
 
alors ton pb il est simple

Code :
  1. (matrice_suivante.(0).(0)) = (comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) 0 0)


 
c'est un bool....
 
or tu le fais suivre d'un ";", il ne faut pas car l'expression a un type caml ne sait pas ce qu'il faut en faire ... il essaye de le faire passer sans type
 
 

Code :
  1. (matrice_suivante.(0).(vect_length matrice-1)) = (comparaison matrice matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) 0 (vect_length matrice-1))


 
ca aussi c un bool, mais comme derriere il y a un ;; c'est normal, c'est la valeur qu'il doit renvoyer
 
je sias  pas quel est ton algo pour corriger
lordankou bon j'ai simplifié :
 

Code :
  1. let comparaison matrice nombre i j =
  2.   match (nombre) with
  3.      |0 -> if (matrice.(i).(j)=1) then 0 else 1
  4.      |1 -> if (matrice.(i).(j)=1) then 0 else 1
  5.      |2 -> if (matrice.(i).(j)=1) then 1 else 1
  6.      |3 -> if (matrice.(i).(j)=0) then 1 else 0
  7.      |_ -> if (matrice.(i).(j)=0) then 1 else 0;;
  9. comparaison : int vect vect -> int -> int -> int -> int = <fun>


 
ensuite je l'utilise :

Code :
  1. let successeur_matrice matrice =
  2.   let matrice_suivante = make_matrix (vect_length matrice) (vect_length matrice) 1 in
  3.     (matrice_suivante.(0).(0)) = (comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) 0 0) ;
  4.     (matrice_suivante.(0).(vect_length matrice-1)) = (comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) 0 (vect_length matrice-1)) ;;
  6. #Toplevel input:
  7. >    (matrice_suivante.(0).(0)) = (comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) 0 0) ;
  8. >    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  9. Warning: this expression has type bool,
  10. but is used with type unit.


 
 alors que quand j'utilise comme ça :

Code :
  1. let successeur_matrice matrice =
  2.   let matrice_suivante = make_matrix (vect_length matrice) (vect_length matrice) 1 in
  3.     (matrice_suivante.(0).(0)) = (comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) 0 0) ;;
  5. successeur_matrice : int vect vect -> bool = <fun>


ça marche très bien.
 
or il faut que j'utilise plusieurs fois "comparaison"
farib malheursement g abandonné la prépa et caml avec masi
 
 
ce serati pas une mauvaise portée de variable avec
 
let matrice_suivante = make_matrix (vect_length matrice) (vect_length matrice) 1 in  
                                                                                                               ^^
lordankou bon voila le code :
 
 
let comparaison matrice matrice_suivante nombre i j =
  match nombre with
     |0 -> if (matrice.(i).(j)=1) then matrice_suivante.(i).(j)=0 else matrice_suivante.(i).(j)=1
     |1 -> if (matrice.(i).(j)=1) then matrice_suivante.(i).(j)=0 else matrice_suivante.(i).(j)=1
     |2 -> if (matrice.(i).(j)=1) then matrice_suivante.(i).(j)=1 else matrice_suivante.(i).(j)=1  
     |3 -> if (matrice.(i).(j)=0) then matrice_suivante.(i).(j)=1 else matrice_suivante.(i).(j)=0
     |_ -> if (matrice.(i).(j)=0) then matrice_suivante.(i).(j)=1 else matrice_suivante.(i).(j)=0;;
 
let successeur_matrice matrice =
  let matrice_suivante = make_matrix (vect_length matrice) (vect_length matrice) 1 in
    comparaison matrice matrice_suivante (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) 0 0 ;
    comparaison matrice matrice_suivante (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) (vect_length matrice-1) 0 ;
    comparaison matrice matrice_suivante (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) 0 (vect_length matrice-1) ;
    comparaison matrice matrice_suivante (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) (vect_length matrice-1) (vect_length matrice-1) ;
    for compteur = 1 to (vect_length matrice-2) do
      for compteur2 = 1 to (vect_length matrice.(compteur)-2) do
        match (matrice.(compteur-1).(compteur2-1)+matrice.(compteur-1).(compteur2)+matrice.(compteur-1).(compteur2+1)+matrice.(compteur).(compteur2-1)+matrice.(compteur).(compteur2+1)+matrice.(compteur+1).(compteur2-1)+matrice.(compteur+1).(compteur2)+matrice.(compteur+1).(compteur2+1)) with
         |2 -> if (matrice.(compteur).(compteur2)=1) then matrice_suivante.(compteur).(compteur2)=1 else matrice_suivante.(compteur).(compteur2)=1
         |3 -> if (matrice.(compteur).(compteur2)=0) then matrice_suivante.(compteur).(compteur2)=1 else matrice_suivante.(compteur).(compteur2)=1  
         |_ -> if (matrice.(compteur).(compteur2)=1) then matrice_suivante.(compteur).(compteur2)=0 else matrice_suivante.(compteur).(compteur2)=0          
      done ;
    done ;  
matrice = matrice_suivante ;;
 
et j'obtiens comme erreur :  
 
Toplevel input:
>    comparaison matrice matrice_suivante (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) 0 0 ;
>    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Warning: this expression has type bool,
but is used with type unit.
 
 
et franchement là je comprends pas. c pas de type bool pourtant.

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)