Anonymous user
Matrix-exponentiation operator: Difference between revisions
→{{header|Scheme}}
m (→{{header|Scheme}}: Added a note) |
|||
Line 1,914:
(apply + (map * row col)))
(define (
(map
(lambda (row)
Line 1,921:
m1))
▲(define (matrix-expo mat exp)
(cond ((= exp 1) mat)
((even? exp) (square-matrix (matrix-
(else (
(define (square-matrix mat)
(multiply-matrix mat mat))
</lang>
{{out}}
<pre>
> (matrix-exp '((3 2) (2 1)) 50)
((16130531424904581415797907386349 9969216677189303386214405760200)
(9969216677189303386214405760200 6161314747715278029583501626149))
</pre>
=={{header|Seed7}}==
|