fork download
copy 
  1. -module(prog).
  2. -export([main/0]).
  3.  
  4. gcd(A,B) when A == 0; B == 0 -> 0;
  5. gcd(A,B) when A == B -> A;
  6. gcd(A,B) when A > B -> gcd(A-B, B);
  7. gcd(A,B) -> gcd(A, B-A).
  8. lcm(A,B) -> (A*B) div gcd(A, B).
  9.  
  10. main() ->
  11.   erlang:display(lcm(256, 18)),
  12.   erlang:display(lcm(256, 16)),
  13.   erlang:display(lcm(16, 16)),
  14.   true.
  15.  
Success #stdin #stdout 0.06s 1750016KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
2304
256
16
https://ideone.com/DKvsYZ
language:
Erlang (erl 21.3.8)
created:
5 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!