- android - 多次调用 OnPrimaryClipChangedListener
- android - 无法更新 RecyclerView 中的 TextView 字段
- android.database.CursorIndexOutOfBoundsException : Index 0 requested, 光标大小为 0
- android - 使用 AppCompat 时,我们是否需要明确指定其 UI 组件(Spinner、EditText)颜色
我正在尝试编写一个函数,该函数将从列表中破坏性地删除 N
元素并返回它们。我想出的代码(见下文)看起来不错,除了 SETF
没有按我预期的方式工作。
(defun pick (n from)
"Deletes (destructively) n random items from FROM list and returns them"
(loop with removed = nil
for i below (min n (length from)) do
(let ((to-delete (alexandria:random-elt from)))
(setf from (delete to-delete from :count 1 :test #'equal)
removed (nconc removed (list to-delete))))
finally (return removed)))
对于大多数情况,这工作得很好:
CL-USER> (defparameter foo (loop for i below 10 collect i))
CL-USER> (pick 3 foo)
(1 3 6)
CL-USER> foo
(0 2 4 5 7 8 9)
CL-USER> (pick 3 foo)
(8 7 0)
CL-USER> foo
(0 2 4 5 9)
如您所见,PICK
工作正常(在 SBCL 上),除非被拾取的元素恰好是列表中的第一个元素。在这种情况下,它不会被删除。这是因为唯一发生的重新分配发生在 DELETE
内部。 SETF
无法正常工作(即,如果我改用 REMOVE
,FOO
根本不会改变)。
是否存在我不知道的任何范围规则?
最佳答案
(正确的)列表由 cons 单元格组成,每个单元格都包含对下一个的引用细胞。所以,它实际上是一个引用链,你的变量有一个引用第一个单元格。为了清楚起见,我将绑定(bind)重命名为外部你的函数到 var
:
var ---> [a|]--->[b|]--->[c|nil]
当你将变量的值传递给你的函数时,参数得到绑定(bind)到相同的引用。
var ---> [a|]--->[b|]--->[c|nil]
/
from --'
您可以更新链中的引用,例如删除b
:
var ---> [a|]--->[c|nil]
/
from --'
这对 var
在外部看到的列表有影响。
如果您更改第一个引用,例如删除 a
,这只是一个来自 from
:
var ---> [a|]--->[b|]--->[c|nil]
/
from --'
这显然对 var
看到的内容没有影响。
您需要实际更新有问题的变量绑定(bind)。你可以这样做通过将其设置为函数返回的值。因为你已经返回了不同的值,这将是一个额外的返回值。
(defun pick (n list)
(;; … separate picked and rest, then
(values picked rest)))
然后您可以像这样使用它,例如:
(let ((var (list 1 2 3)))
(multiple-value-bind (picked rest) (pick 2 var)
(setf var rest)
(do-something-with picked var)))
现在开始分离:除非列表太长,否则我会坚持非破坏性操作。我也不会使用 random-elt
,因为它需要每次遍历 O(m) 个元素(m 是列表的大小),导致运行时间为 O(n·m)。
通过确定当前的采摘机会,您可以获得 O(m) 总体运行时间当前项目,同时线性遍历列表。然后你收集项目进入选择或休息列表。
(defun pick (n list)
(loop :for e :in list
:and l :downfrom (length list)
:when (or (zerop n)
(>= (random 1.0) (/ n l)))
:collect e :into rest
:else
:collect e :into picked
:and :do (decf n)
:finally (return (values picked rest))))
关于lisp - 函数内的 DELETE + SETF,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/33423155/
在 Practical Common Lisp 章节中 17. Object Reorientation: Classes Accessor Functions 部分,我发现很难理解 SETF 的扩展
我测试了《实用C++程序设计》一书中的代码。但是下面的例子并不像书上说的那样有效。我错过了什么?请帮忙。 #include int main() { int number = 0x3FF;
在使用 Common Lisp 进行开发时,我们可以通过三种方式来定义新的 setf 形式: 我们可以定义一个函数,其名称是两个符号的列表,第一个是 setf,例如(defun (setf some-
阅读 this question让我思考什么构成了表达式的有效汽车。显然,可以使用通常的语法“调用”符号和 lambda。根据hyperspec , function name n. 1. (in a
如果我像这样创建一个闭包, (let ((A (make-array '(10) :initial-element 5))) (defun h (i) (aref a i)) (
我正在使用动态变量,让我们调用其中一个值为 10 的 *x*。 我想通过将变量名作为参数传递给函数调用来更改它的值: (defun change-value (varname) (setf var
我正在 Common Lisp (CLISP) 中实现进化算法,但遇到了问题。 我有一个树状类: (defclass node () ((item :initarg :item :initform
船员, 我属于那种坚持使用 SETF 定义变量的类型。我已经升级到一台新机器(和一个新版本的 SBCL)并且它并没有让我摆脱这样做(自然地,我得到了适当的“==> undefined variable
目前正在学习 common lisp,遵循 Peter Seibel 的 Practical Common Lisp(我在第 11 章,关于集合),我很难理解 setf在引擎盖后面工作。 考虑到这个表
*mit = 13311 std::istringstream iss(*mit); double temp; iss.setf(ios::fixed, ios::floatfield); iss.p
我认为这在 Common Lisp 中是可能的(通过重载 setf),但不确定 Emacs Lisp。 我想做的是: (setf (local variable) value) (local ...)
为下面的变量执行 setf 的正确方法是什么? CG-USER(279): (defun LETTERSEARCH (string1 string2) (let ((newString nil))
我在我的脚本中定义了一个特殊变量 *unsorted-lst* 和一个用于重置此变量的函数: (defparameter *unsorted-lst* nil) (defun reset-to-uns
我知道我可以在 Common Lisp 中执行以下操作: CL-USER> (let ((my-list nil)) (dotimes (i 5) (setf my-l
我正在尝试编写一个函数,该函数将从列表中破坏性地删除 N 元素并返回它们。我想出的代码(见下文)看起来不错,除了 SETF 没有按我预期的方式工作。 (defun pick (n from) "D
假设我有两个变量,我想将值较小的变量设置为 nil。 有没有可能让它以这种方式工作? (setf a1 5) (setf a2 6) (setf (if ( (defparameter a1 5
上下文 根据我有限的 Common Lisp 经验,我发现像这样的代码并不罕见 (setf (gethash key table) (my-transformation (gethash
我试图在 Lisp 中编写“最接近”的函数,而不使用 setq/setf 等... 该函数找到给定向量的最近向量(在列表的列表中找到它)。 我试过了,但是没有套装太难了,非常感谢。 最佳答案 通常变量
在 Lisp 中,我定义了一个数组 a,然后让 b 等于 a。我现在想重新定义 b 的条目,使其等于 a 中的另一个条目,如下所示: (setf a (make-array '(2 2) :initi
以下代码生成从 1 到 n 的素数: (defun prime-list(n) (let ((a)(b)(x (floor (sqrt n)))) (loop for i from (fl
我是一名优秀的程序员,十分优秀!