【发布时间】:2012-08-15 08:24:10
【问题描述】:
是否可以迭代间隔的开始日期和结束日期之间的时间,一次一天?为 Clojure 使用 clj-time 库也可以!
【问题讨论】:
是否可以迭代间隔的开始日期和结束日期之间的时间,一次一天?为 Clojure 使用 clj-time 库也可以!
【问题讨论】:
Clj-time 具有periodic-seq 功能。它看起来很像 Hendekagon 的解决方案。这可以与开始/结束函数结合起来创建类似的东西:
(defn interval-seq
"Returns sequence of period over interval.
For example, the individual days in an interval using (clj-time.core/days 1) as the period."
[interval period]
(let [end (clj-time.core/end interval)]
(take-while #(clj-time.core/before? % end) (clj-time.periodic/periodic-seq (clj-time.core/start interval) period ))))
【讨论】:
这应该可行。
(take-while (fn [t] (cljt/before? t to)) (iterate (fn [t] (cljt/plus t period)) from))
【讨论】:
使用 clj-time,the-interval 是一个 Joda 间隔:
(use '[clj-time.core :only (days plus start in-days)])
(defn each-day [the-interval f]
(let [days-diff (in-days the-interval)]
(for [x (range 0 (inc days-diff))] (f (plus (start the-interval) (days x))))))
【讨论】:
是的。
类似这样的:
DateTime now = DateTime.now();
DateTime start = now;
DateTime stop = now.plusDays(10);
DateTime inter = start;
// Loop through each day in the span
while (inter.compareTo(stop) < 0) {
System.out.println(inter);
// Go to next
inter = inter.plusDays(1);
}
另外,这里是 Clojure 的 clj-time 的实现:
(defn date-interval
([start end] (date-interval start end []))
([start end interval]
(if (time/after? start end)
interval
(recur (time/plus start (time/days 1)) end (concat interval [start])))))
【讨论】:
List<DateTime> 的方法