tag:blogger.com,1999:blog-4100091590694628472.post8324133171162165216..comments2023-05-29T02:47:58.176-04:00Comments on Apollo 13 - Tao Liu's blog: F# on Algorithms - Quick sortTaohttp://www.blogger.com/profile/10181624105046973883noreply@blogger.comBlogger1125tag:blogger.com,1999:blog-4100091590694628472.post-82027722249650310062012-09-28T03:12:21.993-04:002012-09-28T03:12:21.993-04:00Using List.partition even more concise :)
let rec ...Using List.partition even more concise :)<br />let rec quickSort (l : _ list) =<br /> match l with<br /> | hd :: tl -><br /> let lt, gtq = tl |> List.partition ((>) hd)<br /> quickSort lt @ hd :: quickSort gtq<br /> | _ -> []Anonymoushttps://www.blogger.com/profile/03797335712419618431noreply@blogger.com