11 lines
213 B
Scheme
11 lines
213 B
Scheme
#lang sicp
|
|
|
|
(define (square x) (* x x))
|
|
|
|
(define (square-list items)
|
|
(if (null? items)
|
|
nil
|
|
(cons (square (car items)) (square-list (cdr items)))))
|
|
|
|
(define (square-list2 items)
|
|
(map square items))
|