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

add more List.withCapacity optimisation

Browse source
This commit is contained in:
Luke Boswell 2023-04-21 14:28:09 +10:00
parent 2b95731a5c
commit ad9aadeb64
No known key found for this signature in database
GPG key ID: F6DB3C9DB47377B0
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
crates/compiler/builtins/roc/Json.roc
View file

@ -1493,7 +1493,10 @@ expect camelToPascal "someCaseString" == "SomeCaseString"
camelToKebeb : Str -> Str camelToKebeb : Str -> Str
camelToKebeb = \str -> camelToKebeb = \str ->
camelToKebabHelp { taken: [], rest: Str.graphemes str } rest = Str.graphemes str
taken = List.withCapacity (List.len rest)
camelToKebabHelp { taken, rest }
|> .taken |> .taken
|> Str.joinWith "" |> Str.joinWith ""
@ -1517,7 +1520,10 @@ expect camelToKebeb "someCaseString" == "some-case-string"
camelToSnake : Str -> Str camelToSnake : Str -> Str
camelToSnake = \str -> camelToSnake = \str ->
camelToSnakeHelp { taken: [], rest: Str.graphemes str } rest = Str.graphemes str
taken = List.withCapacity (List.len rest)
camelToSnakeHelp { taken, rest }
|> .taken |> .taken
|> Str.joinWith "" |> Str.joinWith ""