Added bogo sort for smalltalk (#452)

* Added bogo sort for smalltalk

* Fixed commit.

* Fixed style

Author: Neverik

contents/bogo_sort/bogo_sort.md

@@ -47,13 +47,16 @@ In code, it looks something like this:
 [import:12-16, lang:"ruby"](code/ruby/bogo.rb)
 {% sample lang="f90" %}
 [import:24-32, lang:"fortran"](code/fortran/bogo.f90)
+{% sample lang="st" %}
+[import:2-6, lang:"st"](code/smalltalk/bogosort.st)
 {% endmethod %}
 
 That's it.
 Ship it!
 We are done here!
 
-## Example Code 
+## Example Code
+
 {% method %}
 {% sample lang="jl" %}
 [import, lang:"julia"](code/julia/bogo.jl)
@@ -92,6 +95,8 @@ We are done here!
 [import, lang:"ruby"](code/ruby/bogo.rb)
 {% sample lang="f90" %}
 [import, lang:"fortran"](code/fortran/bogo.f90)
+{% sample lang="st" %}
+[import, lang:"st"](code/smalltalk/bogosort.st)
 {% endmethod %}
 
 

contents/bogo_sort/code/smalltalk/bogosort.st

@@ -0,0 +1,9 @@
+"Add this to the SequenceableCollection: "
+SequenceableCollection>>bogoSort
+    "A simple bogosort."
+    [ self isSorted ] whileFalse: [ 
+        self shuffle.
+    ]
+
+"Then you can run this anywhere: "
+#(4 3 2 1 6 5) bogoSort "#(1 2 3 4 5 6)"