1 USING: unrolled-lists tools.test deques kernel sequences
2 random prettyprint grouping math ;
4 { 1 } [ <unrolled-list> 1 over push-front pop-front ] unit-test
5 { 1 } [ <unrolled-list> 1 over push-front pop-back ] unit-test
6 { 1 } [ <unrolled-list> 1 over push-back pop-front ] unit-test
7 { 1 } [ <unrolled-list> 1 over push-back pop-back ] unit-test
10 <unrolled-list> 1 over push-back 2 over push-back
11 [ pop-front ] [ pop-front ] bi
15 <unrolled-list> 1 over push-back 2 over push-back
16 [ pop-back ] [ pop-back ] bi
24 [ pop-front ] [ pop-front ] [ pop-front ] tri
32 [ pop-back ] [ pop-back ] [ pop-back ] tri
35 { { 0 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 } } [
37 32 [ over push-front ] each-integer
38 32 [ dup pop-back ] replicate
42 { { 0 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 } } [
44 32 [ over push-front ] each-integer
45 32 [ dup pop-front ] replicate reverse
51 1000 [ 1000 random ] replicate
52 [ [ over push-front ] each ]
53 [ length [ dup pop-back ] replicate ]
62 1000 [ 1000 random ] replicate
65 [ [ over push-front ] each ]
66 [ length [ dup pop-back ] replicate ]
74 { t } [ <unrolled-list> deque-empty? ] unit-test
110 dup pop-back 21 assert=
112 dup pop-back 22 assert=
114 dup pop-back 25 assert=
116 dup pop-back 26 assert=
118 dup pop-back 28 assert=
119 dup pop-back 29 assert=
120 dup pop-back 24 assert=
122 dup pop-back 23 assert=
124 dup pop-back 17 assert=
126 dup pop-back 27 assert=
127 dup pop-back 30 assert=