Plaster

common-lisp
(defun greater-than (number &rest more-numbers) (declare (inline greater-than)) (apply #'> number more-numbers)) (defun less-than (number &rest more-numbers) (declare (inline less-than)) (apply #'< number more-numbers)) (defun greater-than-or-equal (number &rest more-numbers) (declare (inline greater-than-or-equal)) (apply #'>= number more-numbers)) (defun less-than-or-equal (number &rest more-numbers) (declare (inline less-than-or-equal)) (apply #'<= number more-numbers)) (defun add (number &rest more-numbers) (declare (inline add)) (apply #'+ number more-numbers)) (defun subtract (number &rest more-numbers) (declare (inline subtract)) (apply #'- number more-numbers)) (defun divide (number &rest more-numbers) (declare (inline divide)) (apply #'/ number more-numbers)) (defun multiply (number &rest more-numbers) (declare (inline multiply)) (apply #'* number more-numbers))