计算Scheme中的唯一元素

Question

编写一个递归Scheme过程count-dist elements，它接受一个包含重复元素的列表，并返回列表中不同元素的数量。

这是我的代码，但它无法正常工作。请帮忙！谢谢！！

(define (count-dist-elements lis)   
  (cond
    ((null? lis) 0)
    ((null? (cdr lis))0)
    ((member (car lis)(cdr lis)))
     (else(+ 1(count-dist-elements (cdr lis))))))

p/s: 就这样吧 (count-dist-elements '(1 2 1 1 2 3 4 5 5 6 6 7 7 8 8 8 9))

Answer 1

看起来你已经很接近了。

• 当您向函数传递一个包含一个元素的列表时会发生什么？在这种情况下你的函数应该返回什么？
• 具有相同元素的二元素列表（例如 (5 5)）怎么样？你的函数返回一个合理的值吗？

Answer 2

第一：为什么在 (null? (cdr lis)) 情况下返回零？

第二：如果第一个元素也出现在列表的后面，您认为您的代码会返回什么？你确定吗？

Answer 3

 (define (count-dist-elements lst dist-elems count)
   (cond ((null? lst) count)
         ((member (car lst) dist-elems)
          (count-dist-elements (cdr lst) dist-elems count))
         (else
          (count-dist-elements (cdr lst)
                               (cons (car lst) dist-elems)
                               (+ 1 count)))))

(count-dist-elements '(abbc) '() 0) ==>; 3

(count-dist-elements '(1 2 1 1 2 3 4 5 5 6 6 7 7 8 8 8 9) '() 0) ==> 9

或者，如果您希望它递归而不是迭代（并且它必须使用如图所示的函数调用），

(define (count-dist-elements lst . dist-elems)
  (let ((dist-elems (if (null? dist-elems) '() (car dist-elems))))
    (cond ((null? lst) 0)
          ((member (car lst) dist-elems)
           (count-dist-elements (cdr lst) dist-elems))
          (else
           (+ 1 (count-dist-elements (cdr lst) (cons (car lst) dist-elems)))))))

则会给出相同的结果。

(count-dist-elements '(1 2 1 1 2 3 4 5 5 6 6 7 7 8 8 8 9)) ==>; <代码>9