module SelectionSort where

-- | Selection sort

selectionSort :: (Ord a) => [a] -> [a]

selectionSort [] = []

selectionSort xs = let x = maximum xs in selectionSort (delete x xs) ++ [x]

where

delete _ [] = []

delete y (x:xs)

| x == y = xs

| otherwise = x : delete y xs

main :: IO ()

main = do

let arr = [12,1,6,31,99,25,3,56,21,6]

putStr "The sorted version of the array is "

print (selectionSort arr)