diff options
Diffstat (limited to 'problem206.erl')
-rwxr-xr-x | problem206.erl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/problem206.erl b/problem206.erl new file mode 100755 index 0000000..c6432f3 --- /dev/null +++ b/problem206.erl @@ -0,0 +1,14 @@ +-module(problem206). +-export([solve/0]). + +solve() -> + work(1). + +work(N) -> + S = N * N, + test(N,integer_to_list(S)). + +test(N, [49,_,50,_,51,_,52,_,53,_,54,_,55,_,56,_,57,_,48]) -> + N; +test(N, _) -> + work(N + 1). |