SICP 习题2.20 same-parity

_NMfloat_

于 2016-06-12 20:06:56 发布

阅读量506

点赞数

CC 4.0 BY-SA版权

分类专栏： SICP

本文链接：https://blog.youkuaiyun.com/NMfloat/article/details/51648690

SICP 专栏收录该内容

77 篇文章

订阅专栏

本文介绍了一个使用Scheme语言编写的程序示例，该程序能够找出与给定数字具有相同奇偶性的数字列表。通过递归方式处理输入的数字列表，并根据每个数字与基准数字的奇偶性是否一致来决定是否将其加入到结果列表中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

(define same-parity
  (lambda (x . y)
    (define iter
      (lambda (z res)
    (if (null? z)
      res
      (if (= (remainder (car z) 2) (remainder x 2))
        (iter (cdr z) (cons res (car z)))
        (iter (cdr z) res)))))
    (iter y x)))

(same-parity 1 2 3 4 5 6 7)