Discussion :

[Artherus]

Bonjour,

Je suis confronté à un problème - sans doute stupide-, mais mon programme ne marche pas... En effet, Caml m'affirme qu'il y a une erreur de syntaxe.

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
	let divise1 t p =
	let i =ref 0 and k =ref 0 and s= ref (vect_length t -1) and 
		 permute  a b =
			let aux = t.(a) ;
			t.(a) <- t.(b);
			t.(b) <- aux
 in
	while !s - !k >0 do
	if t.(!k) < p then 
		begin permute  !k !i; i:= !i +1 ; k:= !k +1 end
	else 
		if !k = p then k:= !k +1 
	else 
		begin permute !k !s ; s:= !s -1 end ;
		done ;
!k -1;;

Ce qui me rend :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 ;;
>	  ^^
Erreur de syntaxe.

Je n'ai pas la moindre idée du problème...

[prgasp77]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

let aux = t.(a) ;