Discussion :

[eskenedwaith]

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

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

Merci d'avance pour votre temps et votre aide,

Eskenedwaith

[SpiceGuid]

L'erreur est due au point-virgule à la fin de la ligne 11.

Un point-virgule à la fin d'une clause then indique qu'il n'y aura pas de clause else correspondante.
Et pourtant il y a une clause else correspondante à la ligne 12. D'où l'erreur reportée.

Même chose à la ligne 15, il y a un point-virgule à la fin de la ligne alors même qu'il y a une clause else correspondante à la ligne 16.

[eskenedwaith]

Merci beaucoup !