problem25.ijs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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