Anonymous user
Matrix-exponentiation operator: Difference between revisions
→{{header|Scheme}}: Fixed scheme implementation
No edit summary |
(→{{header|Scheme}}: Fixed scheme implementation) |
||
Line 1,918:
(define (matrix-expo mat exp)
(cond ((= exp 1) mat)
((even? exp) (square-matrix (matrix-expo mat (
(else (multiply-matrix mat (matrix-expo mat (
</lang>
|