diff options
author | Darren Bane <darren.bane@emdalo.com> | 2021-02-25 12:48:35 +0000 |
---|---|---|
committer | Darren Bane <darren.bane@emdalo.com> | 2021-02-25 12:48:35 +0000 |
commit | 06c451e39ff50b7646f4aa99efae67e0d4850a5f (patch) | |
tree | 86f4669b9fb3fd5459cd0782bd79b8d3d3950698 | |
parent | 7d8b2e2771e285aeac26e56feafdbf4eb155ab38 (diff) | |
download | lsp-06c451e39ff50b7646f4aa99efae67e0d4850a5f.tar.gz |
Avoid higher-order functions for simplicity
-rw-r--r-- | dbc2.lsp | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/dbc2.lsp b/dbc2.lsp index 477dc38..21089ba 100644 --- a/dbc2.lsp +++ b/dbc2.lsp @@ -1,11 +1,5 @@ (defmacro unless (test :rest body) `(if (not ,test) (progn ,@body))) -;;(defun reduce (function sequence) -;; (let ((res 0)) -;; (for ((xs sequence (cdr xs))) -;; ((null xs) res) -;; (setq res (+ res (car xs)))))) -;;(reduce #'+ (map '<list> #'abs values)) (defun sum (sequence) (let ((res 0)) (for ((xs sequence (cdr xs))) |