0

4.2.4 迭代下的R5RS -

(let ((x '(1 3 5 7 9)))
  (do ((x x (cdr x))
       (sum 0 (+ sum (car x))))
      ((null? x) sum))) 

cdr-和的用法是什么car

x在这些行中会发生什么 -

(do ((x x (cdr x))
           (sum 0 (+ sum (car x))))
          ((null? x) sum))
4

1 回答 1

1
  • car = first(如列表的第一个元素)
  • cdr = rest(除了列表的第一个元素之外的所有内容)

循环将列表中的项目相加。

于 2012-12-16T17:42:13.413 回答