lisp code – Program Creek

Lisp Code: Add two list

September 30, 2013December 1, 2010 by ProgramCreek

Can we have a function that can add two list to one, such as (add ‘(1 2 3) ‘(4 5 6)) = (5 7 9)

(defun add-two-list (l r)
; e.g. (1 2 3) (2 3 4)
; returns (3 5 7)
  (setf return-value '())
  (loop for i from 0 to (- (length l) 1)
        do (setf return-value (cons (+ (nth i l) (nth i r)) return-value))
)
 (reverse return-value)
)

Lisp code: find minimum element in a list

January 23, 2013October 26, 2010 by ProgramCreek

How can we find the minimum element in a list in Lisp? Given a large number m as an argument, get a minimum value from a list. The following code returns the minimum element in a list. (defun get-min (m l) ; takes a list ; return the minimum value (cond ((null (car l)) m) … Read more