1 files changed, 19 insertions, 0 deletions
diff --git a/problem92.erl b/problem92.erl
new file mode 100755
index 0000000..3e4c5fe
--- /dev/null
+++ b/problem92.erl
@@ -0,0 +1,19 @@
+-module(problem92).
+-export([solve/0]).
+-import(lists,[filter/2,seq/2]).
+
+solve() ->
+	L = [ work(X) || X <- seq(1,9999999) ],
+	length(filter(fun(X) -> X end, L)).
+
+work(1) ->
+	false;
+work(89) ->
+	true;
+work(N) ->
+	work(add_squares([ X - 48 || X <- integer_to_list(N) ])).
+
+add_squares([]) ->
+	0;
+add_squares([H|T]) ->
+	(H * H) + add_squares(T).