15 lines
173 B
Erlang
15 lines
173 B
Erlang
% Implemented by Arjun Sunel
|
|
-module(lcm).
|
|
-export([main/0]).
|
|
|
|
main() ->
|
|
lcm(-3,4).
|
|
|
|
gcd(A, 0) ->
|
|
A;
|
|
|
|
gcd(A, B) ->
|
|
gcd(B, A rem B).
|
|
|
|
lcm(A,B) ->
|
|
abs(A*B div gcd(A,B)).
|