Added Lisp implementation for bubble sort (#348)

* Bubble sort implementation for Lisp
* Adding Trashtalk to contributors file
* Add EditorConfig rule for Lisp.
* Add Lisp to book.json

Author: Trashtalk217

.editorconfig

@@ -75,6 +75,11 @@ indent_size = 2
 indent_style = space
 indent_size = 2
 
+# Lisp
+[*.lisp]
+indent_style = space
+indent_size = 2
+
 # Matlab
 [*.m]
 indent_style = space

CONTRIBUTORS.md

@@ -58,4 +58,7 @@ Michal Hanajik
 <br>
 Bendik Samseth
 <br>
+Trashtalk
+<br>
 Cyrus Burt
+

book.json

@@ -127,6 +127,10 @@
         {
           "lang": "php",
           "name": "PHP"
+        },
+        {
+          "lang": "lisp",
+          "name": "Lisp"
         },
 	      {
 	        "lang": "nim",

contents/bubble_sort/bubble_sort.md

@@ -44,6 +44,8 @@ This means that we need to go through the vector $$\mathcal{O}(n^2)$$ times with
 [import:1-11, lang:"crystal"](code/crystal/bubble.cr)
 {% sample lang="php" %}
 [import:3-15, lang:"php"](code/php/bubble_sort.php)
+{% sample lang="lisp" %}
+[import:3-28, lang:"lisp"](code/lisp/bubble_sort.lisp)
 {% endmethod %}
 
 ... And that's it for the simplest bubble sort method.
@@ -93,6 +95,8 @@ Trust me, there are plenty of more complicated algorithms that do precisely the
 [import, lang:"crystal"](code/crystal/bubble.cr)
 {% sample lang="php" %}
 [import, lang:"php"](code/php/bubble_sort.php)
+{% sample lang="lisp" %}
+[import, lang:"lisp"](code/lisp/bubble_sort.lisp)
 {% endmethod %}
 
 <script>

contents/bubble_sort/code/lisp/bubble_sort.lisp

@@ -0,0 +1,33 @@
+;;;; Bubble sort implementation
+
+(defun bubble-up (list)
+  (if
+    (< (length list) 2) 
+    list  
+    (if 
+      (> (first list) (second list))
+      (cons 
+        (second list) 
+        (bubble-up 
+          (cons 
+            (first list) 
+            (rest (rest list)))))           
+      (cons 
+        (first list)
+        (bubble-up
+          (rest list))))))
+
+(defun bubble-sort (list)
+  (if 
+    (< (length list) 2)
+    list
+    (let* ((new-list (bubble-up list)))
+      (append 
+        (bubble-sort (butlast new-list)) 
+        (last new-list)))))
+
+;; The built-in sort: (sort (list 5 4 3 2 1) #'<)
+(print 
+  (bubble-sort (list 5 4 3 2 1)))
+(print
+  (bubble-sort (list 1 2 3 3 2 1)))