Add 'packages/test-simple/' from commit '75eea25bae04d8e5e3e835a2770f02f0ff4602c4'

[gnu-emacs-elpa] / packages / test-simple / example / gcd.el

diff --git a/packages/test-simple/example/gcd.el b/packages/test-simple/example/gcd.el
new file mode 100644 (file)
index 0000000..9a1ac20
--- /dev/null
+++ b/packages/test-simple/example/gcd.el
@@ -0,0 +1,13 @@
+(defun gcd(a b)
+  "Greatest Common Divisor of A and B"
+  ;; Make a < b
+  (if (> a b) 
+      (let ((c a))
+       (setq a b)
+       (setq b c)))
+  (cond 
+   ((< a 0) nil)
+   ((or (= 0 (- b a)) (= a 1)) a)
+   (t (gcd (- b a) a))
+   )
+)