2.1.1 Example

//2.1.1 Example

function add_rat(x,y) {
   return make_rat(numer(x)*denom(y) + numer(y)*denom(x),
                  denom(x) * denom(y));
}
function sub_rat(x,y) {
   return make_rat(numer(x)*denom(y) - numer(y)*denom(x),
                  denom(x) * denom(y));
}
function mul_rat(x,y) {
   return make_rat(numer(x)*numer(y),
                   denom(x)*denom(y));
}
function div_rat(x,y) {
   return make_rat(numer(x)*denom(y),
                   denom(x)*numer(y));
}
function equal_rat(x,y) {
   return numer(x)*denom(y) === numer(y)*denom(x);
}

function make_rat(n,d) {
   var g = gcd(n,d);
   return pair(n / g, d / g);
}

function gcd(a,b) {
   return b === 0 ? a : gcd(b, a % b);
}

function print_rat(x) {
   return print(numer(x) + "/" + denom(x));
}

var one_half = make_rat(1,2);
var one_third = make_rat(1,3);

print_rat(add_rat(one_third,one_third));