我正在阅读Clojure in Action 这本书,并且给出了与下面类似的代码,该函数返回m以下的所有数对,其总和为素数(假设素数?已给出):
(defn pairs-for-primes [m]
(let [z (range 0 m)]
(for [a z b z :when (prime? (+ a b))]
(list a b))))
将如何推广它以返回所有低于 m 且总和为素数的数的 n 元组?
(defn all-ntuples-below [n m]
...