1 USING: math math.ranges sequences sets tools.test arrays ;
4 [ { } ] [ 1 1 (a,b) >array ] unit-test
5 [ { } ] [ 1 1 (a,b] >array ] unit-test
6 [ { } ] [ 1 1 [a,b) >array ] unit-test
7 [ { 1 } ] [ 1 1 [a,b] >array ] unit-test
9 [ { } ] [ 1 2 (a,b) >array ] unit-test
10 [ { 2 } ] [ 1 2 (a,b] >array ] unit-test
11 [ { 1 } ] [ 1 2 [a,b) >array ] unit-test
12 [ { 1 2 } ] [ 1 2 [a,b] >array ] unit-test
14 [ { } ] [ 2 1 (a,b) >array ] unit-test
15 [ { 1 } ] [ 2 1 (a,b] >array ] unit-test
16 [ { 2 } ] [ 2 1 [a,b) >array ] unit-test
17 [ { 2 1 } ] [ 2 1 [a,b] >array ] unit-test
19 [ { 1 2 3 4 5 } ] [ 1 5 1 <range> >array ] unit-test
20 [ { 5 4 3 2 1 } ] [ 5 1 -1 <range> >array ] unit-test
22 [ { 0 1/3 2/3 1 } ] [ 0 1 1/3 <range> >array ] unit-test
23 [ { 0 1/3 2/3 1 } ] [ 1 0 -1/3 <range> >array reverse ] unit-test
25 [ t ] [ 5 [0,b] range-increasing? ] unit-test
26 [ f ] [ 5 [0,b] range-decreasing? ] unit-test
27 [ f ] [ -5 [0,b] range-increasing? ] unit-test
28 [ t ] [ -5 [0,b] range-decreasing? ] unit-test
29 [ 0 ] [ 5 [0,b] range-min ] unit-test
30 [ 5 ] [ 5 [0,b] range-max ] unit-test
31 [ 3 ] [ 3 5 [0,b] clamp-to-range ] unit-test
32 [ 0 ] [ -1 5 [0,b] clamp-to-range ] unit-test
33 [ 5 ] [ 6 5 [0,b] clamp-to-range ] unit-test
34 [ { 0 1 2 3 4 } ] [ 5 sequence-index-range >array ] unit-test
37 1 100 [a,b] [ 2^ [1,b] ] map prune length