(defun index-iteration (n)
(let ((x 0))
(loop for j from 0 to n while (< x n) do
(setf x (max-index-for-iteration j)))))
我有以下lisp代碼,在循環結束時我想返回值j。我已經調查: collect但返回與我想要的值(最後j末) finally
我正在做一個家庭作業任務,並且第一個函數讓我執行諸如刪除列表中給定元素或顯示列表的給定元素等操作。接下來的功能要求我刪除嵌套列表或顯示它們。你有使用嵌套列表的一般技巧嗎?我想這些功能與我之前寫的功能非常相似,只是稍微調整了一下。 這是我迄今爲止編寫的兩個函數示例。注意我必須使用寫作功能的「cond」風格。 (defun delnth(L A)
(cond ((= A 1) (rest L