gpt4 book ai didi

operator-overloading - 覆盖/重载 + 运算符以对常见的 lisp 向量进行操作

转载 作者:行者123 更新时间:2023-12-01 07:10:18 25 4
gpt4 key购买 nike

我希望重载 + 运算符以处理常见的 lisp 向量——就像处理线性代数中的向量一样。是否可以使用 + 过载?运算符(operator)?

这是我的预期定义:

 (defmethod + ((v1 vector) (v2 vector))

在此先感谢所有帮助!

最佳答案

如果我要这样做,我会首先在一个单独的包中进行。然后我将编写一个使用二元运算符的通用函数:

(defun + (&rest addends)
(reduce #'binary+ (cdr addends) :initial-value (car addends)))

(defgeneric binary+ (addend1 addend2))
然后你可以在泛型函数 binary+ 上定义方法这将允许您添加两个向量,一个向量和一个标量,...
这将是一个合适的包装器生成宏:
(defmacro define-operator (op &key (binary-signifier :binary) (package *package*)
"Defines a generic operator OP, being essentially a reduce operation using
a generic function whose name is a concatenation of BINARY-SIGNIFIER and OP."
(let ((op op)
(binary (intern (concatenate 'string
(string binary-signifier)
(string op))
package)))
`(progn
(defun ,op (&rest args)
(reduce (function ,binary) (cdr args) :initial-value (car args)))
(defgeneric ,binary (arg1 arg2)))))
然后您可以根据 Joshua Taylor 的回答定义方法:
(defmethod binary+ ((x number) (y number))
(cl:+ x y))

(defmethod binary+ ((x vector) (y vector))
(map 'vector 'cl:+ x y))

(defmethod binary+ ((x list) (y list))
(map 'list 'cl:+ x y))

关于operator-overloading - 覆盖/重载 + 运算符以对常见的 lisp 向量进行操作,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/25152029/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com