language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-09 21:36:18 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Update CLI testing examples to not use Nat

Browse source
This commit is contained in:
Richard Feldman 2024-01-21 16:55:21 -05:00
parent 6140c5023b
commit ef9623798b
No known key found for this signature in database
GPG key ID: F1F21AA5B1D9E43B
6 changed files with 16 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

8
crates/cli_testing_examples/algorithms/quicksort.roc
View file

@ -8,7 +8,7 @@ quicksort = \originalList ->
quicksortHelp originalList 0 (n - 1)
quicksortHelp : List (Num a), Nat, Nat -> List (Num a)
quicksortHelp : List (Num a), U64, U64 -> List (Num a)
quicksortHelp = \list, low, high ->
if low < high then
when partition low high list is
@ -19,7 +19,7 @@ quicksortHelp = \list, low, high ->
else
list
partition : Nat, Nat, List (Num a) -> [Pair Nat (List (Num a))]
partition : U64, U64, List (Num a) -> [Pair U64 (List (Num a))]
partition = \low, high, initialList ->
when List.get initialList high is
Ok pivot ->
@ -30,7 +30,7 @@ partition = \low, high, initialList ->
Err _ ->
Pair low initialList
partitionHelp : Nat, Nat, List (Num c), Nat, Num c -> [Pair Nat (List (Num c))]
partitionHelp : U64, U64, List (Num c), U64, Num c -> [Pair U64 (List (Num c))]
partitionHelp = \i, j, list, high, pivot ->
if j < high then
when List.get list j is
@ -45,7 +45,7 @@ partitionHelp = \i, j, list, high, pivot ->
else
Pair i list
swap : Nat, Nat, List a -> List a
swap : U64, U64, List a -> List a
swap = \i, j, list ->
when Pair (List.get list i) (List.get list j) is
Pair (Ok atI) (Ok atJ) ->