mike
/
transcendental-lisp
1
1
Fork 0
Code Issues 10 Pull Requests Packages Projects Releases Wiki Activity

Move array functions out of global scope

This commit is contained in:
Mike Cifelli 2018-02-04 09:47:25 -05:00
parent c33d8e5d38
commit 76b1f987a2
1 changed files with 36 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lisp/random/array.lisp
View File

@ -1,7 +1,19 @@
(defmacro array (length) (let ((static))
(setq static
(dlambda
(:create-indices (length)
(call static :create-indices-tail (- length 1) ()))
(:create-indices-tail (index accumulator)
(if (< index 0)
accumulator
(recur (- index 1) (cons index accumulator))))))
(defmacro array (length)
(let* ((this (gensym)) (let* ((this (gensym))
(index-prefix (fuse this 'index)) (index-prefix (fuse this 'index))
(indices (create-indices length)) (indices (call static :create-indices length))
(index-bindings (map (lambda (i) (list (fuse index-prefix i))) indices))) (index-bindings (map (lambda (i) (list (fuse index-prefix i))) indices)))
`(let ,index-bindings `(let ,index-bindings
@ -28,13 +40,4 @@
(call ,this :get (first indices)) (call ,this :get (first indices))
accumulator)))) accumulator))))
(reverse ',indices) (reverse ',indices)
nil))))))) nil))))))))
(defun create-indices (length)
(create-indices-tail (- length 1) ()))
(defun create-indices-tail (index accumulator)
(if (< index 0)
accumulator
(recur (- index 1) (cons index accumulator))))