program calculant le pgcd de 2 entiers en caml

[invitef1ec1449]

Bonjours, j'ai un petit pb je dois faire un programme en caml qui de manière impérative (pas recursive) calcule le pgcd de 2 entiers, j'ai essayé cela :

let pgcd a b =
let r1= ref a =
let r2= ref b =
let r3= ref a mod b in
while !r3<>0 do r1:=!r2; r2:=!r3; r3:= !r3 mod !r2;
done; !r2 ;;

mais il me renvoi syntaxe error sur les deux derniers point virgule, ce serai sympa qq un pouvait me resoudre ce problème merci d'avance...
-----

[invitef1ec1449]

svp..........

[invite4ef352d8]

Salut
J'ai pas caml sous la main, mais tu devrait essayé de rajouter des paranthèse autour de tous ce qu'il y a entre le do et le done...