kouddy · April 11, 2015 01:51
diff --git a/SICP 2.21 b/SICP 2.21
 (define (square x) (* x x))

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

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

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

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