added Selection sort

firephil · Mar 17, 2021 · ab74e94 · ab74e94
1 parent f3f9e8e
commit ab74e94
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 1 deletion.
diff --git a/Haskell-Algorithms.cabal b/Haskell-Algorithms.cabal
@@ -47,7 +47,8 @@ executable Haskell-Algorithms
 					Quicksort,
 					ShuffleList,
 					STshuffle,
-					InsertionSort
+					InsertionSort,
+					SelectionSort
 
     hs-source-dirs:   app
     default-language: Haskell2010
diff --git a/README.md b/README.md
@@ -8,6 +8,9 @@
 
 #### - InsertionSort
 
+#### - SelectionSort
+
+
 ### Utility Algorithms
 
 #### - Random Shuffle elements of a List  (ShuffleList.hs)

diff --git a/app/SelectionSort.hs b/app/SelectionSort.hs
@@ -0,0 +1,8 @@
+module SelectionSort where
+
+import Data.List (minimum, delete)
+
+selectionSort :: Ord a => [a] -> [a]
+selectionSort [] = []
+selectionSort xs = let { x = minimum xs } 
+           in  x : selectionSort (delete x xs)