sicp每日一题[2.21]

Exercise 2.21

The procedure square-list takes a list of numbers as argument and returns a list of the squares of those numbers.

(square-list (list 1 2 3 4))
(1 4 9 16)

Here are two different definitions of square-list. Complete both of them by filling in the missing expressions:

(define (square-list items)
  (if (null? items)
      nil
      (cons <??> <??>)))

(define (square-list-by-map items)
  (map <??> <??>))

---

这道题目很简单，只要把例子里的程序稍微修改就行，对比之下更显得 map 的强大。

(define (square-list items)
  (if (null? items)
      nil
      (cons (square (car items))
            (square-list (cdr items)))))

(define (square-list-by-map items)
  (map square items))


(square-list (list 1 2 3 4))
(square-list-by-map (list 1 2 3 4))

; 执行结果
'(1 4 9 16)
'(1 4 9 16)