Cheryl's birthday: Difference between revisions
Content added Content deleted
(+Racket) |
m (→{{header|Racket}}: Collapse to two lines) |
||
Line 1,541: | Line 1,541: | ||
(let* ([chs <chs>] [chs (<act> (<arg> chs) chs)] ...) chs)) |
(let* ([chs <chs>] [chs (<act> (<arg> chs) chs)] ...) chs)) |
||
(solve '((May 15) |
(solve '((May 15) (May 16) (May 19) (June 17) (June 18) |
||
( |
(July 14) (July 16) (August 14) (August 15) (August 17)) |
||
(May 19) |
|||
(June 17) |
|||
(June 18) |
|||
(July 14) |
|||
(July 16) |
|||
(August 14) |
|||
(August 15) |
|||
(August 17)) |
|||
;; Albert knows the month but doesn't know the day. |
;; Albert knows the month but doesn't know the day. |