diff options
| author | Shinya Sato <shinnya.sato@gmail.com> | 2022-04-27 16:59:00 +0900 |
|---|---|---|
| committer | Shinya Sato <shinnya.sato@gmail.com> | 2022-04-27 16:59:00 +0900 |
| commit | d5b1f9b78b7fe4590cf91d72772d3c773d7daed1 (patch) | |
| tree | c71e5f12b2733bb0e3ef65734e6ff5a685a1c989 /comparison/Haskell/qsort-800000.hs | |
| parent | 4508b877a0312ff0feeba6287e1224ed3d0e0a4a (diff) | |
| parent | 2de302bcb3fa7e12c83a58909232a527c4d5372e (diff) | |
| download | inpla-d5b1f9b78b7fe4590cf91d72772d3c773d7daed1.tar.gz inpla-d5b1f9b78b7fe4590cf91d72772d3c773d7daed1.zip | |
Merge branch 'develop'
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) - |