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