Заменить элемент в списке в Common Lisp?

Question

У меня есть список вещей (я назову это L), индекс (N) и новая вещь (NEW). Если я хочу заменить вещь в L в N на NEW, каков наилучший способ сделать это? Должен ли я получить список до N и от N до конца списка, а затем склеить новый список из первой части, NEW и последней части, используя список? Или есть лучший способ сделать это?

Answer 1

(setf (nth N L) NEW)

должен сделать трюк.

Answer 2

Как часто вы собираетесь это делать; если вы действительно хотите массив, вы должны использовать array . В противном случае, да, функция, которая создает новый список, состоящий из копии первых N элементов, нового элемента и хвоста, будет в порядке. Я не знаю, какая встроенная функция у меня в голове, но я давно не программировал на Лиспе.

Вот решение в Scheme (потому что я знаю это лучше, чем Common Lisp, и у меня есть переводчик для проверки моей работы):

(define (replace-nth list n elem)
  (cond
    ((null? list) ())
    ((eq? n 0) (cons elem (cdr list)))
    (#t (cons (car list) (replace-nth (cdr list) (- n 1) elem)))))

Answer 3

(setf (nth N L) T)

- это самый ясный, краткий и быстрый способ, если вы хотите сделать «деструктивную» модификацию, то есть фактически изменить существующий список. Он не выделяет никакой новой памяти.

Answer 4

Я просто пытаюсь исправить код Хаззена:

(define (replace-nth list n elem)
  (cond 
    ((null? list) ())
    ((eq? n 0) (cons elem list))
    (#t (cons(car list) (replace-nth (cdr list) (- n 1) elem)))))

> (replace-nth (list 3 2 9 2) 2 8)
(3 2 8 9 2)

Этот код вставил новый элемент в список. Если мы хотим заменить элемент:

(define (replace-nth list n elem)
  (cond 
    ((null? list) ())
    ((eq? n 0) (cons elem (cdr list)))
    (#t (cons(car list) (replace-nth (cdr list) (- n 1) elem)))))

> (replace-nth (list 3 2 9 2) 2 8)
(3 2 8 2)

0 <= n <= длина (список) - 1 </p>

Answer 5

hazzen совет хорош (используйте массивы), так как вы, вероятно, захотите сделать много таких разрушительных обновлений, а списки очень неэффективны при произвольном доступе. Самый простой способ сделать это

(setq A (make-array 5) :initial-contents '(4 3 0 2 1))
(setf (elt 2 A) 'not-a-number)

где A - массив (хотя elt работает для любой последовательности).

• Определение elt с примерами setf.
• Определение make-array, с примерами

Однако, если вы должны быть работоспособным, то есть

1. Вы хотите сохранить старый и новый списки
2. Вы хотите, чтобы старое и новое разделяли как можно больше памяти.

Тогда вам следует использовать Common Lisp-эквивалент кода Хаззена:

(defun replace1 (list n elem)
  (cond
    ((null list) ())
    ((= n 0) (cons elem list))
    (t (cons (car list) (replace1 (cdr list) (1- n) elem)))))

Это выглядит медленно, потому что это так, и, вероятно, поэтому оно не включено в стандарт.

код Хаззена - это версия Scheme, которая полезна, вот что вы используете.

Answer 6

быстро вы можете сделать это с помощью JS на list-replace

Answer 7

Используйте [REPLACE] [1] (я использую X вместо вашего T, так как T - истинное значение в Лиспе):

(replace L (list X) :start1 N)

[1]: http://www.lispworks.com/documentation/HyperSpec/Body/f_replac.htm ЗАМЕНИТЬ

Answer 8

Звучит так, будто вы хотите либо rplaca, либо заменить. См http://www.lispworks.com/documentation/HyperSpec/Body/f_rplaca.htm или http://www.lispworks.com/documentation/HyperSpec/Body/f_replac.htm#replace

Answer 9

(defun replace-nth-from-list  (list n elem)  
      (cond  
        ((null list) ())  
        (t (append (subseq list 0 n) elem (subseq list (+ 1 n)(length list))))))

Answer 10

Очевидное решение медленное и использует память, как отмечали другие. Если возможно, вы должны попытаться отложить замену элемента (ов) до тех пор, пока вам не потребуется выполнить еще одну поэлементную операцию в списке, например, (loop for x in list do ...).

Таким образом, вы амортизируете консигнацию (память) и итерацию (процессор).