Mergesort fixed name

firephil · Mar 17, 2021 · 43bda41 · 43bda41
1 parent 4400091
commit 43bda41
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/app/Quicksort.hs b/app/Quicksort.hs
@@ -16,9 +16,9 @@ qsort (x:xs) = qsort ys ++ x : qsort zs
 
 quicksort :: [Int] -> [Int]
 quicksort [] = []
-quicksort list  = quicksort left ++ pivotlist ++ quicksort right
+quicksort list  = quicksort left ++ pivot_list ++ quicksort right
   where
      pivot = head list
-     pivotlist = filter( == pivot) list
+     pivot_list = filter( == pivot) list
      left = filter(< pivot) list
      right = filter(> pivot) list