ti kanw la8os kai den mporw na to dw? aka. problem me compiler tou maple

[Pablo_Hasan]

kalhspera,

exw na programmatisw auth thn mikrh procedure sto maple, alla kapoio problhme uparxei ston kwdika kai den mporw na to brw. Den eimai kai toso e3oikiwmenos me ton compiler ths maple alla entupwsh kai ta mhnumata pou dinei den me boh8ane kai toso...

 

>> SquareAndMultiply:=proc(g, n, m)
> local x, y, k;
> x:= 1; y:= g; k:= m;
> while k > 0 do
> 	if k mod 2 = 1
> 		then x:= x*y mod n; k:=k-1
> 	end if;
> 	y := y^2 mod n;
> 	k := k div 2
> end do;
> x
> end proc:
[color="Red"]Error, missing operator or `;`[/color]

[Sta]

Εκείνο το "x" στην προτελευταία γραμμή, τι σκοπό εξυπηρετεί;

[Pablo_Hasan]

mia procedure sto maple epistrefei to apotelesma ths teleutaias entolhs, an 8eleis mia timh pou den einai sthn teleutaia entolh, tote prepei na grapseis thn metablhth pou dinei to apotelesma pou 8eleis sthn teleutaia grammh prin apo to end proc:

[Sta]

Μάλιστα, παίξε τότε λίγο για να δεις τι φταίει, προσθαφαιρώντας μερικά τμήματα κώδικα από τη συνάρτηση.

[lalexoulhs]

Den gnwrizw apo maple idika alla:

 

Exeis ena if ... then...

alla den blepw kapoia else case. Auto sunithos prokalei latch fenomaino kai den metabalei thn metablhth.

[Pablo_Hasan]

ok, to problhma lu8hke, kai htan opws elege o compiler. To div den uparxei san entolh sthn maple, to antikatesthsa me to 'k := trunc(k / 2);' kai ola douleuoun kanonika.

euxaristw gia tis apanthseis sas