연습문제 2.21

;; 일반 버전

(define (square x) (* x x))

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

;; 아래는 map을 이용한 버전

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