extra/sequences/lib/lib-tests.factor

   1 USING: kernel sequences.lib ;
   2
   3 [ 4 ] [ { 1 2 } [ sq ] [ * ] map-reduce ] unit-test
   4 [ 36 ] [ { 2 3 } [ sq ] [ * ] map-reduce ] unit-test
   5
   6 [ 10 ] [ { 1 2 3 4 } [ + ] reduce* ] unit-test
   7 [ 24 ] [ { 1 2 3 4 } [ * ] reduce* ] unit-test
   8
   9 [ -4 ] [ 1 -4 [ abs ] higher ] unit-test
  10 [ 1 ] [ 1 -4 [ abs ] lower ] unit-test
  11
  12 [ { 1 2 3 4 } ] [ { { 1 2 3 4 } { 1 2 3 } } longest ] unit-test
  13 [ { 1 2 3 4 } ] [ { { 1 2 3 } { 1 2 3 4 } } longest ] unit-test
  14
  15 [ { 1 2 3 } ] [ { { 1 2 3 4 } { 1 2 3 } } shortest ] unit-test
  16 [ { 1 2 3 } ] [ { { 1 2 3 } { 1 2 3 4 } } shortest ] unit-test
  17
  18 [ 3 ] [ 1 3 bigger ] unit-test
  19 [ 1 ] [ 1 3 smaller ] unit-test
  20
  21 [ "abd" ] [ "abc" "abd" bigger ] unit-test
  22 [ "abc" ] [ "abc" "abd" smaller ] unit-test
  23
  24 [ "abe" ] [ { "abc" "abd" "abe" } biggest ] unit-test
  25 [ "abc" ] [ { "abc" "abd" "abe" } smallest ] unit-test
  26
  27 [ 1 3 ] [ { 1 2 3 } minmax ] unit-test
  28 [ -11 -9 ] [ { -11 -10 -9 } minmax ] unit-test
  29 [ -1/0. 1/0. ] [ { -1/0. 1/0. -11 -10 -9 } minmax ] unit-test
  30