Arithmetic/Rational: Difference between revisions

=={{header|ALGOL 68}}==

{{works with|ALGOL 68|Standard - no extensions to language used}}

{{works with|ALGOL 68G|Any - tested with release mk15-0.8b.fc9.i386}}

FORMAT frac repr = $g(-0)"//"g(-0)$;

ENTIER = (FRAC frac)INT: (num OF frac OVER den OF frac) * den OF frac;

OP +:= = (REF FRAC a, FRAC b)REF FRAC: ( a := a + b ),

+=: = (FRAC a, REF FRAC b)REF FRAC: ( b := a + b ),

MODAB = (REF FRAC a, FRAC b)REF FRAC: ( a %*:= b );

Example: searching for Perfect Numbers.

FRAC sum:= FRACINIT 0;

candidate, ENTIER sum, real sum, ENTIER sum = 1))

FI

Output:

<pre>