LispForum

HomuciferMadokami

(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))
)
(defun main()
	((op 0) 3 2)
)
(main)

how do I make it become (+ 3 2)

HomuciferMadokami

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 I have that code, and I'm expecting the
so uh, how to make the ((op 0) 3 2)
become (+ 3 2)

LispForum

Search found 2 matches

just a basic for beginner.

basic, but I don't understand