mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Least-common-multiple/Standard-ML/least-common-multiple-1.ml

5 lines
93 B
OCaml
Raw Permalink Blame History

fun gcd (0,n) = n
| gcd (m,n) = gcd(n mod m, m)
fun lcm (m,n) = abs(x * y) div gcd (m, n)
Reference in New Issue View Git Blame Copy Permalink