12 lines
221 B
Common Lisp
12 lines
221 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*))
|
||
|
|
)
|