diff options
Diffstat (limited to 'problem9.erl')
-rwxr-xr-x | problem9.erl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/problem9.erl b/problem9.erl new file mode 100755 index 0000000..2948d18 --- /dev/null +++ b/problem9.erl @@ -0,0 +1,10 @@ +-module(problem9). +-export([solve/0]). + +solve() -> + [{A,B,C}|_] = pythag(1000), + A*B*C. + +pythag(N) -> + D = lists:seq(1,N), + [{A,B,C} || A <- D, B <- D, C <- D, A+B+C=:=N, A*A+B*B=:=C*C]. |