2017-02-27 15:36:17 -05:00
|
|
|
(let ((first-payday-day 6)
|
|
|
|
|
(leap-year 0)
|
|
|
|
|
(days-in-year 365)
|
|
|
|
|
(two-weeks 14))
|
2017-02-04 12:03:16 -05:00
|
|
|
|
|
|
|
|
(+ 1
|
2017-02-27 15:36:17 -05:00
|
|
|
(/ (- (+ days-in-year
|
|
|
|
|
leap-year)
|
|
|
|
|
first-payday-day)
|
|
|
|
|
two-weeks))
|
2017-02-04 12:03:16 -05:00
|
|
|
)
|
