problème en camL

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : problème en camL

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.

---------------

Publicité

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
^^

Message édité par farib le 30-07-2002 à 00:05:01

lordankou

bon j'ai simplifié :

Code :

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

ensuite je l'utilise :

Code :

let successeur_matrice matrice =
let matrice_suivante = make_matrix (vect_length matrice) (vect_length matrice) 1 in
(matrice_suivante.(0).(0)) = (comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) 0 0) ;
(matrice_suivante.(0).(vect_length matrice-1)) = (comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) 0 (vect_length matrice-1)) ;;
#Toplevel input:
> (matrice_suivante.(0).(0)) = (comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) 0 0) ;
> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Warning: this expression has type bool,
but is used with type unit.

alors que quand j'utilise comme ça :

Code :

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

ça marche très bien.

or il faut que j'utilise plusieurs fois "comparaison"

---------------

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 :

(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 :

(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

je comprends pas justement pourquoi

Code :

(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 :

let successeur_matrice matrice =
let matrice_suivante = make_matrix (vect_length matrice) (vect_length matrice) 1 in
matrice_suivante.(0).(0) = comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) 0 0 ;
matrice_suivante.(vect_length matrice-1).(0) = comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) (vect_length matrice-1) 0 ;
matrice_suivante.(0).(vect_length matrice-1) = comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) 0 (vect_length matrice-1) ;
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) ;
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 ;;

et doit donner la matrice successive de la matrice donné en entrée suivant les règles du jeux de la vie.

---------------

farib

ca fait pas longtemps que tu fais tu caml
pour assigner a un vecteur on fait comme ca

vecteur.(indice)<-valeur

no comment

farib

j'ai corrigé l'algo d'avant (morceaux en gras) (y'a un bug ave le forum, verifie caractere par caractere)

Code :

let successeur_matrice matrice =
let matrice_suivante = (make_matrix (vect_length matrice) (vect_length matrice) 1) in (
matrice_suivante.(0).(0)<- (comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) 0 0) ;
matrice_suivante.(0).((vect_length matrice) - 1) <- (comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) 0 (vect_length matrice-1));
); matrice_suivante ;;

Message édité par farib le 30-07-2002 à 19:33:09

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

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

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 :

#open "graphics";;
open_graph "";;
let init_matrice longueur_matrice nombre =
let matrice = make_matrix longueur_matrice longueur_matrice 1 in
for compteur = 0 to (longueur_matrice-1) do
for compteur2 = 0 to (longueur_matrice-1) do
matrice.(compteur).(compteur2) <-(random__int nombre)
done ;
done ;
matrice ;;
let dessiner_matrice x_depart y_depart matrice rayon_cellule=
for compteur = 0 to (vect_length matrice-1) do
for compteur2 = 0 to (vect_length matrice.(compteur)-1) do
match matrice.(compteur).(compteur2) with
|1 -> set_color black ; fill_circle (x_depart+rayon_cellule*compteur*2) (x_depart+rayon_cellule*compteur2*2) rayon_cellule
|_ -> set_color white ; fill_circle (x_depart+rayon_cellule*compteur*2) (x_depart+rayon_cellule*compteur2*2) rayon_cellule
done ;
done ;
;;
let comparaison matrice nombre i j =
match (nombre) with
|2 -> if (matrice.(i).(j)=1) then 1 else 0
|3 -> if (matrice.(i).(j)=0) then 1 else 1
|_ -> 0;;
let successeur_matrice matrice =
let matrice_suivante = make_matrix (vect_length matrice) (vect_length matrice) 1 in
matrice_suivante.(0).(0) <- comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) 0 0 ;
matrice_suivante.(vect_length matrice-1).(0) <- comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) (vect_length matrice-1) 0 ;
matrice_suivante.(0).(vect_length matrice-1) <- comparaison matrice (matrice.(1).(0)+matrice.(1).(1)+matrice.(0).(1)) 0 (vect_length matrice-1) ;
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) ;
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) <- 0
|3 -> matrice_suivante.(compteur).(compteur2) <- 1
|_ -> matrice_suivante.(compteur).(compteur2) <- 0
done ;
done ;
for compteur = 1 to (vect_length matrice) do
match (matrice.(compteur-1).(0)+matrice.(compteur-1).(1)+matrice.(compteur).(1)+matrice.(compteur+1).(1)+matrice.(compteur+1).(0)) with
|2 -> if (matrice.(compteur).(0)=1) then matrice_suivante.(compteur).(0) <- 1 else matrice_suivante.(compteur).(0) <- 0
|3 -> matrice_suivante.(compteur).(0) <- 1
|_ -> matrice_suivante.(compteur).(0) <- 0
done ;
for compteur = 1 to (vect_length matrice) do
match (matrice.(0).(compteur-1)+matrice.(1).(compteur-1)+matrice.(1).(compteur)+matrice.(1).(compteur+1)+matrice.(0).(compteur+1)) with
|2 -> if (matrice.(0).(compteur)=1) then matrice_suivante.(0).(compteur) <- 1 else matrice_suivante.(0).(compteur) <- 0
|3 -> matrice_suivante.(0).(compteur) <- 1
|_ -> matrice_suivante.(0).(compteur) <- 0
done ;
for compteur = 1 to (vect_length matrice) do
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
|2 -> if (matrice.(compteur).(vect_length matrice)=1) then matrice_suivante.(compteur).(vect_length matrice) <- 1 else matrice_suivante.(compteur).(vect_length matrice) <- 0
|3 -> matrice_suivante.(compteur).(vect_length matrice) <- 1
|_ -> matrice_suivante.(compteur).(vect_length matrice) <- 0
done ;
for compteur = 1 to (vect_length matrice) do
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
|2 -> if (matrice.(vect_length matrice).(compteur)=1) then matrice_suivante.(vect_length matrice).(compteur) <- 1 else matrice_suivante.(vect_length matrice).(compteur) <- 0
|3 -> matrice_suivante.(vect_length matrice).(compteur) <- 1
|_ -> matrice_suivante.(vect_length matrice).(compteur) <- 0
done ;
matrice_suivante;;
let rec boucle matrice x_depart y_depart rayon_cellule =
dessiner_matrice x_depart y_depart matrice rayon_cellule ;
for compteur = 0 to 600000 do
();
done ;
boucle (successeur_matrice matrice) x_depart y_depart rayon_cellule ;;
let fonction_de_test longueur_matrice nombre x_depart y_depart rayon_cellule =
let matrice = (init_matrice longueur_matrice nombre) in
boucle matrice x_depart y_depart rayon_cellule ;;
clear_graph();;
fonction_de_test 20 13 100 100 10 ;;

BONNE NUIT !

---------------

Publicité

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

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

allez pour le plaisir : algo de huffman

Code :

type arbre= Feuille of char|Noeud of (arbre*arbre);;
let rec ajoute element liste =
match liste with
[]->[element,1]
|(lettre,nbr)::l-> if element = lettre then (element,(nbr+1))::l
else (lettre,nbr)::(ajoute element l);;
let rec frequence texte liste =
if texte = "" then liste
else frequence (sub_string texte 1 ((string_length texte)-1) ) (ajoute texte.[0] liste);;
let double_min liste =
let rec mini_aux av ap mini =
match ap with
[]->av,mini
|(a,b)::l->if b < (snd mini) then (mini_aux (mini::av) l (a,b))
else mini_aux ((a,b)::av) l mini
in ( let truc = mini_aux [] (tl liste) (hd liste)
in ( let truc2 = mini_aux [] (tl (fst truc)) (hd (fst truc))
in (fst truc2,(snd truc,snd truc2))));;
let rec normalise liste =
match liste with
[]->[]
|(a,b)::l->((Feuille a),b)::(normalise l);;
let rec arbreuh liste =
match liste with
[a,b]->a
|_->(let resu = (double_min liste) in (
match resu with
(a,((b,c),(d,e))) -> arbreuh (((Noeud (b,d)),(c+e))::a)
));;
let rec encodage texte table_codage =
match texte with
""->[]
|_->(assq texte.[0] table_codage)@(encodage (sub_string texte 1 ((string_length texte)-1)) table_codage);;
let rec codage bitprec tree =
match tree with
(Feuille a)-> [(a,(rev bitprec))]
|Noeud (a,b)-> (codage (0::bitprec) a) @ (codage (1::bitprec) b);;
let compresse texte =
let arbre_huffman = arbreuh (normalise (frequence texte []))
in ( let table_compression = (codage [] (arbre_huffman)) in (
(encodage texte table_compression),arbre_huffman));;
let decompresse liste arbrini =
let rec decode_aux liste tree =
match liste,tree with
[],(Feuille a)->[(char_for_read a)]
|_,(Feuille a)->(char_for_read a)::(decode_aux liste arbrini)
|x::l,(Noeud (a,b)) -> if x = 0 then (decode_aux l a) else (decode_aux l b)
in ( concat (decode_aux liste arbrini));;

pour décompresser, copie la liste de bits et l'arbre en parametres

Message édité par farib le 31-07-2002 à 09:56:08

lordankou

il sert à quoi l'algo de huffman ?

---------------

farib

....

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

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 :

#open "graphics";;
open_graph "";;
let init_matrice longueur_matrice nombre =
let matrice = make_matrix longueur_matrice longueur_matrice 0 in
for compteur = 1 to (longueur_matrice-2) do
for compteur2 = 1 to (longueur_matrice-2) do
matrice.(compteur).(compteur2) <-(random__int nombre)
done ;
done ;
matrice ;;
let dessiner_matrice x_depart y_depart matrice rayon_cellule=
for compteur = 0 to (vect_length matrice -1) do
for compteur2 = 0 to (vect_length matrice -1) do
match matrice.(compteur).(compteur2) with
|1 -> set_color black ; fill_circle (x_depart+rayon_cellule*compteur*2) (x_depart+rayon_cellule*compteur2*2) rayon_cellule
|_ -> set_color white ; fill_circle (x_depart+rayon_cellule*compteur*2) (x_depart+rayon_cellule*compteur2*2) rayon_cellule
done ;
done ;
;;
let successeur_matrice matrice matrice_suivante =
let lg = (vect_length matrice) in
for compteur = 1 to (lg-2) do
for compteur2 = 1 to (lg-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) <- 0
|3 -> matrice_suivante.(compteur).(compteur2) <- 1
|_ -> matrice_suivante.(compteur).(compteur2) <- 0
done ;
done ;
matrice_suivante;;
clear_graph();;
let matrice_suivante = make_matrix 10 10 0 ;;
let test = let matrice = (init_matrice 10 2) in
dessiner_matrice 250 200 matrice 5 ;
dessiner_matrice 100 100 (successeur_matrice matrice matrice_suivante) 5 ;;
let boucle matrice longueur x_depart y_depart rayon_cellule =
let matrice_suivante = (make_matrix longueur longueur 0) and matrice_temporaire = (make_matrix longueur longueur 0) in
calcul matrice matrice_suivante ;
where rec calcul matrice matrice_suivante =
for compteur = 0 to 1 do
();
done ;
dessiner_matrice x_depart y_depart matrice rayon_cellule ;
calcul (successeur_matrice matrice matrice_suivante) matrice_suivante ;;
clear_graph();;
boucle (init_matrice 20 2) 20 100 100 2 ;;

---------------

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 sans rien foutre)

sire de Botcor

Armorican way of life

tiens... un brestois !

FORUM HardWare.fr

Programmation

problème en camL

Sujets relatifs
Problème css style SELECT	Problème d'identification de DLL
[PHP] Probleme pour faire passer des infos par l'url.	[PHP] Probleme avec function
problème de compilation	probleme de permission ds une applet
[PHP] probleme avec la fonction mail	[Flash 4_php] Problème de variable
Problème de débutant	Probleme script d'upload d'image en la compressant
Plus de sujets relatifs à : problème en camL

Page générée en 0.132 secondes