Re: The LOOP macro

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)))