take-while и java-time / iterate, создающие странные результаты - PullRequest
Новая
       23

take-while и java-time / iterate, создающие странные результаты

0 голосов
/ 03 марта 2019

Я использую clojure.java-time версию 0.3.2, и у меня есть TemporalAdjuster , определенный следующим образом: 

(def next-pay-day
  (reify java.time.temporal.TemporalAdjuster
    (adjustInto [this temporal]
      (let [local-date (java.time.LocalDate/from temporal)
            day-of-month (j/as local-date :day-of-month)
            last-day-of-month (j/as (j/adjust local-date :last-day-of-month) :day-of-month)]
        (cond 
          (= day-of-month last-day-of-month) 
          (j/plus local-date (j/days 14))

          (< day-of-month 14) 
          (j/plus local-date (j/days (- 14 day-of-month)))

          :else 
          (j/adjust local-date :last-day-of-month))))))

, который работает примерно так: 

=> (require '[pto-calculator.logic.pay-periods :as p])
nil
=> (require '[java-time :as j])
nil
=> (take 4 (j/iterate j/adjust (j/local-date 2019 3 3) p/next-pay-day))
(#object[java.time.LocalDate 0x74e53020 "2019-03-03"] #object[java.time.LocalDate 0x49980a "2019-03-14"] #object[java.time.LocalDate 0x2e332a36 "2019-03-31"] #object[java.time.LocalDate 0x5e7aaec6 "2019-04-14"])

Я пытаюсь составить список дней оплаты между сегодняшним днем ​​и t, где t - это некоторое LocalDate в будущем.У меня есть это, но проблема в том, что он работает для некоторых дат (15 апреля): 

=> (take-while #(= 1 (compare (j/local-date 2019 4 15) %)) (j/iterate j/adjust (j/local-date 2019 3 3) p/next-pay-period))
(#object[java.time.LocalDate 0xc994eb6 "2019-03-03"] #object[java.time.LocalDate 0x3ec8e48 "2019-03-14"] #object[java.time.LocalDate 0x1bddd9d5 "2019-03-31"] #object[java.time.LocalDate 0x133ed931 "2019-04-14"])
; Last date is 2019-04-14 (expected)

Но не для других (18 апреля): 

=> (take-while #(= 1 (compare (j/local-date 2019 4 18) %)) (j/iterate j/adjust (j/local-date 2019 3 3) p/next-pay-period))
(#object[java.time.LocalDate 0x7f0ac64b "2019-03-03"] #object[java.time.LocalDate 0x1f1d3684 "2019-03-14"] #object[java.time.LocalDate 0x70415bc3 "2019-03-31"])
; Last date is 2019-03-31 (unexpected, should be 2019-04-14)

Почемуоперация прервана на 18 апреля, но работает нормально на 15 апреля?

1 Ответ

0 голосов
/ 03 марта 2019

сравнить не всегда возвращает 1, 0 или -1.Итак, вместо: 

#(= 1 (compare (j/local-date 2019 4 15) %))

попробуйте: 

#(pos? (compare (j/local-date 2019 4 15) %))
...