1

所以我正在编写一个方案函数,它接受一个元素和一个列表,并返回复制元素的列表,即(replicate 'd '(a b c 1 d))应该返回'(a b c 1 d d))

但是,只要元素不是列表的一部分,它就会返回原始列表,而当它是元素时,它返回的只是原始列表。我是计划新手,很难找到我的错误所在。我会很感激帮助!

(define (replicate elmt set)
 (cond((null? set) '())
     ((member? elmt set)(replicate_helper elmt set))
     (else set)))

(define (replicate_helper elmt set)
    (cond (eq? (car set) elmt) (cons elmt set)
        (else (cons (car set)
                (replicate_helper elmt (cdr set))))))

还会员?是我的函数,当元素在列表中时返回#t,而不在时返回#f。这是它的样子:

(define (member? elmt set)
 (cond ((null? set) #f)
    ((eq? elmt (car set)) #t)
    (else(member? elmt (cdr set)))))
4

1 回答 1

2

这是一个简单的错误:在 的第一个条件中缺少几个括号replicate_helper。只需用这个替换您的实现:

(define (replicate_helper elmt set)
  (cond ((eq? (car set) elmt) (cons elmt set))
        (else (cons (car set)
                    (replicate_helper elmt (cdr set))))))

它应该按预期工作:

(replicate 'd '(a b c 1 d))
=> '(a b c 1 d d)

(replicate 'x '(a b c 1 d))
=> '(a b c 1 d)

作为一种改进,我建议您eq?equal?inreplicate_helper和替换member?,请参阅这篇文章以了解原因。

但是等等,我们可以走得更远:我们不需要三个程序来解决这个问题,如果我们小心基本情况,一个程序就足够了——这就是我的意思:

(define (replicate elmt set)
  (cond ((null? set) '())
        ((equal? (car set) elmt) (cons elmt set))
        (else (cons (car set)
                    (replicate elmt (cdr set))))))
于 2015-10-15T03:20:36.763 回答