adding more snippets (revers, fibonachi, bin-tree)

Author: logart

bin-tree-sub-tree.lisp

@@ -0,0 +1,11 @@
+(defun bin-tree-subtree (tree path)
+    (if (and (> (length path) 0) (consp tree))
+        (if (equal (subseq path 0 1) "L")
+            (bin-tree-subtree (car tree) (subseq path 1 (length path)))
+            (bin-tree-subtree (cdr tree) (subseq path 1 (length path)))
+        )
+        tree
+    )
+)
+
+(bin-tree-subtree '((1 . 2) . (3 . 4)) "LR")

fib.lisp

@@ -0,0 +1,17 @@
+(defun fib (x)
+  (
+   if (integerp x)
+     (
+       if (<= x 0)
+       0
+       (if (< x 2)
+         1
+         (+ 
+          (fib (- x 1))
+          (fib (- x 2))
+         )
+       )
+      )
+     -1
+  )
+)

reverse.lisp

@@ -0,0 +1,11 @@
+(defun myreverse (mylist)
+  (
+   if (true-listp mylist)
+   (
+     if (> (length mylist) 0)
+      (append (myreverse (cdr mylist)) (list (car mylist)))
+      '()
+   )
+      -1
+   )
+)