1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
;; Copyright (C) 2017 Tommi Höynälänmaa
;; Expected results: translation and running OK
(define-proper-program (tests test600)
(import (standard-library core)
(standard-library console-io))
(define january
'(("New Years Day" #t #t #t #t #f #t)
("Presidential Inauguration" #f #t #f #t #f #f)
("Martin Luther King Jr. day" #f #t #f #t #f #f)))
(define february
'(("Presidents' Day" #f #t #f #t #f #f)
("Groundhog Day" #f #f #f #f #f #f)
("Valentine's Day" #f #f #f #f #t #t)))
(define march
'(("National Tree Planting Day" #f #f #f #f #f #f)
("St Patrick's Day" #f #f #f #f #f #t)))
(define april
'(("April Fools' Day" #f #f #f #f #f #t)
("Army Day" #f #f #f #f #f #f)
("Earth Day" #f #f #f #f #f #t)
("Administrative Professionals' Day" #f #f #f #f #f #f)))
(define may
'(("Nurses' Day" #f #f #f #f #f #f)
("National Day of Prayer" #f #f #f #f #f #f)
("Mothers' Day" #f #f #f #f #f #t)
("Armed Forces Day" #f #f #f #f #f #f)
("Memorial Day" #t #t #t #t #f #t)))
(define june
'(("June Fathers' Day" #f #f #f #f #f #t)
("Juneteenth (Liberation of Slaves)" #f #f #f #f #f #f)
("Flag Day" #f #t #f #t #f #f)))
(define july
'(("Parents' Day" #f #f #f #f #f #t)
("Independence Day" #f #t #f #t #f #f)))
(define august
'(("Air Force Day" #f #f #f #f #f #f)
("Coast Guard Day" #f #f #f #f #f #f)
("Friendship Day" #f #f #f #f #f #f)))
(define september
'(("Grandparents' Day" #f #f #f #f #f #t)
("Citizenship Day or Constitution Day" #f #f #f #f #f #f)
("Labor Day" #t #t #t #t #f #t)))
(define october
'(("National Children's Day" #f #f #f #f #f #f)
("Bosses' Day" #f #f #f #f #f #f)
("Sweetest Day" #f #f #f #f #f #f)
("Mother-in-Law's Day" #f #f #f #f #f #f)
("Navy Day" #f #f #f #f #f #f)
("Columbus Day" #f #t #f #t #f #f)
("Halloween" #f #f #f #f #f #t)))
(define november
'(("Marine Corps Day" #f #f #f #f #f #f)
("Veterans' Day" #t #t #t #t #f #t)
("Thanksgiving" #f #t #f #t #f #f)))
(define december
'(("Pearl Harbor Remembrance Day" #f #f #f #f #f #f)
("Christmas" #t #t #t #t #f #t)
("Kwanzaa" #f #f #f #f #f #f)))
(define toplevel
`(("January" ,january)
("February" ,february)
("March" ,march)
("April" ,april)
("May" ,may)
("June" ,june)
("July" ,july)
("August" ,august)
("September" ,september)
("October" ,october)
("November" ,november)
("December" ,december)))
(define-main-proc (() <none> nonpure)
(console-display-line toplevel)))
|
