WebInstruct

Search This Blog

LISP Recursive Factorial function

October 16, 2012

Get link
Facebook
X
Pinterest
Email
Other Apps

(defun factorial(n)
(if (= n 1) 1 (* n (factorial(- n 1))))
)

LISP

Get link
Facebook
X
Pinterest
Email
Other Apps

Comments

LISP Return Third Character Function

(defun third-char(list) (car (cdr (cdr list))) ) > third-char '(a b c d) = C

LISP Factorial Function

The Math f(0) = 1 for n = 0 f(n) = (n * factorial(n-1)) for n>0 The Function (defun factorial (n) (if (= n 0) 1 ( * n (factorial (- n 1)) )) ) The Output > factorial 3 = 6

Recursive LISP function to find the power of a number

(defun power(base exp) ( if (eq exp 0) 1 ( * base (power base (- exp 1)) ) ) ) power 3 2 = 9

Powered by Blogger

LISP Recursive Factorial function

Comments

Post a Comment