10 exercises not bad

1 files changed, 14 insertions, 0 deletions

diff --git a/coding-exercises/2/23.rkt b/coding-exercises/2/23.rkt
new file mode 100644
index 0000000..f0df068
--- /dev/null
+++ b/coding-exercises/2/23.rkt
@@ -0,0 +1,14 @@
+#lang racket
+(require sicp)
+
+(define (for-each action items)
+  (define (iter things)
+    (action (car things))
+    (if (not (null? (cdr things)))
+      (iter (cdr things))))
+  (iter items))
+
+(for-each (lambda (x) (newline) (display x))
+          (list 1 2 3 4 5))
+      
+