diff options
Diffstat (limited to 'comparison/Haskell/qsort-800000.hs')
| -rw-r--r-- | comparison/Haskell/qsort-800000.hs | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/comparison/Haskell/qsort-800000.hs b/comparison/Haskell/qsort-800000.hs index 492efef..2a9d60d 100644 --- a/comparison/Haskell/qsort-800000.hs +++ b/comparison/Haskell/qsort-800000.hs @@ -3,7 +3,6 @@ -} import System.Random - qsort [] = [] qsort [x] = [x] qsort (x:xs) = (qsort left) ++ [x] ++ (qsort right) @@ -16,7 +15,6 @@ part pivot (x:xs) where (below, above) = part pivot xs - {- main = print $ qsort [3,2,8,5] -} @@ -29,9 +27,7 @@ randomList n = do return (r:rs) - main = do list <- randomList 800000 let sorted = qsort list print (take 10 sorted) - |