diff options
Diffstat (limited to 'problem53.erl')
-rwxr-xr-x | problem53.erl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/problem53.erl b/problem53.erl new file mode 100755 index 0000000..f18f81c --- /dev/null +++ b/problem53.erl @@ -0,0 +1,14 @@ +-module(problem53). +-export([solve/0]). + +solve() -> + L = lists:seq(1,100), + G = [fact(N) div (fact(R) * fact(N-R)) || + N <- L, R <- L, R < N], + H = [X || X <- G, X > 1000000], + length(H). + +fact(1) -> + 1; +fact(N) -> + N * fact(N-1). |