basis/splitting/monotonic/monotonic-tests.factor

   1 IN: splitting.monotonic
   2 USING: tools.test math arrays kernel sequences ;
   3
   4 [ { { 1 } { -1 5 } { 2 4 } } ]
   5 [ { 1 -1 5 2 4 } [ < ] monotonic-split [ >array ] map ] unit-test
   6 [ { { 1 1 1 1 } { 2 2 } { 3 } { 4 } { 5 } { 6 6 6 } } ]
   7 [ { 1 1 1 1 2 2 3 4 5 6 6 6 } [ = ] monotonic-split [ >array ] map ] unit-test
   8
   9 [ { } ]
  10 [ { } [ = ] slice monotonic-slice ] unit-test
  11
  12 [ t ]
  13 [ { 1 } [ = ] slice monotonic-slice [ slice? ] all? ] unit-test
  14
  15 [ { { 1 } } ]
  16 [ { 1 } [ = ] slice monotonic-slice [ >array ] map ] unit-test
  17
  18 [ { 1 } [ = ] slice monotonic-slice ] must-infer
  19
  20 [ t ]
  21 [ { 1 1 1 2 2 3 3 4 } [ = ] slice monotonic-slice [ slice? ] all? ] unit-test
  22
  23 [ { { 1 1 1 } { 2 2 } { 3 3 } { 4 } } ]
  24 [ { 1 1 1 2 2 3 3 4 } [ = ] slice monotonic-slice [ >array ] map ] unit-test
  25
  26 [ { { 3 3 } } ]
  27 [ { 3 3 } [ = ] slice monotonic-slice [ >array ] map ] unit-test
  28
  29 [
  30     {
  31         T{ upward-slice { from 0 } { to 3 } { seq { 1 2 3 2 1 } } }
  32         T{ downward-slice { from 2 } { to 5 } { seq { 1 2 3 2 1 } } }
  33     }
  34 ]
  35 [ { 1 2 3 2 1 } trends ] unit-test
  36
  37 [
  38     {
  39         T{ upward-slice
  40             { from 0 }
  41             { to 3 }
  42             { seq { 1 2 3 3 2 1 } }
  43         }
  44         T{ stable-slice
  45             { from 2 }
  46             { to 4 }
  47             { seq { 1 2 3 3 2 1 } }
  48         }
  49         T{ downward-slice
  50             { from 3 }
  51             { to 6 }
  52             { seq { 1 2 3 3 2 1 } }
  53         }
  54     }
  55 ] [ { 1 2 3 3 2 1 } trends ] unit-test