1

マトリックスを追加しようとしていますが、機能していません...

(定義 (matrix-matrix-add ab)
  (map (lambda (row) (row-matrix-add row b))
       a))

(define (row-matrix-add 行行列)
  (if (null? (車行列))
      '()
      (cons (add-m 行 (地図の車の行列))
            (row-matrix-add 行 (map cdr マトリックス)))))

(define (add-m row col)
  (if (null? col)
      0
      (+(車列)
         (車列)
         (add-m (cdr 行) (cdr 列)))))
4

2 に答える 2

4

これは非常に短い実用的な実装です。Map は、使用できる場合に、再帰のレイヤーを取り除くのに優れています。

(define (matrix-add xy) (map (lambda (xy) (map + xy)) xy))

于 2011-02-28T04:00:10.980 に答える
2

これが実用的な実装です：

(define (matrix-add m1 m2)

  (define (matrix-add-row r1 r2 res-row)
    (if (and (not (null? r1)) (not (null? r2)))
    (matrix-add-row (cdr r1) (cdr r2)
            (cons (+ (car r1) (car r2)) res-row))
    (reverse res-row)))

  (define (matrix-add-each m1 m2 res)
    (if (and (not (null? m1)) (not (null? m2)))
    (let ((res-row (matrix-add-row (car m1) (car m2) ())))
      (matrix-add-each (cdr m1) (cdr m2) (cons res-row res)))
    (reverse res)))
  (matrix-add-each m1 m2 ()))

使用例と出力:

>  (matrix-add '((7 2) (3 8)) '((4 8) (0 5)))
((11 10) (3 13))
> (matrix-add '((5 2) (4 9) (10 -3)) '((-11 0) (7 1) (-6 -8)))
((-6 2) (11 10) (4 -11))
于 2010-03-04T04:03:39.223 に答える