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

Fixed core and libs

Browse Source 
- Added ceil function for fractionals
- Fixed symbols in string library
This commit is contained in:
teo3300
2025-07-23 09:26:52 +09:00
parent 92be9e4483
commit 4f528b832a
2 changed files with 16 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
libs/string.mal
View File

@ -23,16 +23,18 @@
(def! _split-ch (fn* [s c]
"Split the string at every occurrence of character sc"
(def! s (boom s))
(def! split-r (fn* [l t r]
(def! split-r (fn* [l tt r]
(if (empty? l)
(cons t r)
(cons tt r)
(do (def! cc (car l))
(if (= cc c)
(split-r (cdr l) "" (cons t r))
(split-r (cdr l) (str t cc) r))))))
(split-r (cdr l) "" (cons tt r))
(split-r (cdr l) (str tt cc) r))))))
(reverse (split-r s "" '()))))
(def! split-h (fn* [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) 1)
(_split-ch string (char delimiter))
(do (def! delimiter (boom delimiter))
@ -48,20 +50,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 ""))
(def! join-r (fn* [l t]
(def! join-r (fn* [l tt]
(if (empty? l)
t
(join-r (cdr l) (str t s (car l))))))
tt
(join-r (cdr l) (str tt s (car l))))))
(join-r (cdr l) (car l))))
(def! chsub (fn* [s c1 c2]