Path: ...!news.mixmin.net!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: Kaz Kylheku <643-408-1753@kylheku.com>
Newsgroups: comp.lang.lisp
Subject: Re: can format  ~{...~} enumerate list items?
Date: Thu, 18 Jul 2024 00:38:05 -0000 (UTC)
Organization: A noiseless patient Spider
Lines: 26
Message-ID: <20240717173635.627@kylheku.com>
References: <v79cj0$2115e$1@dont-email.me>
Injection-Date: Thu, 18 Jul 2024 02:38:06 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="1b5d4896b8b1840ce11109417f7214c5";
	logging-data="2196254"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX18W7mzAlOn2vvY5VIyQLj8zw/v1JQ0/LWY="
User-Agent: slrn/pre1.0.4-9 (Linux)
Cancel-Lock: sha1:enOVo/viSA2eY51vzWW3GXukD6o=
Bytes: 1571

On 2024-07-17, B. Pym <Nobody447095@here-nor-there.org> wrote:
> gosh> (print-counted '(a bb ccc) 233)
> 233. a
> 234. bb
> 235. ccc
>
> Shorter:
>
> (define (print-counted the-list :optional (from 0))
>   (for-each
>     (cut print <> ". " <>)
>     (lrange from)
>     the-list))

This is the TXR Lisp interactive listener of TXR 294.
Quit with :quit or Ctrl-D on an empty line. Ctrl-X ? for cheatsheet.
TXR was taped live before a studio audience. The laughter is genuine.
1> (mapdo (op put-line `@1. @2`) 1 '(a bb ccc))
1. a
2. bb
3. ccc

-- 
TXR Programming Language: http://nongnu.org/txr
Cygnal: Cygwin Native Application Library: http://kylheku.com/cygnal
Mastodon: @Kazinator@mstdn.ca