roc-lang/roc
1
1
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2024-11-13 09:49:11 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix additional unsigned sub overflow bug

Browse Source
This commit is contained in:
ayazhafiz 2022-01-10 21:57:29 -05:00
parent b5225c87d8
commit 4ea91b54eb
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
examples/benchmarks/Quicksort.roc
View File

@ -30,7 +30,10 @@ quicksortHelp = \list, order, low, high ->
when partition low high list order is
Pair partitionIndex partitioned ->
partitioned
|> quicksortHelp order low (partitionIndex - 1)
|> \lst ->
# TODO: this will be nicer if we have Num.subSaturated
high1 = if partitionIndex == 0 then 0 else partitionIndex - 1
quicksortHelp lst order low high1
|> quicksortHelp order (partitionIndex + 1) high
else
list