RosettaCodeData/Task/Matrix-multiplication/Racket/matrix-multiplication-1.rkt

#lang racket
(define (m-mult m1 m2)
  (for/list ([r m1])
    (for/list ([c (apply map list m2)])
      (apply + (map * r c)))))
(m-mult '((1 2) (3 4)) '((5 6) (7 8)))
;; -> '((19 22) (43 50))
update 2013-06-05 21:47:54 +00:00			`#lang racket`
A-M baby 2013-04-10 21:29:02 -07:00			`(define (m-mult m1 m2)`
			`(for/list ([r m1])`
			`(for/list ([c (apply map list m2)])`
			`(apply + (map * r c)))))`
update 2013-06-05 21:47:54 +00:00			`(m-mult '((1 2) (3 4)) '((5 6) (7 8)))`
			`;; -> '((19 22) (43 50))`