blob: 23971c9739c63abf3eb1db73262031360eb3ba60 (
plain)
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
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
|
(load "../common")
(test (append "abc" "d") "abcd")
(test (append "abc" #(#\d)) "abcd")
(test (append '(1 2 . "abc") #(#\d)) (1 2 . "abcd"))
(test (append 3 4) :error)
(test (append '(1) 2) (1 . 2))
(test (append '(1 . 2) 2) :error)
(test (append '(1 . #(3 4 5)) "d") (1 . #(3 4 5 #\d)))
(test (build (add 1) (add 2) (pend (get))) (1 2 1 2))
(test (build (add 1) (add 2) (pend* (get))) (1 2 1 2))
(test (build (add 1) (add 2) (pend (get) (get))) (1 2 1 2 1 2))
(test (build (add 1) (add 2) (pend* (get) (get))) (1 2 1 2 1 2))
(set *print-circle* t)
(stest (build (add 1) (add 2) (ncon (get))) "#1=(1 2 . #1#)")
(stest (build (add 1) (add 2) (ncon* (get))) "#1=(1 2 . #1#)")
(test (mapcar (lambda (. args) (list . args)) '#(1 2 3) '#(4 5 6))
#((1 4) (2 5) (3 6)))
(test [window-map 2 '(x x) list '(a b c d e f g)]
((x x a b c) (x a b c d) (a b c d e)
(b c d e f) (c d e f g) (d e f g nil)
(e f g nil nil)))
(test [window-map 2 '(x x y y) list '(a b c d e f g)]
((x x a b c) (x a b c d) (a b c d e)
(b c d e f) (c d e f g) (d e f g y)
(e f g y y)))
(test [window-map 2 nil list '(a b c d e f g)]
((nil nil a b c) (nil a b c d) (a b c d e)
(b c d e f) (c d e f g)
(d e f g nil) (e f g nil nil)))
(test [window-map 2 :wrap list '(a b c d e f g)]
((f g a b c) (g a b c d) (a b c d e) (b c d e f)
(c d e f g) (d e f g a) (e f g a b)))
(test [window-map 2 :reflect list '(a b c d e f g)]
((b a a b c) (a a b c d) (a b c d e) (b c d e f)
(c d e f g) (d e f g g) (e f g g f)))
(test [window-map 7 :wrap list '(a b c)]
((c a b c a b c a b c a b c a b)
(a b c a b c a b c a b c a b c)
(b c a b c a b c a b c a b c a)))
(test [window-map 7 :reflect list '(a b c)]
((a c b a c b a a b c c b a c b)
(c b a c b a a b c c b a c b a)
(b a c b a a b c c b a c b a c)))
(test [window-map 1 nil (lambda (x y z)
(if (and (eq x #\<)
(eq z #\>))
(chr-toupper y)
y))
"ab<c>de<f>g"]
"ab<C>de<F>g")
(test [window-mappend 1 :reflect (lambda (x y z)
(if (< x y z)
(list y)))
'(1 2 1 3 4 2 1 9 7 5 7 8 5)]
(3 7))
(test [window-map 2 #(0 0 0 0)
(lambda (. args) (/ (sum args) 5))
#(4 7 9 13 5 1 6 11 10 3 8)]
#(4.0 6.6 7.6 7.0 6.8 7.2 6.6 6.2 7.6 6.4 4.2))
(mtest
[reduce-left + () 0] 0
[reduce-left + ()] 0
[reduce-left cons ()] :error
[reduce-left cons '(1)] 1
[reduce-left cons #(1)] 1
[reduce-left cons #(1) : (op * 10)] 10
[reduce-left cons #(1) 2 (op * 10)] (2 . 10)
[reduce-left cons #(2 3) 10 (op * 10)] ((10 . 20) . 30))
(mtest
(starts-with "" "") t
(starts-with "" "a") t
(starts-with "a" "") nil
(starts-with "a" "a") t
(starts-with "" "abc") t
(starts-with "abc" "") nil
(starts-with "abc" "abc") t
(starts-with "ab" "abc") t
(starts-with "bc" "abc") nil
)
(mtest
(ends-with "" "") t
(ends-with "" "a") t
(ends-with "a" "") nil
(ends-with "a" "a") t
(ends-with "" "abc") t
(ends-with "abc" "") nil
(ends-with "abc" "abc") t
(ends-with "ab" "abc") nil
(ends-with "bc" "abc") t)
(mtest
(rmismatch #() #()) nil
(rmismatch #(1) #()) -1
(rmismatch #() #(1)) -1
(rmismatch #(1) #(1)) nil
(rmismatch #(1 2) #(1 2)) nil
(rmismatch #(2 2) #(1 2)) -2
(rmismatch #(1 2) #(2 2)) -2
(rmismatch #(3 2 1) #(1 1)) -2
(rmismatch #(1 1) #(3 2 1)) -2
(rmismatch #(3 2 1) #(2 1)) -3
(rmismatch #(2 1) #(3 2 1)) -3)
(mtest
(rmismatch '() '()) nil
(rmismatch '(1) '()) -1
(rmismatch '() '(1)) -1
(rmismatch '(1) '(1)) nil
(rmismatch '(1 2) '(1 2)) nil
(rmismatch '(2 2) '(1 2)) -2
(rmismatch '(1 2) '(2 2)) -2
(rmismatch '(3 2 1) '(1 1)) -2
(rmismatch '(1 1) '(3 2 1)) -2
(rmismatch '(3 2 1) '(2 1)) -3
(rmismatch '(2 1) '(3 2 1)) -3)
(mtest
(rmismatch '() #()) nil
(rmismatch '(1) #()) -1
(rmismatch '() #(1)) -1
(rmismatch '(1) #(1)) nil
(rmismatch '(1 2) #(1 2)) nil
(rmismatch '(2 2) #(1 2)) -2
(rmismatch '(1 2) #(2 2)) -2
(rmismatch '(3 2 1) #(1 1)) -2
(rmismatch '(1 1) #(3 2 1)) -2
(rmismatch '(3 2 1) #(2 1)) -3
(rmismatch '(2 1) #(3 2 1)) -3)
(mtest
(rmismatch #() '()) nil
(rmismatch #(1) '()) -1
(rmismatch #() '(1)) -1
(rmismatch #(1) '(1)) nil
(rmismatch #(1 2) '(1 2)) nil
(rmismatch #(2 2) '(1 2)) -2
(rmismatch #(1 2) '(2 2)) -2
(rmismatch #(3 2 1) '(1 1)) -2
(rmismatch #(1 1) '(3 2 1)) -2
(rmismatch #(3 2 1) '(2 1)) -3
(rmismatch #(2 1) '(3 2 1)) -3)
(mtest
(rmismatch "" "") nil
(rmismatch "1" "") -1
(rmismatch "" "1") -1
(rmismatch "1" "1") nil
(rmismatch "12" "12") nil
(rmismatch "22" "12") -2
(rmismatch "12" "22") -2
(rmismatch "321" "11") -2
(rmismatch "11" "321") -2
(rmismatch "321" "21") -3
(rmismatch "21" "321") -3)
|
