Set cutoff bytesizefor recursive Robustsort more accurately

kaBeech · Aug 14, 2024 · 1835462 · 1835462
1 parent 0b9d55b
commit 1835462
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Data/Tensort/Robustsort.hs b/src/Data/Tensort/Robustsort.hs
@@ -73,5 +73,5 @@ getLn x = ceiling (log (fromIntegral x) :: Double)
 
 robustsortRecursive :: Int -> SortAlg -> SortAlg
 robustsortRecursive bytesize baseSortAlg
-  | bytesize <= 27 = baseSortAlg
+  | bytesize <= 528491359 = tensort (mkTsProps (getLn bytesize) (baseSortAlg))
   | otherwise = tensort (mkTsProps (getLn bytesize) (robustsortRecursive (getLn bytesize) baseSortAlg))