Lisp：如何获取表示为列表列表的二维矩阵中元素的引用（而不是值）？

作者: 糖果
发布时间: 2024-04-21 09:36:52 (3天前)

3 条回复

1#
回复此人
糖果 | 2022-02-17 11-43

Lisp 没有这种意义上的引用。当然，除了它是 Lisp：它有你想要的任何东西。 (defmacro locative (form) ;in memory of Zetalisp `(lambda (&optional (value nil valuep)) (if valuep (setf ,form value) ,form))) (defun valof (locative) ;in memory of BCPL (funcall locative)) (defun (setf valof) (value locative) (funcall locative value)) 现在 > (let ((lol (copy-tree '((1 3) (2 6))))) (let ((tlc (locative (nth 0 (nth 0 lol))))) (print (valof tlc)) (setf (valof tlc) 8) lol)) 1 ((8 3) (2 6))

编辑
2#
回复此人
糖果 | 2022-02-17 11-43

您称为引用的变量不是引用。你需要做 (setf (nth 0 (nth 0 list-of-lists)) 0) 请注意，您也可以这样做 (defvar 1st-list (first list-of-lists)) (setf (first 1st-list) 0) 为了达到同样的效果，因为1st-list 指的是中的第一个列表list-of-lists。你也可以使用define-symbol-macro： (define-symbol-macro reference-to-top-left-corner (first (first list-of-lists))) (setf reference-to-top-left-corner 0) 因为现在reference-to-top-left-corner真的是一个参考。我强烈建议您不要使用符号宏。应谨慎使用此类高级工具。

编辑

登录后才能参与评论