问题描述
我正在尝试解决一些有关方案中矩阵运算的练习。因此我有一个程序累积:
(define (accumulate operation startvalue sequence)
(if (null? sequence)
startvalue
(operation (car sequence)
(accumulate operation startvalue (cdr sequence)))))
例如:
(define (dot-product u v)
(accumulate + 0 (map * u v)))
其中向量(或矩阵)被定义为列表(或列表的列表),例如
(define v (list 1 2)) ;or
(define m (list (list 3 4) (list 5 6)))
现在必须实现矩阵-向量-积。 我应该得到这样的东西:
(define (matrix-vector-product m v)
(map + <?? v ??> m)
有人给我提示吗?
对等
更新:
我找到了一个计算矩阵向量乘积的解决方案。它并没有真正遵循模式 (map <??> m)
,但至少它使用了已经存在的过程。
(define (matrix-vector-product v m)
(if (not (pair? m)) '()
(cons (dot-product v (car m)) (matrix-vector-product v (cdr m)))))
解决方法
我找到了一个解决方案 elseware,但我真的不明白它是如何工作的:
(define (matrix-vector-product m v)
(map (lambda (row) (dot-product v row)) m))
如我所见,由 lambda 表达式描述的过程将更高层过程 m 的第一个参数作为参数。
显然不是整个序列,而是一个接一个地包含的对(行)。
为什么会这样?
Map 需要一个过程和至少一个列表作为参数。
这里的过程是lambda表达式,它是计算m和v行之间的点积,列表是m。
但是 m 和 v 行之间的点积已经提供了解决方案,我没有看到任何到列表 m 的映射。
也许有人可以解决我的困惑。