extra/lists/circular/circular-tests.factor

   1 ! Copyright (C) 2022 Alexander Ilin.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: circular lists lists.circular lists.lazy sequences tools.test ;
   4
   5 { { f f "Fizz" f f "Fizz" f f "Fizz" } } [
   6     9 { f f "Fizz" } <circular> ltake list>array
   7 ] unit-test
   8
   9 { { f f f f "Buzz" f f f f "Buzz" f f f f "Buzz" } } [
  10     15 { f f f f "Buzz" } <circular> ltake list>array
  11 ] unit-test
  12
  13 { {
  14     "" "" "Fizz" "" "Buzz"
  15     "Fizz" "" "" "Fizz" "Buzz"
  16     "" "Fizz" "" "" "FizzBuzz"
  17 } } [
  18     15
  19         { "" "" "Fizz" } <circular>
  20         { "" "" "" "" "Buzz" } <circular>
  21         lzip [ first2 append ] lmap-lazy
  22     ltake list>array
  23 ] unit-test