Racket Scheme正在删除范围中列表的元素

Question

如何删除范围(a，b(中列表的值？我尝试过：

#lang racket
(define (remove L i n)
(cond ((null? L)
empty)
((> i 0)
(cons (car L) (remove (cdr L) (sub1 i) n)))
((> n 0)
(remove (cdr L) i (sub1 n)))
(else
L)))

但结果是：

(remove '(1 2 3 4 5) 2 4)
'(1 2)
(remove '(1 2 3 4 5 6 7 8 9) 2 5)
'(1 2 8 9)

我想要：

(remove '(1 2 3 4 5) 2 4)
'(1 5)

Answer 1

我认为如果在当前索引中保留另一个参数：，这将更容易实现

(define (remove L index start end)
(cond ((null? L)
empty)
((and (>= index start) (<= index end))
(remove (cdr L) (add1 index) start end))
(else
(cons (car L) (remove (cdr L) (add1 index) start end)))))

如果您不想添加一个额外的参数，我们可以始终使用名为let:的参数

(define (remove L start end)
(let loop ((lst L) (index 1))
(cond ((null? lst)
empty)
((and (>= index start) (<= index end))
(loop (cdr lst) (add1 index)))
(else
(cons (car lst) (loop (cdr lst) (add1 index)))))))

无论哪种方式，它都能按预期工作：

(remove '(1 2 3 4 5) 2 4)
=> '(1 5)
(remove '(1 2 3 4 5 6 7 8 9) 2 5)
=> '(1 6 7 8 9)

Answer 2

有两个错误：

• 您使用的是基于一的索引，因此第一个条件应该是(> i 1)
• 由于列表在第一个递归子句中收缩，因此也需要(sub1 n)
  传递n可以计算要删除的元素数量，而不是停止位置的索引