diff options
Diffstat (limited to 'problem40.erl')
-rwxr-xr-x | problem40.erl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/problem40.erl b/problem40.erl new file mode 100755 index 0000000..d2299af --- /dev/null +++ b/problem40.erl @@ -0,0 +1,11 @@ +-module(problem40). +-export([solve/0]). +-import(lists,[nth/2,flatten/1,map/2,seq/2]). + +solve() -> + N = onenum(), + t(1,N)*t(10,N)*t(100,N)*t(1000,N)*t(10000,N)*t(100000,N)*t(1000000,N). + +onenum() -> flatten(map(fun(X) -> integer_to_list(X) end, seq(1,400000))). + +t(N,L) -> nth(N,L) - 48. |