RosettaCodeData/Task/Least-common-multiple/PicoLisp/least-common-multiple.l
2023-07-01 13:44:08 -04:00

2 lines
44 B
Text

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