language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-07-24 15:03:46 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

roc format examples

Browse source
This commit is contained in:
Richard Feldman 2022-07-13 23:14:49 -04:00
parent 7ed35eca50
commit 7908e8c176
No known key found for this signature in database
GPG key ID: 7E4127D1E4241798
32 changed files with 231 additions and 232 deletions
Download patch file Download diff file Expand all files Collapse all files

8
crates/compiler/load_internal/tests/fixtures/build/app_with_deps/Quicksort.roc vendored
View file

@ -5,8 +5,8 @@ quicksort = \list, low, high ->
when partition low high list is
Pair partitionIndex partitioned ->
partitioned
|> quicksort low (partitionIndex - 1)
|> quicksort (partitionIndex + 1) high
|> quicksort low (partitionIndex - 1)
|> quicksort (partitionIndex + 1) high
swap : Nat, Nat, List a -> List a
@ -14,8 +14,8 @@ swap = \i, j, list ->
when Pair (List.get list i) (List.get list j) is
Pair (Ok atI) (Ok atJ) ->
list
|> List.set i atJ
|> List.set j atI
|> List.set i atJ
|> List.set j atI
_ ->
[]

8
crates/compiler/load_internal/tests/fixtures/build/app_with_deps/QuicksortOneDef.roc vendored
View file

@ -7,8 +7,8 @@ quicksort = \originalList ->
when partition low high list is
Pair partitionIndex partitioned ->
partitioned
|> quicksortHelp low (partitionIndex - 1)
|> quicksortHelp (partitionIndex + 1) high
|> quicksortHelp low (partitionIndex - 1)
|> quicksortHelp (partitionIndex + 1) high
else
list
@ -18,8 +18,8 @@ quicksort = \originalList ->
when Pair (List.get list i) (List.get list j) is
Pair (Ok atI) (Ok atJ) ->
list
|> List.set i atJ
|> List.set j atI
|> List.set i atJ
|> List.set j atI
_ ->
[]