Question

是否可以在Scheme中的链接列表中间添加或删除元素？我似乎无法想到用car / cdr / cons这样做的方法，但我想一定有办法解决这个问题。

如果我有一个列表'（1 3 5 6），并且我需要在5和6之间输入4，例如，这是可行的吗？

Answer 1

在previous answer完成在给定位置添加元素。删除给定位置的元素是类似的：

(define (delete-at k lst)
  (cond ((null? lst)
         '())
        ((zero? k)
         (cdr lst))
        (else
         (cons (car lst)
               (delete-at (sub1 k) (cdr lst))))))

Answer 2

以下是两个版本：

; list-insert : value index list -> list
;   return list where the ith element is x
(define (list-insert x i xs)
  (if (= i 0)
      (cons x xs)
      (cons (first xs) (list-insert x (- i 1) (rest xs)))))

(define (list-insert/version2 x i xs)
  (define-values (before after) (split-at xs i))
  (append before (list x) after))

(list-insert/version2 'x 2 '(a b c d))
(list-insert          'x 2 '(a b c d))

两个版本都会分配一个新列表。对于大型列表，它将变得低效。

在列表中间添加或删除元素（Scheme）

2 个答案: