Virtuelle Datenstrukturen

sort :: [ Int ] -> [ Int ]
sort [] = []
sort (x : xs) = 
   let ( low, high ) = partition ( < x ) xs
   in  sort low ++ [ x ] ++ sort high



Johannes Waldmann 2007-06-21