Binary
Jump to navigation
Jump to search
Return to: Chialisp
Return to: Recursive Functions
(defun binary (n)
(if (= n 1)
(* n 2)
(* 2 (binary (- n 1)))))
(defun binary (n)
(if (= n 1)
(* n 2)
(* 2 (binary (- n 1)))))