From 0248ed34ce3d05228bc5084669c3a27933be0c2e Mon Sep 17 00:00:00 2001 From: Nathan Lasseter Date: Sun, 4 Oct 2009 00:56:56 +0100 Subject: first commit --- problem20.erl | 5 +++++ 1 file changed, 5 insertions(+) create mode 100755 problem20.erl (limited to 'problem20.erl') diff --git a/problem20.erl b/problem20.erl new file mode 100755 index 0000000..f393afb --- /dev/null +++ b/problem20.erl @@ -0,0 +1,5 @@ +-module(problem20). +-export([solve/0]). + +solve() -> lists:sum([X-48 || X <- integer_to_list(fact(100))]). +fact(1) -> 1; fact(X) -> X * fact(X-1). -- cgit v1.2.1