Greatest common divisor: Difference between revisions

Content deleted Content added

Inline

@@ Line 586: / Line 586: @@
 =={{header|Erlang}}==
+<lang erlang>% Implemented by Arjun Sunel
-{{trans|OCaml}}
+-module(gcd).
-<lang erlang>gcd(0,B) -> abs(B);
+-export([main/0]).
-gcd(A,0) -> abs(A);
-gcd(A,B) when A > B -> gcd(B, A rem B);
-gcd(A,B) -> gcd(A, B rem A).</lang>
+main() ->gcd(-36,4).
+gcd(A, 0) -> A;
+gcd(A, B) -> gcd(B, A rem B).</lang>
+{{out}}
+<pre>4
+</pre>
 =={{header|Euler Math Toolbox}}==