blob: 1b1bfd1eea0dbb08a9865ed5bdc70e718ecf83fa (
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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
(load "../common")
(mtest
[mapcar identity "A".."D"] ("A" "B" "C" "D")
[mapcar identity "A1".."C2"] ("A1" "A2" "B1" "B2" "C1" "C2")
[mapcar identity "D".."A"] ("D" "C" "B" "A")
[mapcar identity "C2".."A1"] ("C2" "C1" "B2" "B1" "A2" "A1"))
(test
[maprod append "AA".."DD" "01".."19"]
("AA01" "AA02" "AA03" "AA04" "AA05" "AA06" "AA07" "AA08" "AA09"
"AA11" "AA12" "AA13" "AA14" "AA15" "AA16" "AA17" "AA18" "AA19"
"AB01" "AB02" "AB03" "AB04" "AB05" "AB06" "AB07" "AB08" "AB09"
"AB11" "AB12" "AB13" "AB14" "AB15" "AB16" "AB17" "AB18" "AB19"
"AC01" "AC02" "AC03" "AC04" "AC05" "AC06" "AC07" "AC08" "AC09"
"AC11" "AC12" "AC13" "AC14" "AC15" "AC16" "AC17" "AC18" "AC19"
"AD01" "AD02" "AD03" "AD04" "AD05" "AD06" "AD07" "AD08" "AD09"
"AD11" "AD12" "AD13" "AD14" "AD15" "AD16" "AD17" "AD18" "AD19"
"BA01" "BA02" "BA03" "BA04" "BA05" "BA06" "BA07" "BA08" "BA09"
"BA11" "BA12" "BA13" "BA14" "BA15" "BA16" "BA17" "BA18" "BA19"
"BB01" "BB02" "BB03" "BB04" "BB05" "BB06" "BB07" "BB08" "BB09"
"BB11" "BB12" "BB13" "BB14" "BB15" "BB16" "BB17" "BB18" "BB19"
"BC01" "BC02" "BC03" "BC04" "BC05" "BC06" "BC07" "BC08" "BC09"
"BC11" "BC12" "BC13" "BC14" "BC15" "BC16" "BC17" "BC18" "BC19"
"BD01" "BD02" "BD03" "BD04" "BD05" "BD06" "BD07" "BD08" "BD09"
"BD11" "BD12" "BD13" "BD14" "BD15" "BD16" "BD17" "BD18" "BD19"
"CA01" "CA02" "CA03" "CA04" "CA05" "CA06" "CA07" "CA08" "CA09"
"CA11" "CA12" "CA13" "CA14" "CA15" "CA16" "CA17" "CA18" "CA19"
"CB01" "CB02" "CB03" "CB04" "CB05" "CB06" "CB07" "CB08" "CB09"
"CB11" "CB12" "CB13" "CB14" "CB15" "CB16" "CB17" "CB18" "CB19"
"CC01" "CC02" "CC03" "CC04" "CC05" "CC06" "CC07" "CC08" "CC09"
"CC11" "CC12" "CC13" "CC14" "CC15" "CC16" "CC17" "CC18" "CC19"
"CD01" "CD02" "CD03" "CD04" "CD05" "CD06" "CD07" "CD08" "CD09"
"CD11" "CD12" "CD13" "CD14" "CD15" "CD16" "CD17" "CD18" "CD19"
"DA01" "DA02" "DA03" "DA04" "DA05" "DA06" "DA07" "DA08" "DA09"
"DA11" "DA12" "DA13" "DA14" "DA15" "DA16" "DA17" "DA18" "DA19"
"DB01" "DB02" "DB03" "DB04" "DB05" "DB06" "DB07" "DB08" "DB09"
"DB11" "DB12" "DB13" "DB14" "DB15" "DB16" "DB17" "DB18" "DB19"
"DC01" "DC02" "DC03" "DC04" "DC05" "DC06" "DC07" "DC08" "DC09"
"DC11" "DC12" "DC13" "DC14" "DC15" "DC16" "DC17" "DC18" "DC19"
"DD01" "DD02" "DD03" "DD04" "DD05" "DD06" "DD07" "DD08" "DD09"
"DD11" "DD12" "DD13" "DD14" "DD15" "DD16" "DD17" "DD18" "DD19"))
(mtest
[maprod append "A".."F" (drop 1 "00".."15")]
("A01" "A02" "A03" "A04" "A05" "A10" "A11" "A12" "A13" "A14" "A15"
"B01" "B02" "B03" "B04" "B05" "B10" "B11" "B12" "B13" "B14" "B15"
"C01" "C02" "C03" "C04" "C05" "C10" "C11" "C12" "C13" "C14" "C15"
"D01" "D02" "D03" "D04" "D05" "D10" "D11" "D12" "D13" "D14" "D15"
"E01" "E02" "E03" "E04" "E05" "E10" "E11" "E12" "E13" "E14" "E15"
"F01" "F02" "F03" "F04" "F05" "F10" "F11" "F12" "F13" "F14" "F15")
[maprod append "A".."F" [1..11 "00".."99"]]
("A01" "A02" "A03" "A04" "A05" "A06" "A07" "A08" "A09" "A10" "B01"
"B02" "B03" "B04" "B05" "B06" "B07" "B08" "B09" "B10" "C01" "C02"
"C03" "C04" "C05" "C06" "C07" "C08" "C09" "C10" "D01" "D02" "D03"
"D04" "D05" "D06" "D07" "D08" "D09" "D10" "E01" "E02" "E03" "E04"
"E05" "E06" "E07" "E08" "E09" "E10" "F01" "F02" "F03" "F04" "F05"
"F06" "F07" "F08" "F09" "F10"))
(test
[mapcar identity [3..6 0..10]] (3 4 5))
(test (each ((x fixnum-max..(* 5 fixnum-max))) (return 42)) 42)
(test (progn (each ((x "A".."Z")) (sys:gc)) 42) 42)
(let ((big (* fixnum-max 8)))
(test (progn (each ((x big..(+ 10 big))) (sys:gc)) 42) 42))
(mtest
(list-seq 0..5) (0 1 2 3 4)
(list-seq 5..0) (4 3 2 1 0)
(list-seq 0..5.0) (0 1 2 3 4)
(list-seq 5..0.0) (4 3 2 1 0)
(list-seq 0.0..5.0) (0.0 1.0 2.0 3.0 4.0)
(list-seq 5.0..0.0) (4.0 3.0 2.0 1.0 0.0)
(list-seq 0.0..5) (0.0 1.0 2.0 3.0 4.0)
(list-seq 5.0..0) (4.0 3.0 2.0 1.0 0.0)
(list-seq 0.0..5.1) (0.0 1.0 2.0 3.0 4.0 5.0)
(list-seq 0.5..5) (0.5 1.5 2.5 3.5 4.5)
(list-seq (expt 2 256)..(ssucc (expt 2 256)))
(115792089237316195423570985008687907853269984665640564039457584007913129639936
115792089237316195423570985008687907853269984665640564039457584007913129639937)
(list-seq (expt 2 256)..(ppred (expt 2 256)))
(115792089237316195423570985008687907853269984665640564039457584007913129639935
115792089237316195423570985008687907853269984665640564039457584007913129639934)
(take 3 (list-seq (expt 2 256)..0))
(115792089237316195423570985008687907853269984665640564039457584007913129639935
115792089237316195423570985008687907853269984665640564039457584007913129639934
115792089237316195423570985008687907853269984665640564039457584007913129639933))
|