Hacker News new | ask | show | jobs
by austintaylor 5273 days ago 

    (fn [r]
      (reduce #(cons
        (* (first %1)
           (/ (- r %2) %2))
      %1) [1] (range 1 r)))