1. Forum
  2. Usenet
  3. COMP.LANG.LISP

  • Question about loop

    From Robert L.@21:1/5 to All on Sat Feb 12 00:30:07 2022
    (loop for x in list
    unless (p x) collect x into new-list
    finally (setq list new-list))

    Gauche Scheme:

    (remove odd? (iota 22))
    ===>
    (0 2 4 6 8 10 12 14 16 18 20)

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From B. Pym@21:1/5 to Pascal Costanza on Mon Aug 26 08:14:45 2024
    Pascal Costanza wrote:

    Jeff Barnett wrote:
    Does the Common Lisp spec say anything about whether the following is
    well defined given that the elements of "list" are unique:

    (loop for x in list
    when (p x)
    do (setq list (delete x list)))

    See http://www.lispworks.com/documentation/HyperSpec/Body/03_f.htm

    But I wouldn't worry too much and just switch to a non-destructive version:

    (loop for x in list
    unless (p x) collect x into new-list
    finally (setq list new-list))

    Gauche Scheme:

    (remove odd? (iota 22))
    ===>
    (0 2 4 6 8 10 12 14 16 18 20)

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From B. Pym@21:1/5 to B. Pym on Thu Jun 26 18:34:31 2025
    B. Pym wrote:

    Pascal Costanza wrote:

    Jeff Barnett wrote:
    Does the Common Lisp spec say anything about whether the following is well defined given that the elements of "list" are unique:

    (loop for x in list
    when (p x)
    do (setq list (delete x list)))

    See http://www.lispworks.com/documentation/HyperSpec/Body/03_f.htm

    But I wouldn't worry too much and just switch to a non-destructive version:

    (loop for x in list
    unless (p x) collect x into new-list
    finally (setq list new-list))

    Gauche Scheme:

    (remove odd? (iota 22))
    ===>
    (0 2 4 6 8 10 12 14 16 18 20)

    Is it true that users of CL (COBOL-Like) inspired the movie "Idiocracy"?

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)