Solution exercises from P01 to P07

p05.el

@@ -0,0 +1,10 @@
+;; P05 (*) Reverse a list
+(defun my-reverse (lst)
+  (defun my-reverse-rec (lst res)
+    (cond
+     ((eq lst '()) res)
+     (t
+      (my-reverse-rec (cdr lst) (cons (car lst) res)))))
+  (my-reverse-rec lst '()))
+
+(my-reverse '(a b c)) ; '(c b a)