blob: 241b0c45c9768874c85f7359f541fd7f9b1eab74 (
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
|
(load "../common")
(test (sort ()) nil)
(let* ((list (conses '(1 2 3 4 5 6 7 8)))
(sp (uniq [mapcar sort (perm list (len list))])))
(mvtest (len sp) 1
(car sp) list))
(test (sort #()) #())
(let* ((vec (conses #(1 2 3 4 5 6 7 8)))
(sp (uniq [mapcar sort (perm vec (len vec))])))
(mvtest (len sp) 1
(car sp) vec))
(let* ((list (range* 0 1000))
(slist (shuffle list))
(vec (vec-list list))
(svec (vec-list slist)))
(mvtest
(sort list) list
(sort slist) list
(sort list (fun greater)) (reverse list)
(sort slist (fun greater)) (reverse list))
(mvtest
(sort vec) vec
(sort svec) vec
(sort vec (fun greater)) (reverse vec)
(sort svec (fun greater)) (reverse vec)))
(test (ssort ()) nil)
(let* ((list (conses '(1 2 3 4 5 6 7 8)))
(sp (uniq [mapcar ssort (perm list (len list))])))
(mvtest (len sp) 1
(car sp) list))
(test (ssort #()) #())
(let* ((vec (conses #(1 2 3 4 5 6 7 8)))
(sp (uniq [mapcar ssort (perm vec (len vec))])))
(mvtest (len sp) 1
(car sp) vec))
(let* ((list (range* 0 1000))
(slist (shuffle list))
(vec (vec-list list))
(svec (vec-list slist)))
(mvtest
(ssort list) list
(ssort slist) list
(ssort list (fun greater)) (reverse list)
(ssort slist (fun greater)) (reverse list))
(mvtest
(ssort vec) vec
(ssort svec) vec
(ssort vec (fun greater)) (reverse vec)
(ssort svec (fun greater)) (reverse vec)))
|
