580
EXPORT ROLLMANY(n,zijden)
BEGIN
LOCAL k,worp;
// lijst met frequenties initialiseren
MAKELIST(0,X,1,2*zijden,1) L2;
FOR k FROM 1 TO n DO
ROLLDIE(zijden) +
ROLLDIE(zijden) worp;
L2(roll)+1 L2(roll);
END;
END;
Door de opdracht EXPORT weg te laten bij het declareren
van een functie, kan de zichtbaarheid hiervan worden
beperkt tot het programma waarin het is gedefinieerd. Zo
zou u bijvoorbeeld de functie ROLLDIE binnen het
programma ROLLMANY als volgt kunnen definiëren:
ROLLDIE();
EXPORT ROLLMANY(n,zijden)
BEGIN
LOCAL k,worp;
// lijst met frequenties
initialiseren
MAKELIST(0,X,1,2*zijden,1) L2;
FOR k FROM 1 TO n DO
ROLLDIE(zijden) +
ROLLDIE(zijden) worp;
L2(roll)+1 L2(roll);
END;
END;
ROLLDIE(n)
BEGIN
RETURN 1+FLOOR(RANDOM(N));
END;
Programmeren