zl:1 - FTP

219
find
(loop for n in 1
sum n into the-sum
count t into the-count
finally (return (quotient the-sum the-count»)
is a list
(defun sum-series (limit)
(loop for num from 8 to limit
with sum-of-series = 8
initially (print "The sum of this series is :")
do
(setq sum-of-series (+ sum-of-series num»
finally (prin1 sum-of-series») => SUM-SERIES
(sum-series 9) =>
"The sum of this series is :" 45
NIL
(defun over-the-top (num)
(loop for i from 1 to 18
when (= i num) return
finally (print "Finally triggered"») => OVER-THE-TOP
(over-the-top 5) => 5
(over-the-top 28) =>
"Finally triggered" NIL
See the macro loop, page 309.
find item sequence &key (test #'eql) test-not (key #'identity) Function
from-end (start 0) end
If sequence contains an element satisfying the predicate specified by the
:test keyword argument, then the leftmost such element is returned; otherwise
nil is returned.
item is matched against the elements specified by the test keyword. The
item can be any Symbolics Common Lisp object.
sequence can be either a list or a vector (one-dimensional array). Note that
nil is considered to be a sequence, of length zero.
:test specifies the test to be performed. An element of sequence satisfies
the test if (funcall testfun item (keyfn x» is true. Where testfun is the test
function specified by :test, keyfn is the function specified by :key and x is
an element of the sequence. The default test is eql.
:test-not is similar to :test, except that the sense of the test is inverted.
An element of sequence satisfies the test if (funcall testfun item (keyfn x»
is false.
I