From 172289b99403c7dd015c3c4101f89f8f1f91903b Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Thu, 26 Aug 2021 14:31:17 +0200
Subject: problem 25

---
 problem25.ijs | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 problem25.ijs

(limited to 'problem25.ijs')

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
-- 
cgit v1.2.3