<p> GCD ... LCM </p>

84b4130f-67b4-464d-bd60-47ce3ec5f90c 7 4 5 decimal

&[DATE] &[TIME] - &[FILENAME]

Adapted from Andrey Ivashov a b gcd x a abs : y b abs : 12 mat x 0 ≠ (y 0 ≠ (& x y > x x y mod : y y x mod : if while x y + 31 line :

c 2967 :

d 158 :

a 21 :

b 6 :

a b lcm a b * abs a b gcd / eval :

c d lcm c d * abs c d gcd / eval :

a b gcd a b lcm 21 mat 34221 mat

c d gcd c d lcm 21 mat 1 4.6879 105^* 21 mat

a b c d Clear 1

gcd of two numbers a b gcd x a abs : y b abs : 12 mat x 0 ≠ (y 0 ≠ (& x y > x x y mod : y y x mod : if while x y + 31 line :

gcd of an array. A gcd g A 1 el : k 2 A length range g g A k el gcd : for g 31 line :

lcm of two numbers a b lcm a b * a b gcd / 11 line :

lcm of an array A lcm λ A 1 el : k 2 A length range λ λ A k el lcm : for λ 31 line :

A 1234 5.5 51 mat :

B 12345678 9.5 33 mat :

B gcd B lcm 21 mat 0.5 1596021 mat

A gcd A lcm 21 mat 0.5 13221 mat