From ef6b023572ef6f28c57e10af1eca4976d14281ae Mon Sep 17 00:00:00 2001 From: VaclavT Date: Sun, 7 Mar 2021 17:22:27 +0100 Subject: [PATCH] flatten added --- stdlib/stdlib.lsp | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/stdlib/stdlib.lsp b/stdlib/stdlib.lsp index 8d18806..7e6c66b 100644 --- a/stdlib/stdlib.lsp +++ b/stdlib/stdlib.lsp @@ -100,6 +100,20 @@ 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) (if (<= (len l) 1) l