Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
15
Task/Least-common-multiple/Erlang/least-common-multiple.erl
Normal file
15
Task/Least-common-multiple/Erlang/least-common-multiple.erl
Normal file
|
|
@ -0,0 +1,15 @@
|
|||
% 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)).
|
||||
Loading…
Add table
Add a link
Reference in a new issue