probleme algo avec maple

[invite152a412d]

Alors voila je vous explique en bref ce que l'on veut faire :

On lance un dé à six face 4 fois et si on obtient un six on gagne et si on obtient aucun 6 sur ces 4 lancers on perd. On nous demande de faire un programme maple qui retourne gagné si on obtient un six parmi les quatre lancers et qui retourne perdu si l'on en obtient aucun. Pour ce programme pas de problème il tourne et il marche.

Maintenant on veut répéter cette expérience un très grand nombre de fois pour calculer la "fréquence de parties gagnées". Voila le programme que j'ai fait et quand je le teste avec par exemple frequence(100) il me renvoie le message d’erreur suivant : syntaxe missing operator or ";" Quelqu'un peut prendre un peu de son temps pour me dire ce qui ne va pas dans mon programme?

frequence:=proc(N)
> local j,i,S,A;
> A:=0;S:=0;i:=0;
> for j from 1 to N do
> while(i<=4) do
> A:=rand(1..6);
> if (A()=6) then
> i:=i+4;
> S:=S+1;
> else
> i:=i+1;
> S:=S;
> fi;
> od;
> od;
> S/N;
> end;
-----

[invite152a412d]

petite erreur que je viens de corriger l'indexation du i se fait dans la boucle pour par avant ce qui donne maintenant :

frequence:=proc(N)
> local j,i,S,A;
> A:=0;
> S:=0;
> for j from 1 to N do
> i:=0;
> while(i<=4) do
> A:=rand(1..6);
> if (A()=6) then
> i:=i+4;
> S:=S+1;
> else
> i:=i+1;
> S:=S;
> fi;
> od;
> od;
> S/N;
> end;