[clisp-list] MT project contribution

[Lyn A H. <lah...@cs...>]

hello,

i'm interested in helping out with the MT project, and i'd like to see
others contribute what they can, even if it's just a little.  So I
submit the following contribution which depends on contributions from
others.

In english, I commit to contributing the average of the highest five
contributions offered after this one, with my limit being 50 dollars.
If five others don't step forward with some sort of contribution, my
contribution is 0.

in lisp code, it looks like this:

(defun my-contribution (others)
  "given a list of all the numerical contributions received by the MT
project after the posting of this function, returns my contribution"
  (flet ((average (list)
           (/ (reduce #'+ list) (length list))))
    (if (>= (length others) 5)
        (min 50 (average (subseq (sort others #'>) 0 5)))
        0)))

what say ye?

-Lyn