HomeAboutCodePastes

Paste on 2021-03-04T15:42:37

(define (srfi a b)
  (define (array-dot-product a b)
    (array-fold fp+ 0.0 (array-map fp* a b)))
  (let ((a-rows (array-curry a 1))
        (b-columns (array-curry (array-rotate b 1) 1)))
    (array-outer-product array-dot-product a-rows b-columns)))

plain