  
 (define (square-list items) 
   (if (null? items) 
       items 
       (cons (square (car items)) (square-list (cdr items))))) 
  
 (square-list (list 1 2 3 4)) 
  
 (define (sq2 items) 
   (map (lambda (x) (square x)) items)) 
  
 (sq2 (list 1 2 3 4))

  
 (define (sq3 items) 
   (map square items)) 
  
 (sq3 (list 1 2 3 4))

depaulagu

  
 (define nil '()) 
  
 (define (square-list items) 
   (if (null? items) 
       nil 
       (cons (square (car items)) 
             (square-list (cdr items))))) 
  
 (define (square-list-m items) 
   (map square items)) 
  
 (square-list (list 1 2 3 4 5 6 7 8 9 10)) 
 (square-list-m (list 1 2 3 4 5 6 7 8 9 10))

sicp-ex-2.21