15 lines
252 B
Scheme
15 lines
252 B
Scheme
(import srfi/231)
|
|
|
|
(define (transpose m)
|
|
(array-permute m '#(1 0)))
|
|
|
|
(define m
|
|
(list->array (make-interval '#(3 8))
|
|
(iota 24)))
|
|
|
|
(define m*
|
|
(transpose m))
|
|
|
|
(pretty-print (array->list* m))
|
|
(newline)
|
|
(pretty-print (array->list* m*))
|