Re: Learning Lisp in Linux? -- Bang, Lbang

On 6/18/2024 6:54 AM, B. Pym wrote:

Pascal Costanza wrote:
 

>
(defun bang (n)
    (loop for x from 1 to n
          for r = 1 then (* x r)
          finally (return r)))

 (define (bang n)
   (if (< n 2) 1 (* n (bang (- n 1)))))
 (bang 5)      ===>    120

(define (lbang x)
   (fold * 1
         (map * (make-list x 1) (lrange 1))))
(print (lbang 0))
(print (lbang 1))
(print (lbang 3))
(print (lbang 5))
(print (lbang 10))