37 |
(sort a #'<)) |
(sort a #'<)) |
38 |
#(1 2 3 4 5)) |
#(1 2 3 4 5)) |
39 |
|
|
40 |
|
(deftest sort-vector.4 |
41 |
|
(let ((a (make-array 10 :initial-contents '(10 40 20 50 30 15 45 25 55 35) |
42 |
|
:fill-pointer 5))) |
43 |
|
(sort a #'<)) |
44 |
|
#(10 20 30 40 50)) |
45 |
|
|
46 |
(deftest sort-bit-vector.1 |
(deftest sort-bit-vector.1 |
47 |
(let ((a (copy-seq #*10011101))) |
(let ((a (copy-seq #*10011101))) |
48 |
(sort a #'<)) |
(sort a #'<)) |
54 |
#*11111000 |
#*11111000 |
55 |
#*11111000) |
#*11111000) |
56 |
|
|
57 |
|
(deftest sort-bit-vector.3 |
58 |
|
(let ((a (make-array 10 :initial-contents '(1 0 0 1 1 1 1 0 1 1) |
59 |
|
:element-type 'bit |
60 |
|
:fill-pointer 5))) |
61 |
|
(sort a #'<)) |
62 |
|
#*00111) |
63 |
|
|
64 |
(deftest sort-string.1 |
(deftest sort-string.1 |
65 |
(let ((a (copy-seq "10011101"))) |
(let ((a (copy-seq "10011101"))) |
66 |
(values (sort a #'char<) a)) |
(values (sort a #'char<) a)) |
73 |
"11111000" |
"11111000" |
74 |
"11111000") |
"11111000") |
75 |
|
|
76 |
|
(deftest sort-string.3 |
77 |
|
(let ((a (make-array 10 :initial-contents (coerce "1001111011" 'list) |
78 |
|
:element-type 'character |
79 |
|
:fill-pointer 5))) |
80 |
|
(sort a #'char<)) |
81 |
|
"00111") |
82 |
|
|
83 |
|
|
84 |
|
|
85 |
|
|
86 |
|
|