basis/sequences/windowed/windowed-tests.factor

   1 ! Copyright (C) 2012 Doug Coleman.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: arrays sequences sequences.windowed tools.test ;
   4
   5 { { { 1 } { 1 2 } { 1 2 3 } { 2 3 4 } { 3 4 5 } { 4 5 6 } } }
   6 [ { 1 2 3 4 5 6 } 3 <windowed-sequence> [ >array ] map ] unit-test
   7
   8 { { { 1 } { 1 2 } { 1 2 3 } { 2 3 4 } { 3 4 5 } { 4 5 6 } } }
   9 [ { 1 2 3 4 5 6 } 3 [ >array ] rolling-map ] unit-test
  10
  11 { 6 }
  12 [ { 1 2 3 4 5 6 } 3 <windowed-sequence> length ] unit-test
  13
  14 { { 1 1 1 2 3 4 } }
  15 [ { 1 2 3 4 5 6 } 3 <windowed-sequence> [ infimum ] map ] unit-test