Path: ...!feed.opticnetworks.net!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: HenHanna <HenHanna@devnull.tb>
Newsgroups: comp.lang.lisp
Subject: Re: Learning Lisp in Linux? -- Bang, Lbang
Date: Tue, 18 Jun 2024 13:02:25 -0700
Organization: A noiseless patient Spider
Lines: 24
Message-ID: <v4sp4j$1gg3n$1@dont-email.me>
References: <v4s3i7$1cfk0$2@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Tue, 18 Jun 2024 22:02:27 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="1ff5838eddcfee2869179dd23adb7000";
	logging-data="1589367"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX1+uP7xBiFOmoU3wfK1576a9rVIpjnQAfZ8="
User-Agent: Mozilla Thunderbird
Cancel-Lock: sha1:JKM3VgxSTpkXnJ8MkbBvIj1+kMk=
In-Reply-To: <v4s3i7$1cfk0$2@dont-email.me>
Content-Language: en-US
Bytes: 1490

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))