选择排序

选择排序重复选择最小元素，直到列表为空。

import Data.List (minimum, delete)

ssort::Ord t => [t] -> [t]
ssort [] = []
ssort xs = let { x = minimum xs } 
           in  x : ssort (delete x xs)