Added Euclidean Algorithm for Lisp

Author: Trashtalk217

contents/euclidean_algorithm/code/lisp/euclidean_algorithm.lisp

@@ -0,0 +1,33 @@
+;;;; Euclid algorithm implementation
+
+(defun euclid-sub (a b)
+  (euclid-sub* (abs a) (abs b)))
+
+(defun euclid-sub* (a b)
+  (if (eq a b)
+    a
+    (if (> a b)
+      (euclid-sub* (- a b) b)
+      (euclid-sub* a (- b a)))))
+
+(defun euclid-mod (a b)
+  (if (zerop b)
+    (abs a)
+    (euclid-mod b (mod a b))))
+
+(print 
+  (euclid-sub (* 64 67)
+              (* 64 81)))
+(print 
+  (euclid-mod (* 128 12)
+              (* 128 77)))
+
+;; built-in function: (gcd 80 40)
+;; quick test
+(assert 
+  (=  (euclid-sub (* 64 67) (* 64 81))
+      (gcd (* 64 67) (* 64 81))))
+
+(assert 
+  (=  (euclid-mod (* 64 67) (* 64 81))
+      (gcd (* 64 67) (* 64 81))))

contents/euclidean_algorithm/euclidean_algorithm.md

@@ -17,6 +17,8 @@ The algorithm is a simple way to find the *greatest common divisor* (GCD) of two
 [import:3-16, lang="java"](code/java/EuclideanAlgo.java)
 {% sample lang="js" %}
 [import:15-29, lang="javascript"](code/javascript/euclidean_example.js)
+{% sample lang="lisp" %}
+[import:3-12, lang="lisp"](code/lisp/euclidean_algorithm.lisp)
 {% sample lang="py" %}
 [import:11-22, lang="python"](code/python/euclidean_example.py)
 {% sample lang="haskell" %}
@@ -60,6 +62,8 @@ Modern implementations, though, often use the modulus operator (%) like so
 [import:18-26, lang="java"](code/java/EuclideanAlgo.java)
 {% sample lang="js" %}
 [import:1-13, lang="javascript"](code/javascript/euclidean_example.js)
+{% sample lang="lisp" %}
+[import:13-17, lang="lisp"](code/lisp/euclidean_algorithm.lisp)
 {% sample lang="py" %}
 [import:1-9, lang="python"](code/python/euclidean_example.py)
 {% sample lang="haskell" %}
@@ -108,6 +112,8 @@ The Euclidean Algorithm is truly fundamental to many other algorithms throughout
 [import, lang="java"](code/java/EuclideanAlgo.java)
 {% sample lang="js" %}
 [import, lang="javascript"](code/javascript/euclidean_example.js)
+{% sample lang="lisp" %}
+[import, lang="lisp"](code/lisp/euclidean_algorithm.lisp)
 {% sample lang="py" %}
 [import, lang="python"](code/python/euclidean_example.py)
 {% sample lang="haskell" %}