quicksort.hs

quicksort :: (Ord a) => [a] -> [a]
quicksort [] = []
quicksort (x:xs) =
    let smaller = quicksort $ filter (<=x) xs
        bigger  = quicksort $ filter (>x) xs
    in smaller ++ [x] ++ bigger

main = do
    putStrLn $ show $ quicksort [1, 4, 2, 3]