3 [sicp [utils :only (square)]]))
5 (defn square-list-1 [items]
8 (cons (square (first items))
9 (square-list-1 (rest items)))))
11 (deftest test-square-list-1
12 (is (= (square-list-1 (list 1 2 3 4)) (list 1 4 9 16))))
14 (defn square-list-2 [items]
15 (map (fn [x] (square x)) items))
17 (deftest test-square-list-2
18 (is (= (square-list-2 (list 1 2 3 4)) (list 1 4 9 16))))