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

69
lisp/random/array.lisp
View File

@ -1,40 +1,43 @@
(defmacro array (length)
(let* ((this (gensym))
(index-prefix (fuse this 'index))
(indices (create-indices length))
(index-bindings (map (lambda (i) (list (fuse index-prefix i))) indices)))
(let ((static))
`(let ,index-bindings
(setq ,this
(dlambda
(:get (i)
(eval (fuse ',index-prefix i)))
(setq static
(dlambda
(:create-indices (length)
(call static :create-indices-tail (- length 1) ()))
(:set (i value)
(if (and (< i ,length) (> i -1))
(set (fuse ',index-prefix i) value)
(call ,this :get i))) ;; show error
(:create-indices-tail (index accumulator)
(if (< index 0)
accumulator
(recur (- index 1) (cons index accumulator))))))
(:length ()
,length)
(defmacro array (length)
(let* ((this (gensym))
(index-prefix (fuse this 'index))
(indices (call static :create-indices length))
(index-bindings (map (lambda (i) (list (fuse index-prefix i))) indices)))
(t ()
((lambda (indices accumulator)
(if (null? indices)
accumulator
(recur
(rest indices)
(cons
(call ,this :get (first indices))
accumulator))))
(reverse ',indices)
nil)))))))
`(let ,index-bindings
(setq ,this
(dlambda
(:get (i)
(eval (fuse ',index-prefix i)))
(:set (i value)
(if (and (< i ,length) (> i -1))
(set (fuse ',index-prefix i) value)
(call ,this :get i))) ;; show error
(defun create-indices (length)
(create-indices-tail (- length 1) ()))
(:length ()
,length)
(defun create-indices-tail (index accumulator)
(if (< index 0)
accumulator
(recur (- index 1) (cons index accumulator))))
(t ()
((lambda (indices accumulator)
(if (null? indices)
accumulator
(recur
(rest indices)
(cons
(call ,this :get (first indices))
accumulator))))
(reverse ',indices)
nil))))))))