Coprime triplets: Difference between revisions

# iterative Greatest Common Divisor routine, returns the gcd of m and n #

PROC gcd = ( INT m, n )INT:

INT a := ABS m, b := ABS n;

WHILE b /= 0 DO

OD;

a

# returns an array of the coprime triplets up to n #

OP COPRIMETRIPLETS = ( INT n )[]INT: