Raymond Wiker wrote:

> (defun join (list delimiter)
> (with-output-to-string (ret)
> (loop for (elt . next) on list
> do (progn (write-string elt ret)
> (when next
> (write-string delimiter ret))))))

Let's make it shorter.

Gauche Scheme and Racket:

(use srfi-1) ;; pair-for-each for Gauche.
or
(require srfi/1) ;; pair-for-each for Racket.
(require srfi/26) ;; cut for Racket.

(define (join items delim)
(with-output-to-string
(cut
pair-for-each
(lambda (xs)
(display (car xs))
(and (pair? (cdr xs)) (display delim)))
items)))

(join '(2 3 4) '-)
===>
"2-3-4"

Robert L. <No_spamming@noWhere_7073.org> wrote:
> Raymond Wiker wrote:
>
>> (defun join (list delimiter)
>> (with-output-to-string (ret)
>> (loop for (elt . next) on list
>> do (progn (write-string elt ret)
>> (when next
>> (write-string delimiter ret))))))
>
> Let's make it shorter.
>
> Gauche Scheme and Racket:
>
> (use srfi-1) ;; pair-for-each for Gauche.
> or
> (require srfi/1) ;; pair-for-each for Racket.
> (require srfi/26) ;; cut for Racket.
>
> (define (join items delim)
> (with-output-to-string
> (cut
> pair-for-each
> (lambda (xs)
> (display (car xs))
> (and (pair? (cdr xs)) (display delim)))
> items)))
>
> (join '(2 3 4) '-)
> ===>
> "2-3-4"
>

So, more lines of non-portable code is 'shorter' than fewer lines of
portable code. Your brain is truly minute.

--
the small snake

On 2/24/2022 3:39 PM, Zyni Moë wrote:
> Robert L. <No_spamming@noWhere_7073.org> wrote:
>> Raymond Wiker wrote:
>>
>>> (defun join (list delimiter)
>>> (with-output-to-string (ret)
>>> (loop for (elt . next) on list
>>> do (progn (write-string elt ret)
>>> (when next
>>> (write-string delimiter ret))))))
>>
>> Let's make it shorter.
>>
>> Gauche Scheme and Racket:
>>
>> (use srfi-1) ;; pair-for-each for Gauche.
>> or
>> (require srfi/1) ;; pair-for-each for Racket.
>> (require srfi/26) ;; cut for Racket.
>>
>> (define (join items delim)
>> (with-output-to-string
>> (cut
>> pair-for-each
>> (lambda (xs)
>> (display (car xs))
>> (and (pair? (cdr xs)) (display delim)))
>> items)))
>>
>> (join '(2 3 4) '-)
>> ===>
>> "2-3-4"
>>
>
> So, more lines of non-portable code is 'shorter' than fewer lines of
> portable code. Your brain is truly minute.
That is true. However, my theory is that s/he only shows up here after
being fired for acting similarly towards workmates and superiors. He
will eventually get another job but, as I'm sure you've noticed, the
sessions here get longer and his work spans get shorter. I think s/he
has run out of references and reputation and odor are better known
through out. At this rate, we are stuck with it and will be until some
therapeutic measures intervene.
--
Jeff Barnett

I tend to see it as a statement on the afterlife. just when you think
the newsgroup is dead and quiet and there is nothing more, you see a
steady influx of these messages. just when you think death is final
quiescence you get to see the a steady flow of torments in the lake of
fire

On 2/24/2022 8:50 PM, Madhu wrote:
>
> I tend to see it as a statement on the afterlife. just when you think
> the newsgroup is dead and quiet and there is nothing more, you see a
> steady influx of these messages. just when you think death is final
> quiescence you get to see the a steady flow of torments in the lake of
> fire

Nothing so poetic. Just the smoke of an injured psyche moaning in
public. The smoke is all that's left.
--
Jeff Barnett

Jeff Barnett [2022-02-24 22:10:50] wrote:
> On 2/24/2022 8:50 PM, Madhu wrote:
>> I tend to see it as a statement on the afterlife. just when you think
>> the newsgroup is dead and quiet and there is nothing more, you see a
>> steady influx of these messages. just when you think death is final
>> quiescence you get to see the a steady flow of torments in the lake of
>> fire
> Nothing so poetic. Just the smoke of an injured psyche moaning in
> public. The smoke is all that's left.

And to be fair, these posts are incomparably more valuable and
on-topic than the infamous allcap ones.

Stefan