language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-09 05:20:32 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 7

refactor implementation to avoid bug

Browse source
This commit is contained in:
Isaac Van Doren 2024-11-13 20:21:42 -06:00
parent efae03240e
commit cf05fe03e9
No known key found for this signature in database
GPG key ID: CFA524CD470E5B94
1 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

17
crates/compiler/builtins/roc/List.roc
View file

@ -1285,18 +1285,19 @@ splitOn = \elements, delimiter ->
## ```
splitOnList : List a, List a -> List (List a) where a implements Eq
splitOnList = \elements, delimiter ->
if delimiter == [] then
[elements]
else
help = \remaining, chunks, currentChunk ->
when remaining is
[] -> List.append chunks currentChunk
_ if List.startsWith remaining delimiter ->
help (List.dropFirst remaining (List.len delimiter)) (List.append chunks currentChunk) []
[x, .. as rest] ->
if List.startsWith remaining delimiter then
help (List.dropFirst remaining (List.len delimiter)) (List.append chunks currentChunk) []
else
help rest chunks (List.append currentChunk x)
[x, .. as rest] -> help rest chunks (List.append currentChunk x)
help elements [] []
if delimiter == [] then
[elements]
else
help elements [] []
## DEPRECATED: will be removed soon
split : List elem, U64 -> { before : List elem, others : List elem }