LISP(将列表中间的值加一)

Question

我目前正在尝试创建一个将列表中间的值加 1 的函数。

Example: (add1 '(2 4 6 5 9)) -> (2 4 7 5 9)

此外，如果列表是偶数，则不返回任何内容。到目前为止，我有一个返回列表中间位置的函数。

(defun add1(aList)
               (if (oddp (length aList)) (- (/ (length aList) 2) .5) 'EvenNumber))

示例:(add1 '(2 4 6 5 9)) -> 2.0

有没有办法使用此信息获取中间的值然后将其加 1。谢谢

Answer 1

给你:

(defun add-1 (list)
  (let ((len (length list)))
    (assert (oddp len) (list))
    (incf (nth (/ (1- len) 2) list))))

替换assert用when如果您不想在偶数长度列表上出现错误。