Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv6822

Modified Files: integers.lisp Log Message: Added lcm.

Date: Sun Sep 18 16:42:21 2005 Author: ffjeld

Index: movitz/losp/muerte/integers.lisp diff -u movitz/losp/muerte/integers.lisp:1.116 movitz/losp/muerte/integers.lisp:1.117 --- movitz/losp/muerte/integers.lisp:1.116 Sun Sep 18 16:23:44 2005 +++ movitz/losp/muerte/integers.lisp Sun Sep 18 16:42:21 2005 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: integers.lisp,v 1.116 2005/09/18 14:23:44 ffjeld Exp $ +;;;; $Id: integers.lisp,v 1.117 2005/09/18 14:42:21 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -2137,6 +2137,18 @@ (gcd gcd (car rest))) (rest (cdr integers) (cdr rest))) ((null rest) gcd))))) + +(defun lcm (&rest numbers) + "Returns the least common multiple of one or more integers. LCM of no + arguments is defined to be 1." + (numargs-case + (1 (n) + (abs n)) + (2 (n m) + (abs (* (truncate (max n m) (gcd n m)) (min n m)))) + (t (&rest numbers) + (declare (dynamic-extent numbers)) + (reduce #'lcm numbers))))

(defun floor (n &optional (divisor 1)) "This is floor written in terms of truncate."