Re: The LOOP macro

B. Pym wrote:

Do you have a good example of LOOP's power / flexibility that doesn't
need much surrounding context to understand?

 
Here are a few:
 
  (loop repeat 100 collect (random 10))

 
 
newLISP
 
(collect (rand 10) 100)
 
 
 

  (loop for x across array-of-numbers
        minimizing x into min
        maximizing x into max
        summing x into total
        counting t into count
        finally (return (list min max (/ total count))))

 
 
(define array-of-numbers (array 9 '(2 -2 0 9 7 8 3 4 3)))
 
(local (mx mn total cnt)
  (dolist (n array-of-numbers)
    (setq mx (max (or mx n) n))
    (setq mn (min (or mn n) n))
    (++ total n)
    (++ cnt))
  (list mn mx (div total cnt)))
 
(-2 9 3.777777777777778)
 
Another way:
 
(list (apply min array-of-numbers)
      (apply max array-of-numbers)
      (div (apply + array-of-numbers) (length array-of-numbers)))

Another way:

(list (apply min array-of-numbers)
      (apply max array-of-numbers)
      ((stats array-of-numbers) 1))

(-2 9 3.777777777777778)