# Unit Test: programlisting.005

A programlisting within a table

$Id: programlisting.005.xml 4056 2004-11-23 13:28:50Z nwalsh $
Michael Smith

    smith@sideshowbarker.net

Lisp function

    (defun cycle-length (n & (len 1) (top 0))
      (cond ((= n 1) (values len top))
            ((evenp n) (cycle-length (ash n -1) (1+ len) (max top n)))
            (t (let ((next (1+ (* 3 n))))
                 (cycle-length next (1+ len) (max top next))))))