Bogosort in lua (algorithm-archivists#413)

* Added Bogosort

* Fixed code

Wasn't running

* Added tests

Same as bubble sort.

* Adding entry to bogo_sort.md

* Addressing changes

bogo_sort.md corrected, properly implemented Fisher–Yates shuffle

* Remove unnecessary line specification

Line numbers not needed when importing entire file

Author: Gorzoid

contents/bogo_sort/bogo_sort.md

@@ -31,6 +31,8 @@ In code, it looks something like this:
 [import:17-20, lang:"haskell"](code/haskell/bogoSort.hs)
 {% sample lang="m" %}
 [import:21-28, lang:"matlab"](code/matlab/bogosort.m)
+{% sample lang="lua" %}
+[import:1-22, lang="lua"](code/lua/bogosort.lua)
 {% sample lang="cpp" %}
 [import:33-38, lang:"c_cpp"](code/c++/bogosort.cpp)
 {% sample lang="rs" %}
@@ -73,6 +75,8 @@ We are done here!
 [import, lang:"haskell"](code/haskell/bogoSort.hs)
 {% sample lang="m" %}
 [import, lang:"matlab"](code/matlab/bogosort.m)
+{% sample lang="lua" %}
+[import, lang="lua"](code/lua/bogosort.lua)
 {% sample lang="cpp" %}
 [import, lang:"c_cpp"](code/c++/bogosort.cpp)
 {% sample lang="rs" %}

contents/bogo_sort/code/lua/bogosort.lua

@@ -0,0 +1,28 @@
+local function shuffle(arr)
+	for i = 1, #arr-1 do
+		local rand = math.random(i,#arr)
+		arr[i], arr[rand] = arr[rand], arr[i]
+	end
+end
+
+local function issorted(arr)
+	for i = 1,#arr-1 do
+		if arr[i] > arr[i+1] then
+			return false
+		end
+	end
+	return true
+end
+
+function bogosort(arr)
+	while not issorted(arr) do
+		shuffle(arr)
+	end
+end
+
+local arr = {1, 45, 756, 4569, 56, 3, 8, 5, -10, -4}
+print(("Unsorted array: {%s}"):format(table.concat(arr,", ")))
+
+bogosort(arr)
+
+print(("Sorted array: {%s}"):format(table.concat(arr,", ")))