Skip to content

Instantly share code, notes, and snippets.

@redbaron

redbaron/gcd.erl

Last active August 29, 2015 13:58
Show Gist options
  • Save redbaron/10118412 to your computer and use it in GitHub Desktop.
Save redbaron/10118412 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gcd.erl
-module(gcd).
-export([gcd/2, gcd_test/0]).
-spec gcd(integer(), integer()) -> integer().
gcd(A, 0) when is_integer(A)-> A;
gcd(A, B) when is_integer(A), is_integer(B) -> gcd(B, A rem B).
gcd_test() ->
10 = gcd(10, 0),
10 = gcd(0, 10),
1 = gcd(7, 13),
10 = gcd(20, 30),
10 = gcd(-20, 30),
ok.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment