teitoku/rust-mal
1
0
Fork 0
mirror of https://github.com/teo3300/rust-mal.git synced 2026-01-12 01:05:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

Renaming libraries

Browse Source
This commit is contained in:
teo3300
2025-04-15 17:52:32 +09:00
parent 57c2590a84
commit de43cdfefb
3 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

0
libs/lists.mal → libs/list.mal
View File

0
libs/requests.mal → libs/request.mal
View File

11
libs/string.mal
View File

@ -32,9 +32,7 @@
(split-r (cdr l) (str t cc) r))))))
(reverse (split-r s "" '()))))
(def! split (fn* [string delimiter]
"Split the string at every occurrence of substring delimiter"
"An empty delimiter is splitting every character"
(def! split-h (fn* [string delimiter]
(if (= (strlen delimiter) 1)
(_split-ch string (char delimiter))
(do (def! delimiter (boom delimiter))
@ -50,6 +48,13 @@
(split-r string delimiter "" (str chunk matches curr) chunks)))))))
(reverse (split-r (boom string) delimiter "" "" '()))))))
(def! split (fn* [string delimiter]
"Split the string at every occurrence of substring delimiter"
"An empty delimiter is splitting every character"
(if (= (strlen delimiter) 0)
(cdr (split-h string delimiter))
(split-h string delimiter))))
(def! join (fn* [l s]
"Join element of list l to a stiring, using s as separator"
(def! s (or s ""))