library/test/math/rational.factor

   1 IN: scratchpad
   2 USE: arithmetic
   3 USE: kernel
   4 USE: stack
   5 USE: test
   6
   7 [ t ] [ 0 fixnum? ] unit-test
   8 [ t ] [ 2345621 fixnum? ] unit-test
   9
  10 [ t ] [ 2345621 dup >bignum >fixnum = ] unit-test
  11
  12 [ t ] [ 0 >fixnum 0 >bignum = ] unit-test
  13 [ f ] [ 0 >fixnum 1 >bignum = ] unit-test
  14 [ f ] [ 1 >bignum 0 >bignum = ] unit-test
  15 [ t ] [ 0 >bignum 0 >fixnum = ] unit-test
  16
  17 [ t ] [ 0 >bignum bignum? ] unit-test
  18 [ f ] [ 0 >fixnum bignum? ] unit-test
  19 [ f ] [ 0 >fixnum bignum? ] unit-test
  20 [ t ] [ 0 >fixnum fixnum? ] unit-test
  21
  22 [ -1 ] [ 1 neg ] unit-test
  23 [ -1 ] [ 1 >bignum neg ] unit-test
  24
  25 [ 9 3 ] [ 93 10 /mod ] unit-test
  26 [ 9 3 ] [ 93 >bignum 10 /mod ] unit-test
  27
  28 [ 5 ] [ 2 >bignum 3 >bignum + ] unit-test
  29
  30 [ 1/2 ] [ 1 >bignum 2 >bignum / ] unit-test
  31 [ t ] [ 10 3 / ratio? ] unit-test
  32 [ f ] [ 10 2 / ratio? ] unit-test
  33 [ 10 ] [ 10 numerator ] unit-test
  34 [ 1 ] [ 10 denominator ] unit-test
  35 [ 12 ] [ -12 -13 / numerator ] unit-test
  36 [ 13 ] [ -12 -13 / denominator ] unit-test
  37 [ 1 ] [ -1 -1 / numerator ] unit-test
  38 [ 1 ] [ -1 -1 / denominator ] unit-test
  39
  40 [ -1 ] [ 2 -2 / ] unit-test
  41 [ -1 ] [ -2 2 / ] unit-test
  42
  43 [ t ] [ 1 3 / 1 3 / = ] unit-test
  44
  45 [ -10 ] [ -100 10 /i ] unit-test
  46 [ 10 ] [ -100 -10 /i ] unit-test
  47 [ -10 ] [ 100 -10 /i ] unit-test
  48 [ -10 ] [ -100 >bignum 10 >bignum /i ] unit-test
  49 [ 10  ] [ -100 >bignum -10 >bignum /i ] unit-test
  50 [ -10 ] [ 100 >bignum -10 >bignum /i ] unit-test
  51
  52 [ 3/2 ] [ 1 1/2 + ] unit-test
  53 [ 3/2 ] [ 1 >bignum 1/2 + ] unit-test
  54 [ -1/2 ] [ 1/2 1 - ] unit-test
  55 [ -1/2 ] [ 1/2 1 >bignum - ] unit-test
  56 [ 41/20 ] [ 5/4 4/5 + ] unit-test
  57
  58 [ 1 ] [ 1/2 1/2 / ] unit-test
  59 [ 27/4 ] [ 3/2 2/9 / ] unit-test
  60
  61 [ t ] [ 5768 476343 < ] unit-test
  62 [ t ] [ 5768 476343 <= ] unit-test
  63 [ f ] [ 5768 476343 > ] unit-test
  64 [ f ] [ 5768 476343 >= ] unit-test
  65 [ t ] [ 3434 >bignum 3434 >= ] unit-test
  66 [ t ] [ 3434 3434 >bignum <= ] unit-test
  67
  68 [ t ] [ 1 1/3 > ] unit-test
  69 [ t ] [ 2/3 3/4 <= ] unit-test
  70 [ f ] [ -2/3 1/3 > ] unit-test
  71
  72 [ 3 ] [ 10/3 >integer ] unit-test
  73 [ -3 ] [ -10/3 >integer ] unit-test