Replace (str) with (concat)
This commit is contained in:
14
examples/benchmark.fs.lisp
Normal file
14
examples/benchmark.fs.lisp
Normal file
@@ -0,0 +1,14 @@
|
||||
; filesystem
|
||||
(
|
||||
; print path
|
||||
(echo
|
||||
(filepath))
|
||||
; print folder path
|
||||
(echo
|
||||
(dirpath))
|
||||
; print file content
|
||||
(echo
|
||||
(file))
|
||||
; print folder content
|
||||
(echo
|
||||
(dir)))
|
||||
@@ -53,7 +53,7 @@
|
||||
|
||||
; Generics
|
||||
|
||||
(test "str" (str 1 4 "-" (add 3 4) ".jpg") "14-7.jpg")
|
||||
(test "concat" (concat 1 4 "-" (add 3 4) ".jpg") "14-7.jpg")
|
||||
|
||||
; Interop
|
||||
(test "interop" ((of (of (js) "Math") "max") 2 4) 4)
|
||||
|
||||
Reference in New Issue
Block a user