File: test600.thp

package info (click to toggle)
theme-d 7.2.4-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 21,036 kB
  • sloc: lisp: 9,625; sh: 5,321; makefile: 715; ansic: 477
file content (91 lines) | stat: -rw-r--r-- 2,728 bytes parent folder | download | duplicates (3)
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)))