transcendental-lisp/lisp/finance/paydays.lisp

15 lines
222 B
Common Lisp
Raw Normal View History

(let ((first-payday-day 6)
(leap-year 0)
(days-in-year 365)
(two-weeks 14))
2017-03-03 15:06:49 -05:00
(+
(/
(-
(+
days-in-year
2017-03-06 11:00:18 -05:00
leap-year)
first-payday-day)
two-weeks)
1))