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

flatten added

This commit is contained in:
VaclavT 2021-03-07 17:22:27 +01:00
parent eed18e0f90
commit ef6b023572
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
stdlib/stdlib.lsp
View File

@ -100,6 +100,20 @@
rslt rslt
)) ))
(defun flatten(lst)
(do
(define rslt '())
(for e lst
(if (= (type e) "list")
(do
(for ee (flatten e)
(define rslt (push rslt ee))))
(define rslt (push rslt e))
))
rslt
))
(defun quick-sort-by (l cmp) (defun quick-sort-by (l cmp)
(if (<= (len l) 1) (if (<= (len l) 1)
l l