From 79aba022d414b5d28422646cb99bfd6637e5bc66 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Tue, 20 Apr 2021 19:40:23 +0200 Subject: Problem 2 --- problem2.ijs | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 problem2.ijs (limited to 'problem2.ijs') diff --git a/problem2.ijs b/problem2.ijs new file mode 100644 index 0000000..22e2061 --- /dev/null +++ b/problem2.ijs @@ -0,0 +1,11 @@ +fib =: 3 : 0 M. NB. M. means that it is memoized +if. 1>:y do. + x: 1 +else. + (fib y-1)+fib y-2 +end. +) + +fibs =: ; fib each i.50 NB. first 50 should be enough lol + +problem2 =: +/((0=2|fibs)*.(fibs<4000000))#fibs -- cgit v1.2.3