Bonsoir !
J'ai programmé cette fonction en Caml Light et le shell me renvoie une erreur de syntaxe à la ligne 12 et je n'arrive pas à trouver d'où elle vient...
Merci d'avance pour votre temps et votre aide,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 let simplifier f alpha v = let nb_occurences = ref 0 in if v = 1 then begin for i = 1 to ((vect_length f) - 1) do for j = 1 to ((vect_length f.(i)) - 1) do if f.(i).(j) = alpha then begin nb_occurences := !nb_occurences + 1; supprimer_clause f i; end; else if f.(i).(j) = (-alpha) then begin if vect_length f.(i) = 2 then supprimer_clause f i; else supprimer_variable f.(i) j; end; done; done; end; !nb_occurences;;
Eskenedwaith
Partager