3 ms·(fn [r] (reduce #(cons (* (first %1) (/ (- r %2) %2)) %1) [1] (range 1 r)))by austintaylor 15y ago(fn [r] (reduce #(cons (* (first %1) (/ (- r %2) %2)) %1) [1] (range 1 r)))