WebInstruct

Search This Blog

LISP Palindrome Function

October 17, 2012

Get link
Facebook
X
Pinterest
Email
Other Apps

(defun ispalindrome (list)
(equal list (reverse list))
)

> (ispalindrome '(a b b a)) = T

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 Palindrome Function

Comments

Post a Comment