Asunder/webserver/bignum.js

   1 //+ Jonas Raoni Soares Silva
   2 //@ http://jsfromhell.com/classes/bignumber [rev. #3]
   3
   4 BigNumber = function(n, p, r){
   5     var o = this, i;
   6     if(n instanceof BigNumber){
   7         for(i in {precision: 0, roundType: 0, _s: 0, _f: 0}) o[i] = n[i];
   8         o._d = n._d.slice();
   9         return;
  10     }
  11     o.precision = isNaN(p = Math.abs(p)) ? BigNumber.defaultPrecision : p;
  12     o.roundType = isNaN(r = Math.abs(r)) ? BigNumber.defaultRoundType : r;
  13     o._s = (n += "").charAt(0) == "-";
  14     o._f = ((n = n.replace(/[^\d.]/g, "").split(".", 2))[0] = n[0].replace(/^0+/, "") || "0").length;
  15     for(i = (n = o._d = (n.join("") || "0").split("")).length; i; n[--i] = +n[i]);
  16     o.round();
  17 };
  18 with({$: BigNumber, o: BigNumber.prototype}){
  19     $.ROUND_HALF_EVEN = ($.ROUND_HALF_DOWN = ($.ROUND_HALF_UP = ($.ROUND_FLOOR = ($.ROUND_CEIL = ($.ROUND_DOWN = ($.ROUND_UP = 0) + 1) + 1) + 1) + 1) + 1) + 1;
  20     $.defaultPrecision = 40;
  21     $.defaultRoundType = $.ROUND_HALF_UP;
  22     o.add = function(n){
  23         if(this._s != (n = new BigNumber(n))._s)
  24             return n._s ^= 1, this.subtract(n);
  25         var o = new BigNumber(this), a = o._d, b = n._d, la = o._f,
  26         lb = n._f, n = Math.max(la, lb), i, r;
  27         la != lb && ((lb = la - lb) > 0 ? o._zeroes(b, lb, 1) : o._zeroes(a, -lb, 1));
  28         i = (la = a.length) == (lb = b.length) ? a.length : ((lb = la - lb) > 0 ? o._zeroes(b, lb) : o._zeroes(a, -lb)).length;
  29         for(r = 0; i; r = (a[--i] = a[i] + b[i] + r) / 10 >>> 0, a[i] %= 10);
  30         return r && ++n && a.unshift(r), o._f = n, o.round();
  31     };
  32     o.subtract = function(n){
  33         if(this._s != (n = new BigNumber(n))._s)
  34             return n._s ^= 1, this.add(n);
  35         var o = new BigNumber(this), c = o.abs().compare(n.abs()) + 1, a = c ? o : n, b = c ? n : o, la = a._f, lb = b._f, d = la, i, j;
  36         a = a._d, b = b._d, la != lb && ((lb = la - lb) > 0 ? o._zeroes(b, lb, 1) : o._zeroes(a, -lb, 1));
  37         for(i = (la = a.length) == (lb = b.length) ? a.length : ((lb = la - lb) > 0 ? o._zeroes(b, lb) : o._zeroes(a, -lb)).length; i;){
  38             if(a[--i] < b[i]){
  39                 for(j = i; j && !a[--j]; a[j] = 9);
  40                 --a[j], a[i] += 10;
  41             }
  42             b[i] = a[i] - b[i];
  43         }
  44         return c || (o._s = n._s), o._f = d, o._d = b, o.round();
  45     };
  46     o.multiply = function(n){
  47         var o = new BigNumber(this), r = o._d.length >= (n = new BigNumber(n))._d.length, a = (r ? o : n)._d,
  48         b = (r ? n : o)._d, la = a.length, lb = b.length, x = new BigNumber, i, j, s;
  49         for(i = lb; i; r && s.unshift(r), x.set(x.add(new BigNumber(s.join("")))))
  50             for(s = (new Array(lb - --i)).join("0").split(""), r = 0, j = la; j; r += a[--j] * b[i], s.unshift(r % 10), r = (r / 10) >>> 0);
  51         return o._f = ((r = la + lb - o._f - n._f) >= (j = (o._d = x._d).length) ? this._zeroes(o._d, r - j + 1, 1).length : j) - r, o.round();
  52     };
  53     o.divide = function(n){
  54         if((n = new BigNumber(n)) == "0")
  55             throw new Error("Division by 0");
  56         else if(this == "0")
  57             return new BigNumber;
  58         var o = new BigNumber(this), a = o._d, b = n._d, la = a.length - o._f,
  59         lb = b.length - n._f, r = new BigNumber, i = 0, j, s, l, f = 1, c = 0, e = 0;
  60         r._s = o._s != n._s, r.precision = Math.max(o.precision, n.precision),
  61         r._f = +r._d.pop(), la != lb && o._zeroes(la > lb ? b : a, Math.abs(la - lb));
  62         n._f = b.length, b = n, b._s = false, b = b.round();
  63         for(n = new BigNumber; a[0] == "0"; a.shift());
  64         out:
  65         do{
  66             for(l = c = 0, n == "0" && (n._d = [], n._f = 0); i < a.length && n.compare(b) == -1; ++i){
  67                 (l = i + 1 == a.length, (!f && ++c > 1 || (e = l && n == "0" && a[i] == "0")))
  68                 && (r._f == r._d.length && ++r._f, r._d.push(0));
  69                 (a[i] == "0" && n == "0") || (n._d.push(a[i]), ++n._f);
  70                 if(e)
  71                     break out;
  72                 if((l && n.compare(b) == -1 && (r._f == r._d.length && ++r._f, 1)) || (l = 0))
  73                     while(r._d.push(0), n._d.push(0), ++n._f, n.compare(b) == -1);
  74             }
  75             if(f = 0, n.compare(b) == -1 && !(l = 0))
  76                 while(l ? r._d.push(0) : l = 1, n._d.push(0), ++n._f, n.compare(b) == -1);
  77             for(s = new BigNumber, j = 0; n.compare(y = s.add(b)) + 1 && ++j; s.set(y));
  78             n.set(n.subtract(s)), !l && r._f == r._d.length && ++r._f, r._d.push(j);
  79         }
  80         while((i < a.length || n != "0") && (r._d.length - r._f) <= r.precision);
  81         return r.round();
  82     };
  83     o.mod = function(n){
  84         return this.subtract(this.divide(n).intPart().multiply(n));
  85     };
  86     o.pow = function(n){
  87         var o = new BigNumber(this), i;
  88         if((n = (new BigNumber(n)).intPart()) == 0) return o.set(1);
  89         for(i = Math.abs(n); --i; o.set(o.multiply(this)));
  90         return n < 0 ? o.set((new BigNumber(1)).divide(o)) : o;
  91     };
  92     o.set = function(n){
  93         return this.constructor(n), this;
  94     };
  95     o.compare = function(n){
  96         var a = this, la = this._f, b = new BigNumber(n), lb = b._f, r = [-1, 1], i, l;
  97         if(a._s != b._s)
  98             return a._s ? -1 : 1;
  99         if(la != lb)
 100             return r[(la > lb) ^ a._s];
 101         for(la = (a = a._d).length, lb = (b = b._d).length, i = -1, l = Math.min(la, lb); ++i < l;)
 102             if(a[i] != b[i])
 103                 return r[(a[i] > b[i]) ^ a._s];
 104         return la != lb ? r[(la > lb) ^ a._s] : 0;
 105     };
 106     o.negate = function(){
 107         var n = new BigNumber(this); return n._s ^= 1, n;
 108     };
 109     o.abs = function(){
 110         var n = new BigNumber(this); return n._s = 0, n;
 111     };
 112     o.intPart = function(){
 113         return new BigNumber((this._s ? "-" : "") + (this._d.slice(0, this._f).join("") || "0"));
 114     };
 115     o.valueOf = o.toString = function(){
 116         var o = this;
 117         return (o._s ? "-" : "") + (o._d.slice(0, o._f).join("") || "0") + (o._f != o._d.length ? "." + o._d.slice(o._f).join("") : "");
 118     };
 119     o._zeroes = function(n, l, t){
 120         var s = ["push", "unshift"][t || 0];
 121         for(++l; --l;  n[s](0));
 122         return n;
 123     };
 124     o.round = function(){
 125         if("_rounding" in this) return this;
 126         var $ = BigNumber, r = this.roundType, b = this._d, d, p, n, x;
 127         for(this._rounding = true; this._f > 1 && !b[0]; --this._f, b.shift());
 128         for(d = this._f, p = this.precision + d, n = b[p]; b.length > d && !b[b.length -1]; b.pop());
 129         x = (this._s ? "-" : "") + (p - d ? "0." + this._zeroes([], p - d - 1).join("") : "") + 1;
 130         if(b.length > p){
 131             n && (r == $.DOWN ? false : r == $.UP ? true : r == $.CEIL ? !this._s
 132             : r == $.FLOOR ? this._s : r == $.HALF_UP ? n >= 5 : r == $.HALF_DOWN ? n > 5
 133             : r == $.HALF_EVEN ? n >= 5 && b[p - 1] & 1 : false) && this.add(x);
 134             b.splice(p, b.length - p);
 135         }
 136         return delete this._rounding, this;
 137     };
 138 }