5 lines
131 B
Clojure
5 lines
131 B
Clojure
(defn !! [m n]
|
|
(apply * (take-while pos? (iterate #(- % m) n))))
|
|
|
|
(doseq [m (range 1 6)]
|
|
(prn m (map #(!! m %) (range 1 11))))
|