eintr: Recursion with cond
11.3.5 Recursion Example Using ‘cond’
-------------------------------------
The version of ‘triangle-recursively’ described earlier is written with
the ‘if’ special form. It can also be written using another special
form called ‘cond’. The name of the special form ‘cond’ is an
abbreviation of the word ‘conditional’.
Although the ‘cond’ special form is not used as often in the Emacs
Lisp sources as ‘if’, it is used often enough to justify explaining it.
The template for a ‘cond’ expression looks like this:
(cond
BODY...)
where the BODY is a series of lists.
Written out more fully, the template looks like this:
(cond
(FIRST-TRUE-OR-FALSE-TEST FIRST-CONSEQUENT)
(SECOND-TRUE-OR-FALSE-TEST SECOND-CONSEQUENT)
(THIRD-TRUE-OR-FALSE-TEST THIRD-CONSEQUENT)
...)
When the Lisp interpreter evaluates the ‘cond’ expression, it
evaluates the first element (the CAR or true-or-false-test) of the first
expression in a series of expressions within the body of the ‘cond’.
If the true-or-false-test returns ‘nil’ the rest of that expression,
the consequent, is skipped and the true-or-false-test of the next
expression is evaluated. When an expression is found whose
true-or-false-test returns a value that is not ‘nil’, the consequent of
that expression is evaluated. The consequent can be one or more
expressions. If the consequent consists of more than one expression,
the expressions are evaluated in sequence and the value of the last one
is returned. If the expression does not have a consequent, the value of
the true-or-false-test is returned.
If none of the true-or-false-tests test true, the ‘cond’ expression
returns ‘nil’.
Written using ‘cond’, the ‘triangle’ function looks like this:
(defun triangle-using-cond (number)
(cond ((<= number 0) 0)
((= number 1) 1)
((> number 1)
(+ number (triangle-using-cond (1- number))))))
In this example, the ‘cond’ returns 0 if the number is less than or
equal to 0, it returns 1 if the number is 1 and it evaluates ‘(+ number
(triangle-using-cond (1- number)))’ if the number is greater than 1.