Code: Select all
(defun op(n)
(nth (mod n 3) '(+ - *))
)
(defun pre-op(n)
(nth (mod n 4) '(sqrt sin log))
)
(defun const(n)
(nth (mod n 11) '(0.1 1 2 3 4 5 6 7 8 9))
)
((op 0) 3 2)
so uh, how to make the ((op 0) 3 2)
become (+ 3 2)
Code: Select all
(defun op(n)
(nth (mod n 3) '(+ - *))
)
(defun pre-op(n)
(nth (mod n 4) '(sqrt sin log))
)
(defun const(n)
(nth (mod n 11) '(0.1 1 2 3 4 5 6 7 8 9))
)
((op 0) 3 2)