Re: the "loop" macro

B. Pym wrote:

B. Pym wrote:
 

 (loop for item in list
       maximize (f item))

 
It's shorter in Gauche Scheme.
 
(use srfi-42)   ;; max-ec
 
(max-ec (: x '(-8 2 0)) (abs x))
  ===>
8

 

 (loop for x in '(1 2 3 4 5 6 7)
    when (evenp x)
     collect x into evens
    else
     collect x into odds
    finally
     (return (values evens odds)))
 => (2 4 6), (1 3 5 7)

 
It's shorter in Gauche Scheme.
 
(partition even? '(2 3 4 5 6 7))
  ===>
(2 4 6)
(3 5 7)

 (loop for x in '(a b (c d) e f)
       when (atom x)
        collect x
       else
        append x)
 => (A B C D E F)

It's shorter in Gauche Scheme.

(append-map
  (lambda (x) (if (pair? x) x (list x)))
  '(a b (c d) e f))
  ===>
(a b c d e f)