Sort.hs
qsort [] = [] qsort (pivot:xs) = qsort [x | x<-xs, x<pivot] ++ [pivot] ++ qsort [x | x<-xs, x>=pivot]
Prelude> :load Sort.hs [1 of 1] Compiling Main ( Sort.hs, interpreted ) Ok, modules loaded: Main. *Main> *Main> qsort [] [] *Main> qsort [1, 3, 5, 7, 2, 4, 6, 8] [1,2,3,4,5,6,7,8]
No comments:
Post a Comment