diff options
Diffstat (limited to 'problem25.erl')
-rwxr-xr-x | problem25.erl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/problem25.erl b/problem25.erl new file mode 100755 index 0000000..8b89b8d --- /dev/null +++ b/problem25.erl @@ -0,0 +1,14 @@ +-module(problem25). +-export([solve/0]). + +solve() -> + fibdigits(1000, 2, 1, 1). + +fibdigits(N, M, A, B) -> + L = length(integer_to_list(A)), + if + L =:= N -> + M; + true -> + fibdigits(N, M+1, A+B, A) + end. |