blob: 40ba851940d939f78684efb51b498436b34a2599 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(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))
|
