From 1a1b5004ff217efc465eb9b4347a594feaece420 Mon Sep 17 00:00:00 2001 From: Sidney Burks Date: Sun, 12 Feb 2012 06:00:49 +0100 Subject: [PATCH] adding selection sort --- insertion_sort.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/insertion_sort.hs b/insertion_sort.hs index 89ff84f..3099b2e 100755 --- a/insertion_sort.hs +++ b/insertion_sort.hs @@ -13,6 +13,8 @@ insertion_sort [x] = [x] insertion_sort (x:xs) = insert x (insertion_sort xs) + + reverse_insert :: (Ord a) => a -> [a] -> [a] reverse_insert x [] = [x] reverse_insert x (y:ys)