RosettaCodeData/Task/Least-common-multiple/Bracmat/least-common-multiple.bracmat

9 lines
135 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
(gcd=
a b
. !arg:(?a.?b)
& den$(!a*!b^-1)
* (!a:<0&-1|1)
* !a
);
out$(gcd$(12.18) gcd$(-6.14) gcd$(35.0) gcd$(117.18))