RosettaCodeData/Task/Least-common-multiple/PicoLisp/least-common-multiple.l

3 lines
44 B
Plaintext

(de lcm (A B)
(abs (*/ A B (gcd A B))) )