12 lines
243 B
Racket
12 lines
243 B
Racket
|
#lang racket
|
||
|
|
|
||
|
|
(require math/matrix)
|
||
|
|
|
||
|
|
(define (fibmat n) (matrix-ref
|
||
|
|
(matrix-expt (matrix ([1 1]
|
||
|
|
[1 0]))
|
||
|
|
n)
|
||
|
|
1 0))
|
||
|
|
|
||
|
|
(fibmat 1000)
|