Lisp Programming Examples

Lisp Mapping Functions Example1

lisp

(write (mapcar '1+  '(23 34 45 56 67 78 89)))

Lisp Lambda Functions

lisp

(write ((lambda (a b c x)
   (+ (* a (* x x)) (* b x) c))
   4 2 9 3)
)

Lisp Returning Values Function Example

lisp

(defun myfunc (num)
   (return-from myfunc 10)
   write num
)
(write (myfunc 20))

Lisp Returning Values Function Example2

lisp

(defun myfunc (num)
   (return-from myfunc 10)
   num
)
(write (myfunc 20))

Lisp Returning Values Function Example1

lisp

(defun add-all(a b c d)
   (+ a b c d)
)
(setq sum (add-all 10 20 30 40))
(write sum)
(terpri)
(write (add-all 23.4 56.7 34.9 10.0))

Lisp Keyword Parameters

lisp

(defun show-members (&key a b c d ) (write (list a b c d)))
(show-members :a 1 :c 2 :d 3)
(terpri)
(show-members :a 'p :b 'q :c 'r :d 's)
(terpri)
(show-members :a 'p :d 'q)
(terpri)
(show-members :a 1 :b 2)

Lisp Rest Parameters

lisp

(defun show-members (a b &rest values) (write (list a b values)))
(show-members 1 2 3)
(terpri)
(show-members 'a 'b 'c 'd)
(terpri)
(show-members 'a 'b)
(terpri)
(show-members 1 2 3 4)
(terpri)
(show-members 1 2 3 4 5 6 7 8 9)

Lisp Optional Parameters

lisp

(defun show-members (a b &optional c d) (write (list a b c d)))
(show-members 1 2 3)
(terpri)
(show-members 'a 'b 'c 'd)
(terpri)
(show-members 'a 'b)
(terpri)
(show-members 1 2 3 4)

Lisp Defining Function Example2

lisp

(defun area-circle(rad)
   "Calculates area of a circle with given radius"
   (terpri)
   (format t "Radius: ~5f" rad)
   (format t "~%Area: ~10f" (* 3.141592 rad rad))
)
(area-circle 10)

Lisp Defining Function Example1

lisp

(defun averagenum (n1 n2 n3 n4)
   (/ ( + n1 n2 n3 n4) 4)
)
(write(averagenum 10 20 30 40))

Follow

Newsletter