1 files changed, 19 insertions, 0 deletions
diff --git a/coding-exercises/2/39.rkt b/coding-exercises/2/39.rkt
new file mode 100644
index 0000000..2d80dde
--- /dev/null
+++ b/coding-exercises/2/39.rkt
@@ -0,0 +1,19 @@
+#lang racket
+(require "../../shared/lists.rkt")
+
+(define (reverse-r sequence)
+  (fold-right (lambda (x y)
+                (append y (list x)))
+              '()
+              sequence))
+
+(define (reverse-l sequence)
+  (fold-left (lambda (y x) 
+               (cons x y))
+             '() 
+             sequence))
+
+(define test-list (list 1 2 3))
+((lambda ()
+   (display (reverse-r test-list))
+   (display (reverse-l test-list))))