15 lines
222 B
Common Lisp
15 lines
222 B
Common Lisp
(let ((first-payday-day 6)
|
|
(leap-year 0)
|
|
(days-in-year 365)
|
|
(two-weeks 14))
|
|
|
|
(+
|
|
(/
|
|
(-
|
|
(+
|
|
days-in-year
|
|
leap-year)
|
|
first-payday-day)
|
|
two-weeks)
|
|
1))
|