From 2de302bcb3fa7e12c83a58909232a527c4d5372e Mon Sep 17 00:00:00 2001 From: Shinya Sato Date: Wed, 27 Apr 2022 16:58:17 +0900 Subject: Remove redundant letters --- comparison/Haskell/bsort-40000.hs | 2 -- 1 file changed, 2 deletions(-) (limited to 'comparison/Haskell/bsort-40000.hs') diff --git a/comparison/Haskell/bsort-40000.hs b/comparison/Haskell/bsort-40000.hs index 1940917..401ceaf 100644 --- a/comparison/Haskell/bsort-40000.hs +++ b/comparison/Haskell/bsort-40000.hs @@ -22,7 +22,6 @@ main = print $ bsort [3,2,8,5] -} - randomList :: Int -> IO([Int]) randomList 0 = return [] randomList n = do @@ -31,7 +30,6 @@ randomList n = do return (r:rs) - main = do list <- randomList 40000 let sorted = bsort list -- cgit v1.2.3