Oops - should have added in branch externals/<pkg>

[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
deleted file mode 100644 (file)
index 9a1ac20..0000000
--- a/packages/test-simple/example/gcd.el
+++ /dev/null
@@ -1,13 +0,0 @@
-(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))
-   )
-)