Get long list bubblesort data

kaBeech · Aug 21, 2024 · f690343 · f690343
1 parent 467ac3e
commit f690343
Show file tree

Hide file tree

Showing 3 changed files with 24 additions and 18 deletions.
diff --git a/app/Benchmarking/PrintLargeTimeAndErrorRateComparison.hs b/app/Benchmarking/PrintLargeTimeAndErrorRateComparison.hs
@@ -11,7 +11,13 @@ import Data.Tensort.Utils.Types
   )
 import Data.Time.Clock
 
-printLargeTimeAndErrorRateComparison :: [Int] -> Int -> Int -> Int -> Int -> IO ()
+printLargeTimeAndErrorRateComparison ::
+  [Int] ->
+  Int ->
+  Int ->
+  Int ->
+  Int ->
+  IO ()
 printLargeTimeAndErrorRateComparison [] _ _ _ _ = return ()
 printLargeTimeAndErrorRateComparison
   (lengthExponent : remainingLengthExponents)

diff --git a/app/Benchmarking/SortAlgsCompared.hs b/app/Benchmarking/SortAlgsCompared.hs
@@ -17,14 +17,14 @@ import Data.Tensort.Utils.Types (Sortable, WonkyState)
 sortAlgsCompared ::
   [(WonkyState -> Sortable -> (Sortable, WonkyState), String)]
 sortAlgsCompared =
-  [ (robustsortRM, "RobustsortRM"),
-    (robustsortRB, "RobustsortRB"),
-    (robustsortRP, "RobustsortRP"),
-    (robustsortM, "RobustsortM"),
-    (robustsortB, "RobustsortB"),
-    (robustsortP, "RobustsortP"),
-    (tensortBL, "TensortBL"),
-    (bubblesort, "Bubblesort"),
-    (quicksort, "Quicksort"),
-    (mergesort, "Mergesort")
+  -- [ (robustsortRM, "RobustsortRM"),
+  --   (robustsortRB, "RobustsortRB"),
+  --   (robustsortRP, "RobustsortRP"),
+  --   (robustsortM, "RobustsortM"),
+  --   (robustsortB, "RobustsortB"),
+  --   (robustsortP, "RobustsortP"),
+  --   (tensortBL, "TensortBL"),
+  [ (bubblesort, "Bubblesort")
+  -- (quicksort, "Quicksort"),
+  -- (mergesort, "Mergesort")
   ]
diff --git a/app/Main.hs b/app/Main.hs
@@ -22,13 +22,13 @@ main = do
   -- printSubAlgErrorRateComparison 1000 wonkyChance stuckChance
   -- printErrorSpread 1000 wonkyChance stuckChance
   -- printDeckShuffleErrors 1000 wonkyChance stuckChance
-  -- printLargeTimeAndErrorRateComparison
-  --   [3 .. 17]
-  --   100
-  --   4096
-  --   wonkyChance
-  --   stuckChance
-  printGreeting
+  -- printGreeting
+  printLargeTimeAndErrorRateComparison
+    [12]
+    1
+    4096
+    wonkyChance
+    stuckChance
 
 printGreeting :: IO ()
 printGreeting =