blob: 1fcc0c2d1941200c07aaf0ac27dc6c6cc28e148c (
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
|
(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)))
(mvtest
(sort list) list
(sort slist) list
(sort list (fun greater)) (reverse list)
(sort slist (fun greater)) (reverse list)))
(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)))
(mvtest
(ssort list) list
(ssort slist) list
(ssort list (fun greater)) (reverse list)
(ssort slist (fun greater)) (reverse list)))
|