vaclavt
/
mlisp
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

small string-join optimization

This commit is contained in:
VaclavT 2021-04-19 21:58:16 +02:00
parent 6638cdff55
commit 13e5097f3a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
stdlib/stdlib.lsp
View File

@ -33,9 +33,9 @@
(define i 0)
(for e lst
(if (= i 0)
(define rslt (display e))
(define rslt (+ rslt (display sep) (display e))))
(define i (inc i)))
(do (define rslt (display e)) (define i 1))
(define rslt (+ rslt (display sep) (display e)))
))
rslt
))