WebInstruct

Search This Blog

LISP Product function

October 17, 2012

Get link
Facebook
X
Pinterest
Email
Other Apps

(defun product (list1)
(cond ( (null list1) 1 )
( t (* (car list1) (product (cdr list1))) )
)
)

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 Product function

Comments

Post a Comment