root/trunk/orca/tests/working/op_math_tuples.r

REBOL []

; numbers with tuples
a: 1.2.3
b: 253
print ["RT11: add tuple pos-integer" a + b b + a]
print ["RT12: sub tuple pos-integer" a - b]
print ["RT13: mul tuple pos-integer" a * b b * a]
print ["RT14: div tuple pos-integer" a / b]
print ["RT15: and tuple pos-integer" a and b]
print ["RT16: or  tuple pos-integer" a or  b]
print ["RT17: xor tuple pos-integer" a xor b]

b: -253
print ["RT21: add tuple neg-integer" a + b b + a]
print ["RT22: sub tuple neg-integer" a - b]
print ["RT23: mul tuple neg-integer" a * b b * a]
print ["RT24: div tuple neg-integer" a / b]
print ["RT25: and tuple neg-integer" a and b]
print ["RT26: or  tuple neg-integer" a or  b]
print ["RT27: xor tuple neg-integer" a xor b]

b: 501.12345
print ["RT31: add tuple pos_decimal" a + b]
print ["RT32: sub tuple pos_decimal" a - b]
print ["RT33: mul tuple pos_decimal" a * b]
print ["RT34: div tuple pos_decimal" a / b]
print ["RT35: and tuple pos_decimal" a and b]
print ["RT36: or  tuple pos_decimal" a or  b]
print ["RT37: xor tuple pos_decimal" a xor b]

b: -501.12345
print ["RT41: add tuple neg_decimal" a + b]
print ["RT42: sub tuple neg_decimal" a - b]
print ["RT43: mul tuple neg_decimal" a * b]
print ["RT44: div tuple neg_decimal" a / b]
print ["RT45: and tuple neg_decimal" a and b]
print ["RT46: or  tuple neg_decimal" a or  b]
print ["RT47: xor tuple neg_decimal" a xor b]

; tuples with tuples
b: 0.0.0
print ["low bound"]
print ["RT51: add tuple tuple" a + b b + a]
print ["RT52: sub tuple tuple" a - b b - a]
print ["RT53: mul tuple tuple" a * b b * a]
print ["RT54: div tuple tuple" b / a]                 ;; div by zero
print ["RT55: and tuple tuple" a and b b and a]
print ["RT56: or  tuple tuple" a or  b b or  a]
print ["RT57: xor tuple tuple" a xor b b xor a]

b: 255.255.255
print ["high bound"]
print ["RT61: add tuple tuple" a + b b + a]
print ["RT62: sub tuple tuple" a - b b - a]
print ["RT63: mul tuple tuple" a * b b * a]
print ["RT64: div tuple tuple" a / b b / a]
print ["RT65: and tuple tuple" a and b b and a]
print ["RT66: or  tuple tuple" a or  b b or  a]
print ["RT67: xor tuple tuple" a xor b b xor a]

b: 127.127.127
print ["between"]
print ["RT71: add tuple tuple" a + b b + a]
print ["RT72: sub tuple tuple" a - b b - a]
print ["RT73: mul tuple tuple" a * b b * a]
print ["RT74: div tuple tuple" a / b b / a]
print ["RT75: and tuple tuple" a and b b and a]
print ["RT76: or  tuple tuple" a or  b b or  a]
print ["RT77: xor tuple tuple" a xor b b xor a]

b: 127.127.127.127
print ["different len"]
print ["RT81: add tuple tuple" a + b b + a]
print ["RT82: sub tuple tuple" a - b b - a]
print ["RT83: mul tuple tuple" a * b b * a]
print ["RT84: div tuple tuple" a / b]                 ;; div by zero
print ["RT85: and tuple tuple" a and b b and a]
print ["RT86: or  tuple tuple" a or  b b or  a]
print ["RT87: xor tuple tuple" a xor b b xor a]