diff options
author | Nathan Lasseter <nathan.je.lasseter@googlemail.com> | 2009-10-04 00:56:56 +0100 |
---|---|---|
committer | Nathan Lasseter <nathan.je.lasseter@googlemail.com> | 2009-10-04 00:56:56 +0100 |
commit | 0248ed34ce3d05228bc5084669c3a27933be0c2e (patch) | |
tree | b9c4990344b0863a2af851b5917c49f3a5f03e6b /problem31.erl | |
parent | 00686037d57eb0a0d5eba6eeb6fcc9692e8b59f6 (diff) |
first commit
Diffstat (limited to 'problem31.erl')
-rwxr-xr-x | problem31.erl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/problem31.erl b/problem31.erl new file mode 100755 index 0000000..56a06ac --- /dev/null +++ b/problem31.erl @@ -0,0 +1,19 @@ +-module(problem31). +-export([solve/0]). + +solve() -> + length(gen_list(200)) + 8. + +gen_list(M) -> + A = lists:seq(0,198), + B = lists:seq(0,99), + C = lists:seq(0,39), + D = lists:seq(0,19), + E = lists:seq(0,9), + F = lists:seq(0,3), + G = lists:seq(0,1), + [ {S,T,U,V,W,X,Y} || + S <- A, T <- B, U <- C, V <- D, + W <- E, X <- F, Y <- G, + S + 2*T + 5*U + 10*V + 20*W + + 50*X + 100*Y =:= M ]. |