11 lines
207 B
Plaintext
11 lines
207 B
Plaintext
|
(define (square x) (* x x))
|
||
|
|
||
|
(define (square-list-1 items)
|
||
|
(if (null? items)
|
||
|
'()
|
||
|
(cons (square (car items)) (square-list-1 (cdr items)))))
|
||
|
|
||
|
(define (square-list-2 items)
|
||
|
(map square items))
|
||
|
|