Just another update

Task/Fibonacci-sequence/Racket/fibonacci-sequence-1.rkt

@@ -0,0 +1,5 @@
+(define (fib n)
+  (let loop ((cnt 0) (a 0) (b 1))
+    (if (= n cnt)
+        a
+        (loop (+ cnt 1) b (+ a b)))))

Task/Fibonacci-sequence/Racket/fibonacci-sequence-2.rkt

@@ -0,0 +1,11 @@
+#lang racket
+
+(require math/matrix)
+
+(define (fibmat n) (matrix-ref
+                    (matrix-expt (matrix ([1 1]
+                                          [1 0]))
+                                 n)
+                    1 0))
+
+(fibmat 1000)

Task/Fibonacci-sequence/Racket/fibonacci-sequence.rkt

@@ -1,6 +0,0 @@
-(define (fibo number)
-  (define (fibo-rec number n i)
-    (if (<= number 0)
-        i
-        (fibo-rec (- number 1) (+ n i) n)))
-  (fibo-rec number 1 0))