extra/sequences/extras/extras-tests.factor

   1 USING: accessors arrays ascii io io.streams.string kernel make
   2 math math.vectors random sequences sequences.extras strings
   3 tools.test vectors vocabs ;
   4 IN: sequences.extras.tests
   5
   6 { V{ { 0 104 } { 2 108 } { 3 108 } } } [ "hello" [ even? ] find-all ] unit-test
   7
   8 { { "a" "b" "c" "d" "ab" "bc" "cd" "abc" "bcd" "abcd" } } [ "abcd" all-subseqs ] unit-test
   9
  10 { { "a" "ab" "abc" "abcd" "b" "bc" "bcd" "c" "cd" "d" } }
  11 [ [ "abcd" [ , ] each-subseq ] { } make ] unit-test
  12
  13 { B{ 115 } } [ 1 2 "asdf" B{ } subseq-as ] unit-test
  14
  15 { "" } [ "abc" "def" longest-subseq ] unit-test
  16 { "abcd" } [ "abcd" "abcde" longest-subseq ] unit-test
  17 { "foo" } [ "foo" "foobar" longest-subseq ] unit-test
  18 { "foo" } [ "foobar" "foo" longest-subseq ] unit-test
  19
  20 { "" "" } [ "" "" CHAR: ? pad-longest ] unit-test
  21 { "abc" "def" } [ "abc" "def" CHAR: ? pad-longest ] unit-test
  22 { "   " "abc" } [ "" "abc" CHAR: \s pad-longest ] unit-test
  23 { "abc" "   " } [ "abc" "" CHAR: \s pad-longest ] unit-test
  24 { "abc..." "foobar" } [ "abc" "foobar" CHAR: . pad-longest ] unit-test
  25
  26 {
  27     {
  28         "ABC"
  29         "ABC"
  30         "ABC"
  31         "ABC"
  32         "ABC-"
  33         "-ABC-"
  34         "-ABC--"
  35         "--ABC--"
  36     }
  37 } [
  38     "ABC" 8 <iota> [ CHAR: - pad-center ] with map
  39 ] unit-test
  40
  41 { { 0 1 0 1 } } [
  42     { 0 0 0 0 } { 1 3 } over [ 1 + ] change-nths
  43 ] unit-test
  44
  45 { V{ f t f } } [
  46     { 1 2 3 } [ even? ] selector* [ each ] dip
  47 ] unit-test
  48
  49 { { 1 3 5 } } [ { 1 2 3 4 5 6 } [ nip even? ] filter-index ] unit-test
  50
  51 { V{ 1 3 5 } } [ { 1 2 3 4 5 6 } [ nip even? ] V{ } filter-index-as ] unit-test
  52
  53 { { 1 3 5 } } [ { 1 2 3 4 5 6 } even-indices ] unit-test
  54
  55 { { 2 4 6 } } [ { 1 2 3 4 5 6 } odd-indices ] unit-test
  56
  57 { "a b c d e" }
  58 [ "a      b  \t \n \r  c   d \n    e   " [ blank? ] " " compact ] unit-test
  59
  60 { " a b c d e " }
  61 [ " a      b  c   d    e   " [ blank? ] " " collapse ] unit-test
  62
  63 { { "hello," " " "world!" " " " " } }
  64 [ "hello, world!  " [ blank? ] slice-when [ >string ] map ] unit-test
  65
  66 { t }
  67 [ "abc" sequence>slice slice? ] unit-test
  68
  69 { "abc" }
  70 [ "abc" sequence>slice >string ] unit-test
  71
  72 { t } [ "abcdef" [ 0 3 rot <slice> ] [ 2 4 rot <slice> ] bi slices-overlap? ] unit-test
  73 { t } [ "abcdef" [ 0 3 rot <slice> ] [ 1 2 rot <slice> ] bi slices-overlap? ] unit-test
  74 { f } [ "abcdef" [ 0 3 rot <slice> ] [ 3 6 rot <slice> ] bi slices-overlap? ] unit-test
  75 { t } [ "abcdef" [ 0 3 rot <slice> ] [ 2 4 rot <slice> ] bi slices-touch? ] unit-test
  76 { t } [ "abcdef" [ 0 3 rot <slice> ] [ 1 2 rot <slice> ] bi slices-touch? ] unit-test
  77 { t } [ "abcdef" [ 0 3 rot <slice> ] [ 3 6 rot <slice> ] bi slices-touch? ] unit-test
  78 { f } [ "abcdef" [ 0 3 rot <slice> ] [ 4 6 rot <slice> ] bi slices-touch? ] unit-test
  79
  80 { "abcdef" } [
  81     "abcdef" [ 0 3 rot <slice> ] [ 3 6 rot <slice> ] bi merge-slices >string
  82 ] unit-test
  83
  84 { "abcdef" } [
  85     "abcdef" [ 3 6 rot <slice> ] [ 0 3 rot <slice> ] bi merge-slices >string
  86 ] unit-test
  87
  88 { "abc" } [
  89     "abcdef" [ 0 3 rot <slice> ] [ 0 3 rot <slice> ] bi merge-slices >string
  90 ] unit-test
  91
  92
  93 { "hello" "hello" } [ "hello" dup 0 rotate ] unit-test
  94 { "hello" "llohe" } [ "hello" dup 2 rotate ] unit-test
  95 { "hello" "lohel" } [ "hello" dup 13 rotate ] unit-test
  96 { "hello" "ohell" } [ "hello" dup -1 rotate ] unit-test
  97 { "hello" "lohel" } [ "hello" dup -12 rotate ] unit-test
  98
  99 { "hello" } [ "hello" dup 0 rotate! ] unit-test
 100 { "llohe" } [ "hello" dup 2 rotate! ] unit-test
 101 { "lohel" } [ "hello" dup 13 rotate! ] unit-test
 102 { "ohell" } [ "hello" dup -1 rotate! ] unit-test
 103 { "lohel" } [ "hello" dup -12 rotate! ] unit-test
 104
 105 { { } } [ { } [ ] map-concat ] unit-test
 106 { V{ 0 0 1 0 1 2 } } [ 4 <iota> [ iota ] map-concat ] unit-test
 107 { "abc" } [ "abc" [ 1string ] map-concat ] unit-test
 108 { "abc" } [ { 97 98 99 } [ 1string ] map-concat ] unit-test
 109 { { 97 98 99 } } [ "abc" [ 1string ] { } map-concat-as ] unit-test
 110 { "baz" { "foobaz" "barbaz" } }
 111 [ "baz" { { "foo" } { "bar" } } [ [ over append ] map ] map-concat ] unit-test
 112
 113 { { } } [ { } [ ] [ even? ] map-filter ] unit-test
 114 { "bcde" } [ "abcd" [ 1 + ] [ drop t ] map-filter ] unit-test
 115 { { 0 4 16 36 64 } } [ 10 <iota> [ sq ] [ even? ] { } map-filter-as ] unit-test
 116
 117 { V{ 0 4 16 36 64 } } [ 10 <iota> [ even? ] [ sq ] filter-map ] unit-test
 118 { { 2 6 10 14 18 } } [ 10 <iota> [ odd? ] [ 2 * ] { } filter-map-as ] unit-test
 119
 120 { 8 } [ 3 <iota> dup [ 1 + * ] 2map-sum ] unit-test
 121 { 4 } [ "hello" "jello" [ = ] 2count ] unit-test
 122
 123 { { } } [ { } round-robin ] unit-test
 124 { "ADEBFC" } [ { "ABC" "D" "EF" } round-robin >string ] unit-test
 125
 126 { { } } [ "ABC" [ ] { } trim-as ] unit-test
 127 { "ABC" } [ { 32 65 66 67 32 } [ blank? ] "" trim-as ] unit-test
 128
 129 { t } [ "ABC" dup [ blank? ] ?trim [ identity-hashcode ] same? ] unit-test
 130 { "ABC" } [ " ABC " [ blank? ] ?trim ] unit-test
 131
 132 { t } [ "ABC" dup [ blank? ] ?trim-head [ identity-hashcode ] same? ] unit-test
 133 { t } [ "ABC" dup [ blank? ] ?trim-tail [ identity-hashcode ] same? ] unit-test
 134 { "ABC " } [ " ABC " [ blank? ] ?trim-head ] unit-test
 135 { " ABC" } [ " ABC " [ blank? ] ?trim-tail ] unit-test
 136
 137 { "" } [ "" "" "" unsurround ] unit-test
 138 { "" } [ "  " " " " " unsurround ] unit-test
 139 { "foo.com" } [ "http://foo.com" "http://" "/" unsurround ] unit-test
 140
 141 { t } [ { 1 3 5 7 } [ even? ] none? ] unit-test
 142 { f } [ { 1 2 3 4 } [ even? ] none? ] unit-test
 143 { t } [ { } [ even? ] none? ] unit-test
 144
 145 { f } [ { 1 2 3 4 } [ even? ] one? ] unit-test
 146 { t } [ { 1 2 3 } [ even? ] one? ] unit-test
 147 { f } [ { } [ even? ] one? ] unit-test
 148
 149 { { { 5 8 0 } { 6 9 1 } { 7 10 2 } } } [ { 5 6 7 } { 8 9 10 } [ 3array ] 2map-index ] unit-test
 150
 151 { { } } [ { } <evens> >array ] unit-test
 152 { { 0 2 } } [ 4 <iota> <evens> >array ] unit-test
 153 { { 0 2 4 } } [ 5 <iota> <evens> >array ] unit-test
 154
 155 { { } } [ { } <odds> >array ] unit-test
 156 { { 1 3 } } [ 5 <iota> <odds> >array ] unit-test
 157 { { 1 3 5 } } [ 6 <iota> <odds> >array ] unit-test
 158
 159 { 1 } [ { 1 7 3 7 6 3 7 } arg-max ] unit-test
 160 { 0 } [ { 1 7 3 7 6 3 7 } arg-min ] unit-test
 161 { V{ 0 4 } } [ { 5 3 2 10 5 } [ 5 = ] arg-where ] unit-test
 162 { { 2 1 0 4 3 } } [ { 5 3 2 10 5 } arg-sort ] unit-test
 163
 164 { t } [ { 1 2 3 4 5 } 1 first= ] unit-test
 165 { t } [ { 1 2 3 4 5 } 2 second= ] unit-test
 166 { t } [ { 1 2 3 4 5 } 3 third= ] unit-test
 167 { t } [ { 1 2 3 4 5 } 4 fourth= ] unit-test
 168 { t } [ { 1 2 3 4 5 } 5 last= ] unit-test
 169 { t } [ 4 { 1 2 3 4 5 } 5 nth= ] unit-test
 170
 171 { t } [ { 1 2 3 4 5 } [ 1 = ] first? ] unit-test
 172 { t } [ { 1 2 3 4 5 } [ 2 = ] second? ] unit-test
 173 { t } [ { 1 2 3 4 5 } [ 3 = ] third? ] unit-test
 174 { t } [ { 1 2 3 4 5 } [ 4 = ] fourth? ] unit-test
 175 { t } [ { 1 2 3 4 5 } [ 5 = ] last? ] unit-test
 176 { t } [ 4 { 1 2 3 4 5 } [ 5 = ] nth? ] unit-test
 177
 178 { { 97 115 100 102 } } [
 179     "asdf" [ [ read1 ] loop>array ] with-string-reader
 180 ] unit-test
 181
 182 { V{ 97 115 100 102 } } [
 183     "asdf" [ [ read1 ] V{ } loop>sequence ] with-string-reader
 184 ] unit-test
 185
 186 { "" } [ { } "" reverse-as ] unit-test
 187 { "ABC" } [ { 67 66 65 } "" reverse-as ] unit-test
 188
 189 { V{ 1 } } [ 1 0 V{ } [ insert-nth! ] keep ] unit-test
 190 { V{ 1 2 3 4 } } [ 2 1 V{ 1 3 4 } [ insert-nth! ] keep ] unit-test
 191
 192 { "abc" } [ B{ 97 98 99 100 101 102 103 } 3 "" head-as ] unit-test
 193 { "abcd" } [ B{ 97 98 99 100 101 102 103 } 3 "" head*-as ] unit-test
 194 { "defg" } [ B{ 97 98 99 100 101 102 103 } 3 "" tail-as ] unit-test
 195 { "efg" } [ B{ 97 98 99 100 101 102 103 } 3 "" tail*-as ] unit-test
 196
 197 { { 1 0 0 1 0 0 0 1 0 0 } }
 198 [ 1 { 0 3 7 } 10 0 <array> [ set-nths ] keep ] unit-test
 199
 200 { { 1 0 0 1 0 0 0 1 0 0 } }
 201 [ 1 { 0 3 7 } 10 0 <array> [ set-nths-unsafe ] keep ] unit-test
 202
 203 { V{ 1 } } [ 1 flatten1 ] unit-test
 204 { { 1 2 3 } } [ { 1 2 3 } flatten1 ] unit-test
 205 { { 1 2 3 { { 4 } } } } [ { 1 { 2 } { 3 { { 4 } } } } flatten1 ] unit-test
 206
 207 { t 3 3 } [ 10 <iota> [ [ odd? ] [ 1 > ] bi* and ] map-find-index ] unit-test
 208 { f f f } [ 10 <iota> [ [ odd? ] [ 9 > ] bi* and ] map-find-index ] unit-test
 209
 210 { "abcdef" } [ f f "abcdef" subseq* ] unit-test
 211 { "abcdef" } [ 0 f "abcdef" subseq* ] unit-test
 212 { "ab" } [ f 2 "abcdef" subseq* ] unit-test
 213 { "cdef" } [ 2 f "abcdef" subseq* ] unit-test
 214 { "cd" } [ -4 -2 "abcdef" subseq* ] unit-test
 215
 216 { "foo" "" } [ "foo" [ blank? ] cut-when ] unit-test
 217 { "foo" " " } [ "foo " [ blank? ] cut-when ] unit-test
 218 { "" " foo" } [ " foo" [ blank? ] cut-when ] unit-test
 219 { "foo" " bar" } [ "foo bar" [ blank? ] cut-when ] unit-test
 220
 221 { { 4 0 3 1 2 } } [ { 0 4 1 3 2 } 5 <iota> [ nth* ] curry map ] unit-test
 222
 223 { 1 "beef" } [ { "chicken" "beef" "moose" } [ length ] infimum-by* ] unit-test
 224 { 0 "chicken" } [ { "chicken" "beef" "moose" } [ length ] supremum-by* ] unit-test
 225 { 2 "moose" } [ { "chicken" "beef" "moose" } [ first ] supremum-by* ] unit-test
 226
 227 { 3/10 } [ 10 <iota> [ 3 < ] count* ] unit-test
 228
 229 { { 0 } } [ "ABA" "ABABA" start-all ] unit-test
 230 { { 0 2 } } [ "ABA" "ABABA" start-all* ] unit-test
 231 { { 0 3 } } [ "ABA" "ABAABA" start-all ] unit-test
 232 { 1 } [ "ABA" "ABABA" count-subseq ] unit-test
 233 { 2 } [ "ABA" "ABABA" count-subseq* ] unit-test
 234
 235 { 120000 } [ { 10 20 30 40 50 60 } 1 [ * ] 3 reduce-from ] unit-test
 236
 237 {
 238     {
 239         { 2 4 }
 240         { 3 6 }
 241         { 4 8 }
 242     }
 243 } [ { 2 3 4 } [ 2 * ] map-zip ] unit-test
 244
 245 { }
 246 [ "test:" all-words [ name>> over prepend ] map-zip 2drop ] unit-test
 247
 248 { { 0 1 2 3 } } [ 8 <iota> [ 4 < ] take-while >array ] unit-test
 249 { { } } [ { 15 16 } [ 4 < ] take-while >array ] unit-test
 250 { { 0 1 2 } } [ 3 <iota> [ 4 < ] take-while >array ] unit-test
 251
 252 { { 4 5 6 7 } } [ 8 <iota> [ 4 < ] drop-while >array ] unit-test
 253 { { 15 16 } } [ { 15 16 } [ 4 < ] drop-while >array ] unit-test
 254 { { } } [ 3 <iota> [ 4 < ] drop-while >array ] unit-test