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/isort-40000.hs | |
| parent | 4508b877a0312ff0feeba6287e1224ed3d0e0a4a (diff) | |
| parent | 2de302bcb3fa7e12c83a58909232a527c4d5372e (diff) | |
| download | inpla-d5b1f9b78b7fe4590cf91d72772d3c773d7daed1.tar.gz inpla-d5b1f9b78b7fe4590cf91d72772d3c773d7daed1.zip | |
Merge branch 'develop'
Diffstat (limited to 'comparison/Haskell/isort-40000.hs')
| -rw-r--r-- | comparison/Haskell/isort-40000.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/comparison/Haskell/isort-40000.hs b/comparison/Haskell/isort-40000.hs index f834d00..1abc148 100644 --- a/comparison/Haskell/isort-40000.hs +++ b/comparison/Haskell/isort-40000.hs @@ -1,5 +1,5 @@ {- -(* http://www.codecodex.com/wiki/Insertion_sort#Standard_ML *) +http://www.codecodex.com/wiki/Insertion_sort#Standard_ML -} import System.Random @@ -25,12 +25,7 @@ randomList n = do return (r:rs) - main = do list <- randomList 40000 let sorted = isort list print (take 10 sorted) - - - - |