SICP 习题2.20 same-parity

Scheme程序示例

最新推荐文章于 2020-05-10 10:46:25 发布

原创最新推荐文章于 2020-05-10 10:46:25 发布 · 527 阅读

0 ·

CC 4.0 BY-SA版权

SICP 专栏收录该内容

77 篇文章

订阅专栏

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

(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)