problem 25

1 files changed, 18 insertions, 0 deletions

diff --git a/problem25.ijs b/problem25.ijs
new file mode 100644
index 0000000..cad8c27
--- /dev/null
+++ b/problem25.ijs
@@ -0,0 +1,18 @@
+fib =. monad define M.
+	if. y<:2 do.
+		x:1
+	else.
+		(fib y-1) + fib y-2
+	end.
+)
+digits =. #&":
+solve =. monad define
+	n =. 1
+	f =. 0
+	whilst. y > digits f do.
+		n =. >: n
+		f =. fib n
+	end.
+	n
+)
+problem25 =: solve 1000
\ No newline at end of file