Re: LOOP blows!
- From: Kaz Kylheku <kkylheku@xxxxxxxxx>
- Date: Thu, 7 Feb 2008 17:48:59 -0800 (PST)
On Feb 7, 4:38 pm, Maciej Katafiasz <mathr...@xxxxxxxxx> wrote:
Den Thu, 07 Feb 2008 16:13:34 -0800 skrev Kaz Kylheku:
Okay, Kenny, you old SOB, here is my final submission to your obfuscated
LOOP contest:
(LOOP FOR WITH =
'(LOOP FOR WITH = '(LOOP FOR WITH) FOR AND IN WITH FOR = = AND FOR
FINALLY =
AND COLLECT FINALLY INTO IF FINALLY
(RETURN
(LOOP FOR IN IN IF WHEN (EQUAL IN ''(LOOP FOR WITH)) COLLECT
(LIST 'QUOTE WITH) ELSE COLLECT IN)))
FOR AND IN WITH FOR = = AND FOR FINALLY = AND COLLECT FINALLY INTO IF
FINALLY
(RETURN
(LOOP FOR IN IN IF WHEN (EQUAL IN ''(LOOP FOR WITH)) COLLECT
(LIST 'QUOTE WITH) ELSE COLLECT IN)))
That is an impressive way to say NIL, but I'm somewhat disappointed that
it's not a quine.
Can we expect version Final.1 to fix that bug?
Nope, works on my machine. Your LOOP is obviously broken. :)
Does this return (1 2 3)?
(loop for x = '(1 2 3) for y in x do collect y)
If so, does this also?
(loop for x = '(1 2 3)
for y in x
for z = y
for w = y
collect w)
.
- Follow-Ups:
- Re: LOOP blows!
- From: Madhu
- Re: LOOP blows!
- From: Ken Tilton
- Re: LOOP blows!
- From: Maciej Katafiasz
- Re: LOOP blows!
- References:
- LOOP blows!
- From: Kaz Kylheku
- Re: LOOP blows!
- From: Maciej Katafiasz
- LOOP blows!
- Prev by Date: Re: Game Over: O'Reilly Does Lisp
- Next by Date: Re: lisp v haskell, why or why not? any considered redoing HAPPS in lisp?
- Previous by thread: Re: LOOP blows!
- Next by thread: Re: LOOP blows!
- Index(es):
Relevant Pages
|
|