core/test/math/math-combinators.factor

   1 IN: temporary
   2 USE: kernel
   3 USE: math
   4 USE: test
   5 USE: namespaces
   6
   7 [ ] [ 5 [ ] times ] unit-test
   8 [ ] [ 0 [ ] times ] unit-test
   9 [ ] [ -1 [ ] times ] unit-test
  10
  11 [ ] [ 5 [ ] repeat ] unit-test
  12 [ [ 0 1 2 3 4 ] ] [ [ 5 [ dup , ] repeat ] [ ] make ] unit-test
  13 [ [ ] ] [ [ -1 [ dup , ] repeat ] [ ] make ] unit-test