Most a PERMUT.BAS:
Van itt ez a függvény:
470 DEF FACT(X)
480 FOR Y=2 TO X-1
490 LET X=X*Y
500 NEXT
510 LET FACT=X
530 END DEF
Lehet, hogy működik, de szerintem nem szerencsés, hogy ugyanazt az X változót mint bejövő paramétert használja, mert ha a FOR kiértékelése többször megtörténik, akkor mivel X a cikluson belül változik, a feltétel is változik. Úgy volna tiszta, ha gyűjtőnek egy új változót használnál fel.
Tehát:
470 DEF FACT(X)
475 LET Z=X ! bevezetünk egy új valtozót
480 FOR Y=2 TO X-1 ! Itt az "X-1"-et minden ciklusban ki kellene értékelnie
490 LET Z=Z*Y
500 NEXT
510 LET FACT=Z
530 END DEF
