30 lines
627 B
Plaintext
30 lines
627 B
Plaintext
(load "lib/primitives.rls")
|
|
(load "lib/primitive/foldl.rls")
|
|
(load "lib/primitive/foldr.rls")
|
|
(load "lib/primitive/reverse.rls")
|
|
(load "lib/primitive/map.rls")
|
|
(load "lib/primitive/append.rls")
|
|
(load "lib/util.rls")
|
|
|
|
(values
|
|
(basename "/")
|
|
(basename "///")
|
|
(basename "/abcd")
|
|
(basename "abcd")
|
|
(basename "///a/b/c/d/")
|
|
(basename "/a//b/c/d")
|
|
(basename "/a/b/c//d")
|
|
(basename "/a/b/c/d//")
|
|
(dirname "/")
|
|
(dirname "////")
|
|
(dirname "/abcd")
|
|
(dirname "abcd")
|
|
(dirname "/a/b//c//d")
|
|
(dirname "a//b/c/d")
|
|
(dirname "a/b/c/d/")
|
|
(dirname "a/b/c/d///")
|
|
(vector-slice #(1 2 3 4 5) 0)
|
|
(vector-slice #(1 2 3 4 5) 2 2)
|
|
)
|
|
|