Least common multiple: Difference between revisions

=={{header|Euler}}==

'''begin'''

'''new''' gcd; '''new''' lcm;

gcd <- ` '''formal''' a; '''formal''' b;

'''if''' b = 0 '''then''' a '''else''' gcd( b, a '''mod''' '''abs''' b )

'

;

lcm <- ` '''formal''' a; '''formal''' b;

'''abs''' [ a * b ] % gcd( a, b )

'

;

'''out''' lcm( 15, 20 )

'''end''' $