RosettaCodeData/Task/Least-common-multiple/Bruijn/least-common-multiple.bruijn
2024-04-19 16:56:29 -07:00

6 lines
154 B
Text

:import std/Math .
lcm [[=?1 1 (=?0 0 |(1 / (gcd 1 0) ⋅ 0))]]
:test ((lcm (+12) (+18)) =? (+36)) ([[1]])
:test ((lcm (+42) (+25)) =? (+1050)) ([[1]])