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 /problem8.erl | |
| parent | 00686037d57eb0a0d5eba6eeb6fcc9692e8b59f6 (diff) | |
first commit
Diffstat (limited to 'problem8.erl')
| -rwxr-xr-x | problem8.erl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/problem8.erl b/problem8.erl new file mode 100755 index 0000000..fdc83ac --- /dev/null +++ b/problem8.erl @@ -0,0 +1,18 @@ +-module(problem8). +-export([solve/0]). +-import(problem8a,[getnum/0]). + +solve() -> + work(getnum(),0). + + +work([_,_,_,_],Acc) -> + Acc; +work([A,B,C,D,E|T],Acc) -> + F = A*B*C*D*E, + if + F > Acc -> + work([B,C,D,E|T],F); + true -> + work([B,C,D,E|T],Acc) + end. |