Path: ...!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: "B. Pym" <No_spamming@noWhere_7073.org>
Newsgroups: comp.lang.lisp
Subject: Re: Learning Lisp in Linux?
Date: Tue, 18 Jun 2024 13:54:16 -0000 (UTC)
Organization: A noiseless patient Spider
Lines: 14
Message-ID: <v4s3i7$1cfk0$2@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Injection-Date: Tue, 18 Jun 2024 15:54:17 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="7acdda7ec629d74a48e7a7b7014fd8af";
	logging-data="1457792"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX1/EyB1TnbAPsMesJwAX6/S1"
User-Agent: XanaNews/1.18.1.6
Cancel-Lock: sha1:iRrFkf+5CIHnEkgD+Uq/uJlO0xI=
Bytes: 1051

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