10 exercises not bad

1 files changed, 15 insertions, 0 deletions

diff --git a/coding-exercises/2/21.rkt b/coding-exercises/2/21.rkt
new file mode 100644
index 0000000..9ad880c
--- /dev/null
+++ b/coding-exercises/2/21.rkt
@@ -0,0 +1,15 @@
+#lang racket
+(require sicp)
+(require "../../shared/chapter1.rkt")
+
+(define (square-list items)
+  (if (null? items)
+    (list)
+    (cons (square (car items)) (square-list (cdr items)))))
+
+(square-list (list 1 2 3 4))
+
+(define (square-list items)
+  (map square items))
+
+(square-list (list 1 2 3 4))