module SelectionSort where

import Data.List

selSort :: (Ord a) => [a] -> [a]
selSort [] = []
selSort xs = let x = minimum xs in (x:) . selSort . delete x $ xs