有没有比以下更好的方法:
(defn in-interval?
"Returns a predicate that tests if its argument falls in
the inclusive interval [a, b]."
[a b]
(fn [x] (and (>= x a) (<= x b))))
使用中:
((in-interval? 5 8) 5.5) ; true
((in-interval? 5 8) 9) ; false
例如,我不想使用range
,因为这构造了一个惰性序列。