From 2de302bcb3fa7e12c83a58909232a527c4d5372e Mon Sep 17 00:00:00 2001
From: Shinya Sato <shinnya.sato@gmail.com>
Date: Wed, 27 Apr 2022 16:58:17 +0900
Subject: Remove redundant letters

---
 comparison/Haskell/qsort-800000.hs | 4 ----
 1 file changed, 4 deletions(-)

(limited to 'comparison/Haskell/qsort-800000.hs')

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)
-
-- 
cgit v1.2.3