如何检查以确保只有正值在最终列表中?

时间:2013-08-08 04:58:45

标签: list scheme racket

我的问题涉及两个袋子的区别。一个包由包含值和值的基数的对组成。我遇到的问题是检查该对是否有效,并且可以添加到最终列表中。例如,如果我运行以下内容:

(diff '((1 5) (2 2) (3 4) (4 8) (5 4)) '((2 3) (4 3) (6 2)))

正确答案应为((1 5) (3 4) (4 5) (5 4)) 但是我得到了((1 5) (2 -1) (3 4) (4 5) (5 4))。关于如何检查负基数的任何想法。任何帮助将不胜感激。

(define (diff bag1 bag2)
  (cond
    ((null? bag1) '())
    ((null? bag2) '())
    ((eq? (car(car bag1)) (car(car bag2))) 
     (cons
      (cons (car(car bag1)) 
            (cons (- (car(cdr(car bag1))) (car(cdr(car bag2)))) '())) (diff (cdr bag1) (cdr bag2))))
    (else
     (cond
       ((member? (car(car bag1)) bag1) (cons (car bag1) (diff (cdr bag1) bag2)))))))

(define (member? x bag)
  (cond
    ((null? bag) #f)
    (else
     (or(eq?(car(car bag)) x) (member? x (cdr bag))))))

1 个答案:

答案 0 :(得分:1)

由于您似乎只想保留bag1中的对,其中基数大于bag2中相应对的基数,您应该使用测试更改cond子句

(eq? (car(car bag1)) (car(car bag2)))

这两个条款

((and (eq? (car (car bag1)) (car (car bag2)))
      (> (car (cdr (car bag1))) (car (cdr (car bag2))))) ;; Difference > 0: substract
 (cons
   (cons (car(car bag1)) 
         (cons (- (car(cdr(car bag1))) (car(cdr(car bag2)))) '())) 
   (diff (cdr bag1) (cdr bag2))))
((eq? (car (car bag1)) (car (car bag2)))           ;; Difference then <= 0: skip
 (diff (cdr bag1) (cdr bag2)))

还可以进一步改进。 例如

(else
 (cond
   ((member? (car(car bag1)) bag1) (cons (car bag1) (diff (cdr bag1) bag2)))))))

可以简化为

(else 
   (cons (car bag1) (diff (cdr bag1) bag2)))))