extra/sequences/extras/extras-tests.factor

   1 USING: arrays ascii kernel make math math.vectors random
   2 sequences sequences.extras strings tools.test ;
   3
   4 IN: sequences.extras.tests
   5
   6 [ 4 ] [ 5 iota [ ] supremum-by ] unit-test
   7 [ 0 ] [ 5 iota [ ] infimum-by ] unit-test
   8 { "bar" } [ { "bar" "baz" "qux" } [ length ] supremum-by ] unit-test
   9 { "bar" } [ { "bar" "baz" "qux" } [ length ] infimum-by ] unit-test
  10 [ { "foo" } ] [ { { "foo" } { "bar" } } [ first ] supremum-by ] unit-test
  11 [ { "bar" } ] [ { { "foo" } { "bar" } } [ first ] infimum-by ] unit-test
  12
  13 [ { 0 0 255 } ] [
  14     {
  15         { 0 0 0 }
  16         { 95 255 95 }
  17         { 215 95 95 }
  18         { 95 135 255 }
  19         { 135 95 135 }
  20         { 135 255 255 }
  21         { 0 0 255 }
  22         { 0 95 95 }
  23         { 0 255 215 }
  24         { 135 0 95 }
  25         { 255 0 175 }
  26     } [ { 0 0 255 } distance ] infimum-by
  27 ] unit-test
  28
  29 { V{ 0 1 2 3 4 5 6 7 8 9 } } [
  30     V{ } clone
  31     10 iota >array randomize
  32     [ swap insert-sorted ] each
  33 ] unit-test
  34
  35 [ { "a" "b" "c" "d" "ab" "bc" "cd" "abc" "bcd" "abcd" } ] [ "abcd" all-subseqs ] unit-test
  36
  37 [ { "a" "ab" "abc" "abcd" "b" "bc" "bcd" "c" "cd" "d" } ]
  38 [ [ "abcd" [ , ] each-subseq ] { } make ] unit-test
  39
  40 [ "" ] [ "abc" "def" longest-subseq ] unit-test
  41 [ "abcd" ] [ "abcd" "abcde" longest-subseq ] unit-test
  42 [ "foo" ] [ "foo" "foobar" longest-subseq ] unit-test
  43 [ "foo" ] [ "foobar" "foo" longest-subseq ] unit-test
  44
  45 [ "" "" ] [ "" "" CHAR: ? pad-longest ] unit-test
  46 [ "abc" "def" ] [ "abc" "def" CHAR: ? pad-longest ] unit-test
  47 [ "   " "abc" ] [ "" "abc" CHAR: \s pad-longest ] unit-test
  48 [ "abc" "   " ] [ "abc" "" CHAR: \s pad-longest ] unit-test
  49 [ "abc..." "foobar" ] [ "abc" "foobar" CHAR: . pad-longest ] unit-test
  50
  51 [ { 0 1 0 1 } ] [
  52     { 0 0 0 0 } { 1 3 } over [ 1 + ] change-nths
  53 ] unit-test
  54
  55 [ { 1 3 5 } ] [ { 1 2 3 4 5 6 } [ nip even? ] filter-index ] unit-test
  56
  57 [ V{ 1 3 5 } ] [ { 1 2 3 4 5 6 } [ nip even? ] V{ } filter-index-as ] unit-test
  58
  59 [ { 1 3 5 } ] [ { 1 2 3 4 5 6 } even-indices ] unit-test
  60
  61 [ { 2 4 6 } ] [ { 1 2 3 4 5 6 } odd-indices ] unit-test
  62
  63 { "a b c d e" }
  64 [ "a      b  \t \n \r  c   d \n    e   " [ blank? ] " " compact ] unit-test
  65
  66 { " a b c d e " }
  67 [ " a      b  c   d    e   " [ blank? ] " " collapse ] unit-test
  68
  69 { { "hello," " " "world!" " " " " } }
  70 [ "hello, world!  " [ blank? ] slice-when [ >string ] map ] unit-test
  71
  72 { "hello" } [ "hello" 0 rotate ] unit-test
  73 { "llohe" } [ "hello" 2 rotate ] unit-test
  74 { "hello" } [ "hello" dup 0 rotate! ] unit-test
  75 { "lohel" } [ "hello" dup 3 rotate! ] unit-test
  76
  77 { { } } [ { } [ ] map-concat ] unit-test
  78 { V{ 0 0 1 0 1 2 } } [ 4 iota [ iota ] map-concat ] unit-test
  79 { "abc" } [ "abc" [ 1string ] map-concat ] unit-test
  80 { "abc" } [ { 97 98 99 } [ 1string ] map-concat ] unit-test
  81 { { 97 98 99 } } [ "abc" [ 1string ] { } map-concat-as ] unit-test
  82
  83 { { } } [ { } [ ] [ even? ] map-filter ] unit-test
  84 { "bcde" } [ "abcd" [ 1 + ] [ drop t ] map-filter ] unit-test
  85 { { 0 4 16 36 64 } } [ 10 iota [ sq ] [ even? ] { } map-filter-as ] unit-test
  86
  87 { V{ 0 4 16 36 64 } } [ 10 iota [ even? ] [ sq ] filter-map ] unit-test
  88 { { 2 6 10 14 18 } } [ 10 iota [ odd? ] [ 2 * ] { } filter-map-as ] unit-test
  89
  90 { 8 } [ 3 iota dup [ 1 + * ] 2map-sum ] unit-test
  91 { 4 } [ "hello" "jello" [ = ] 2count ] unit-test
  92
  93 { { } } [ { } round-robin ] unit-test
  94 { "ADEBFC" } [ { "ABC" "D" "EF" } round-robin >string ] unit-test
  95
  96 { { } } [ "ABC" [ ] { } trim-as ] unit-test
  97 { "ABC" } [ { 32 65 66 67 32 } [ blank? ] "" trim-as ] unit-test
  98
  99 { t } [ "ABC" dup [ blank? ] ?trim [ identity-hashcode ] same? ] unit-test
 100 { "ABC" } [ " ABC " [ blank? ] ?trim ] unit-test
 101
 102 { "" } [ "" "" "" unsurround ] unit-test
 103 { "" } [ "  " " " " " unsurround ] unit-test
 104 { "foo.com" } [ "http://foo.com" "http://" "/" unsurround ] unit-test
 105
 106 { t } [ { 1 3 5 7 } [ even? ] none? ] unit-test
 107 { f } [ { 1 2 3 4 } [ even? ] none? ] unit-test
 108 { t } [ { } [ even? ] none? ] unit-test
 109
 110 { f } [ { 1 2 3 4 } [ even? ] one? ] unit-test
 111 { t } [ { 1 2 3 } [ even? ] one? ] unit-test
 112 { f } [ { } [ even? ] one? ] unit-test
 113
 114 { { { 5 8 0 } { 6 9 1 } { 7 10 2 } } } [ { 5 6 7 } { 8 9 10 } [ 3array ] 2map-index ] unit-test
 115
 116 { { } } [ { } <evens> >array ] unit-test
 117 { { 0 2 } } [ 4 iota <evens> >array ] unit-test
 118 { { 0 2 4 } } [ 5 iota <evens> >array ] unit-test
 119
 120 { { } } [ { } <odds> >array ] unit-test
 121 { { 1 3 } } [ 5 iota <odds> >array ] unit-test
 122 { { 1 3 5 } } [ 6 iota <odds> >array ] unit-test
 123
 124 { 1 } [ { 1 7 3 7 6 3 7 } arg-max ] unit-test
 125 { 0 } [ { 1 7 3 7 6 3 7 } arg-min ] unit-test