extra/math/combinatorics/bits/bits-tests.factor

   1 USING: math math.combinatorics.bits tools.test ;
   2
   3 { 0b101 } [ 0b011 next-permutation-bits ] unit-test
   4 { 0b110 } [ 0b101 next-permutation-bits ] unit-test
   5
   6 {
   7     {
   8         0b00111 0b01011 0b01101 0b01110 0b10011
   9         0b10101 0b10110 0b11001 0b11010 0b11100
  10     }
  11 } [ 3 5 all-permutation-bits ] unit-test
  12
  13 { { 14 22 26 28 38 42 44 50 52 56 } } [ 3 5 [ 2 * ] map-permutation-bits ] unit-test
  14
  15 { V{ 14 22 26 28 } } [ 3 5 [ even? ] filter-permutation-bits ] unit-test
  16
  17 { 14 } [ 3 5 [ even? ] find-permutation-bits ] unit-test
  18 { f } [ 3 5 [ 0 < ] find-permutation-bits ] unit-test
  19
  20 { 198 } [ 3 5 12 [ + ] reduce-permutation-bits ] unit-test