twc/ludus
4
0
Fork 0
Code Issues 32 Pull Requests Packages Projects 8 Releases Wiki Activity

add clause for join with empty list and separator

Browse Source
This commit is contained in:
Scott Richmond 2024-06-20 17:50:01 -04:00
parent 0363d5a091
commit 3b65092267
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
prelude.ld
View File

@ -326,6 +326,7 @@ fn join {
([]) -> "" ([]) -> ""
([str as :string]) -> str ([str as :string]) -> str
(strs as :list) -> join (strs, "") (strs as :list) -> join (strs, "")
([], separator as :string) -> ""
([str as :string], separator as :string) -> str ([str as :string], separator as :string) -> str
([str, ...strs], separator as :string) -> fold ( ([str, ...strs], separator as :string) -> fold (
fn (joined, to_join) -> concat (joined, separator, to_join) fn (joined, to_join) -> concat (joined, separator, to_join)