Ask HN: How is the avg in my HN profile calculated?

  (def comment-score (user)
    (aif ;; (aif test true-part false-part) ;; if test is true, assign its value
                                            ;; to the variable it and evaluate
                                            ;; true-part. Otherwise, evaluate
                                            ;; false-part.
         ;; This could alternately be awhen, and leave out nil at the end
         ;; of this function
     (check (nthcdr 5 (comments user 50))
  	  [len> _ 10]) ;; if the user has at least 15 comments, assign
                       ;; the comments numbered 6-50 to the variable it
     (avg ;; get the average of the list returned from the next line
      (cdr ;; take every score but the first
  	 (sort > ;; order the scores, so the "first" score mentioned above is
                 ;; the highest-scoring one
  	       (map !score (rem !deleted it))))) ;; get the scores of each comment
                                                 ;; as a list
     nil))

  ; Ignore the most recent 5 comments since they may still be gaining votes.  
  ; Also ignore the highest-scoring comment, since possibly a fluff outlier.