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
92
|
;;;
;;; readprint test script
;;;
;;; boolean
#t
#T
#f
#F
;;; identifier
apple
Apple
\apple
\1+
+
-
a.b
;;; number
1
-1
+1
+#b11
+#o11
+#xa1
#B11
#O11
#XA1
1.3
-1.3
1.3E2
-1.3E2
;;; character
#\a
#\A
#\tab
#\newline
#\linefeed
#\formfeed
#\return
#\space
#\SPAce
#\\
#\ ;;; A space follows the \
#\ ;;; A tab follows the \
;;; string
""
"This is a string"
"This is a string with \"embedded\" quote marks"
"This string covers
two lines"
;;; lists
()
(a)
(a . b)
(a b c d)
(a . (b . (c . (d . ()))))
((a b)(c d)(e f)(g h))
( a b c d e f g h i j k l m n o p q r s t u v w x y z a b c d e f g h i j k l
m n o p q r s t u v w x y z a b c d e f g h i j k l m n o p q r s t u v w x
y z a b c d e f g h i j k l)
;;; vector
#()
#(1)
#(1 2 3 4)
#(#(1 2) #(2 3) #(3 4))
#( a b c d e f g h i j k l m n o p q r s t u v w x y z a b c d e f g h i j k l
m n o p q r s t u v w x y z a b c d e f g h i j k l m n o p q r s t u v w x
y z a b c d e f g h i j k l)
;;; quote and quasiquote
'a
'(1 2 3)
,b
,@c
`(a b c)
`(a ,b ,@c)
|
