diff options
Diffstat (limited to 'problem71.erl')
-rwxr-xr-x | problem71.erl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/problem71.erl b/problem71.erl new file mode 100755 index 0000000..7495b0f --- /dev/null +++ b/problem71.erl @@ -0,0 +1,15 @@ +-module(problem71). +-export([solve/0]). + +solve() -> + find(genlist()). + +find([{A,_},{3,7}|_]) -> A; +find(L) -> find(tl(L)). + +genlist() -> + O = lists:seq(1,1000000), + [ {N, D} || N <- O, D <- O, N < D, gcd(N,D) =:= 1 ]. + +gcd(A, 0) -> A; +gcd(A, B) -> gcd(B, A rem B). |