..
original commit: 22ac64e877a20134acb31291c54fdadcf799e06c
This commit is contained in:
parent
13de451dfa
commit
ee31a373b7
|
@ -1,6 +1,7 @@
|
|||
(module bday mzscheme
|
||||
(provide mrf-bday?
|
||||
mf-bday?)
|
||||
mf-bday?
|
||||
sk-bday?)
|
||||
|
||||
;; mf-bday? : -> boolean
|
||||
;; Matthias's birthday
|
||||
|
@ -14,4 +15,11 @@
|
|||
(define (mrf-bday?)
|
||||
(let ([d (seconds->date (current-seconds))])
|
||||
(and (= (date-month d) 11)
|
||||
(= (date-day d) 1)))))
|
||||
(= (date-day d) 1))))
|
||||
|
||||
;; sk-bday? : -> boolean
|
||||
;; Shriram's birthday
|
||||
(define (sk-bday?)
|
||||
(let ([date (seconds->date (current-seconds))])
|
||||
(and (= (date-month date) 4)
|
||||
(= (date-day date) 8)))))
|
||||
|
|
Loading…
Reference in New Issue
Block a user