Update alt.hs

giolucasd · Feb 8, 2023 · 658b5db · 658b5db
1 parent e880054
commit 658b5db
Showing 1 changed file with 6 additions and 8 deletions.
diff --git a/mc346/task02/alt.hs b/mc346/task02/alt.hs
@@ -1,8 +1,6 @@
-insertionSort :: Ord a => [a] -> [a]
-insertionSort [] = []
-insertionSort [x] = [x]
-insertionSort (x:xs) = insert $ insertionSort xs
-    where insert [] = [x]
-          insert (y:ys)
-              | x < y = x : y : ys
-              | otherwise = y : insert ys
+import Data.List (minimum, delete)
+
+ssort :: Ord t => [t] -> [t]
+ssort [] = []
+ssort xs = let { x = minimum xs } 
+           in  x : ssort (delete x xs)