Here's the source:

  (= active-threshold* 1500)
  
  (def active-rank (s)
    (apply + (map [max 0 (- active-threshold* (item-age _))]
                  (cdr (family s)))))

A story's score is the sum of the difference between the age of each comment and 25 hours.