blob: 18f5c198f8ca24514a652f563b998d239b7bd95a (
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
|
@(do
(defvar *h* (hash :equal-based))
(defvar *s* "abcd")
(defvar *v* #(1 2 3 4 5 6 7 8))
(defvar *v2* #((1 . #\a) (2 . #\b) (3 . #\c) (4 . #\d)
(5 . #\e) (6 . #\f) (7 . #\h) (8 . #\g)))
(defun caught (x) (format t "exception!\n"))
(defun pr (x) (format t "~s\n" x))
(defun pr2 (x y) (format t "~s ~s\n" x y))
(pr (set [*h* "a"] 42))
(pr [*h* "a"])
(pr (del [*h* "a"]))
(pr (del [*h* "a"]))
(format t "~s ~s\n" (del [*s* 1]) *s*)
(format t "~s ~s\n" (del [*s* -1]) *s*)
(catch (pr (del [*s* 3]) *s*) (t (x) (caught x)))
(pr [nsort *v* >])
(pr [nsort *v2* > cdr])
(pr [nsort (range 1 100) >])
(pr2 (del [*v2* 1..3]) *v2*)
(let ((s (copy "abcdefg")))
(pr (del [s '(1 3 5)]))
(pr s))
(let ((s (copy "abcdefg")))
(pr (del [s '(6)]))
(pr s))
(let ((s (copy "abcdefg")))
(pr (del [s '(0 1 2 3 4 5 6)]))
(pr s))
(let ((s (copy "abcdefg")))
(pr (del [s '(-7 -6 -5 -4 -3 -2 -1)]))
(pr s))
(let ((s (copy "abcdefg")))
(pr (del [s '(-7 -5 -3 -1)]))
(pr s))
(let ((s (list 0 1 2 3 4 5 6)))
(pr (del [s '(1 3 5)]))
(pr s))
(let ((s (list 0 1 2 3 4 5 6)))
(pr (del [s '(0 1 2 3 4 5 6)]))
(pr s))
(let ((s (list 0 1 2 3 4 5 6)))
(pr (del [s '(-7 -6 -5 -4 -3 -2 -1)]))
(pr s))
(let ((s (list 0 1 2 3 4 5 6)))
(pr (del [s '(-7 -5 -3 -1)]))
(pr s))
(let ((s (vec 0 1 2 3 4 5 6)))
(pr (del [s '(1 3 5)]))
(pr s))
(let ((s (vec 0 1 2 3 4 5 6)))
(pr (del [s '(0 1 2 3 4 5 6)]))
(pr s))
(let ((s (vec 0 1 2 3 4 5 6)))
(pr (del [s '(-7 -6 -5 -4 -3 -2 -1)]))
(pr s))
(let ((s (vec 0 1 2 3 4 5 6)))
(pr (del [s '(-7 -5 -3 -1)]))
(pr s))
(let ((s (copy #b'aabbccddeeff99')))
(pr (del [s '(1 3 5)]))
(pr s))
(let ((s (copy #b'aabbccddeeff99')))
(pr (del [s '(6)]))
(pr s))
(let ((s (copy #b'aabbccddeeff99')))
(pr (del [s '(0 1 2 3 4 5 6)]))
(pr s))
(let ((s (copy #b'aabbccddeeff99')))
(pr (del [s '(-7 -6 -5 -4 -3 -2 -1)]))
(pr s))
(let ((s (copy #b'aabbccddeeff99')))
(pr (del [s '(-7 -5 -3 -1)]))
(pr s))
)
|
