24 lines
408 B
Plaintext
24 lines
408 B
Plaintext
; [372x17] * [17x372]
|
|
(define M 372)
|
|
(define N 17)
|
|
|
|
; [0 1 2 ... 371]
|
|
; [1 2 3 ... 372]
|
|
; [2 3 4 ... 373]
|
|
; ...
|
|
; [16 17 ... 387]
|
|
(define A (map (lambda (i)
|
|
(iota M i))
|
|
(iota N)))
|
|
|
|
; [0 1 2 ... 16]
|
|
; [1 2 3 ... 17]
|
|
; [2 3 4 ... 18]
|
|
; ...
|
|
; [371 372 ... 387]
|
|
(define B (map (lambda (i)
|
|
(iota N i))
|
|
(iota M)))
|
|
|
|
(for-each print (matrix-multiply A B))
|