BigInteger.cs :  » 2.6.4-mono-.net-core » System.Numerics » System » Numerics » C# / CSharp Open Source

Home
C# / CSharp Open Source
1.2.6.4 mono .net core
2.2.6.4 mono core
3.Aspect Oriented Frameworks
4.Bloggers
5.Build Systems
6.Business Application
7.Charting Reporting Tools
8.Chat Servers
9.Code Coverage Tools
10.Content Management Systems CMS
11.CRM ERP
12.Database
13.Development
14.Email
15.Forum
16.Game
17.GIS
18.GUI
19.IDEs
20.Installers Generators
21.Inversion of Control Dependency Injection
22.Issue Tracking
23.Logging Tools
24.Message
25.Mobile
26.Network Clients
27.Network Servers
28.Office
29.PDF
30.Persistence Frameworks
31.Portals
32.Profilers
33.Project Management
34.RSS RDF
35.Rule Engines
36.Script
37.Search Engines
38.Sound Audio
39.Source Control
40.SQL Clients
41.Template Engines
42.Testing
43.UML
44.Web Frameworks
45.Web Service
46.Web Testing
47.Wiki Engines
48.Windows Presentation Foundation
49.Workflows
50.XML Parsers
C# / C Sharp
C# / C Sharp by API
C# / CSharp Tutorial
C# / CSharp Open Source » 2.6.4 mono .net core » System.Numerics 
System.Numerics » System » Numerics » BigInteger.cs
//
// System.Numerics.BigInteger
//
// Rodrigo Kumpera (rkumpera@novell.com)

//
// Copyright (C) 2010 Novell, Inc (http://www.novell.com)
//
// Permission is hereby granted, free of charge, to any person obtaining
// a copy of this software and associated documentation files (the
// "Software"), to deal in the Software without restriction, including
// without limitation the rights to use, copy, modify, merge, publish,
// distribute, sublicense, and/or sell copies of the Software, and to
// permit persons to whom the Software is furnished to do so, subject to
// the following conditions:
// 
// The above copyright notice and this permission notice shall be
// included in all copies or substantial portions of the Software.
// 
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
// EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
// MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
// NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
// LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
// OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
// WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
//
// A big chuck of code comes the DLR (as hosted in http://ironpython.codeplex.com), 
// which has the following License:
//
/* ****************************************************************************
 *
 * Copyright (c) Microsoft Corporation. 
 *
 * This source code is subject to terms and conditions of the Microsoft Public License. A 
 * copy of the license can be found in the License.html file at the root of this distribution. If 
 * you cannot locate the  Microsoft Public License, please send an email to 
 * dlr@microsoft.com. By using this source code in any fashion, you are agreeing to be bound 
 * by the terms of the Microsoft Public License.
 *
 * You must not remove this notice, or any other, from this software.
 *
 *
 * ***************************************************************************/

using System;
using System.Collections.Generic;
using System.Diagnostics;
using System.Diagnostics.CodeAnalysis;
using System.Globalization;
using System.Text;
using System.Threading;

/*
Optimization
  Have proper popcount function for IsPowerOfTwo
  Use unsafe ops to avoid bounds check
  CoreAdd could avoid some resizes by checking for equal sized array that top overflow
  For bitwise operators, hoist the conditionals out of their main loop
  Optimize BitScanBackward
  Use a carry variable to make shift opts do half the number of array ops.
  Schoolbook multiply is O(n^2), use Karatsuba /Toom-3 for large numbers
*/
namespace System.Numerics{
  public struct BigInteger : IComparable, IFormattable, IComparable<BigInteger>, IEquatable<BigInteger>
  {
    //LSB on [0]
    readonly uint[] data;
    readonly short sign;

    static readonly uint[] ZERO = new uint [1];
    static readonly uint[] ONE = new uint [1] { 1 };

    BigInteger (short sign, uint[] data)
    {
      this.sign = sign;
      this.data = data;
    }

    public BigInteger (int value)
    {
      if (value == 0) {
        sign = 0;
        data = ZERO;
      } else if (value > 0) {
        sign = 1;
        data = new uint[] { (uint) value };
      } else {
        sign = -1;
        data = new uint[1] { (uint)-value };
      }
    }

    [CLSCompliantAttribute (false)]
    public BigInteger (uint value)
    {
      if (value == 0) {
        sign = 0;
        data = ZERO;
      } else {
        sign = 1;
        data = new uint [1] { value };
      }
    }

    public BigInteger (long value)
    {
      if (value == 0) {
        sign = 0;
        data = ZERO;
      } else if (value > 0) {
        sign = 1;
        uint low = (uint)value;
        uint high = (uint)(value >> 32);

        data = new uint [high != 0 ? 2 : 1];
        data [0] = low;
        if (high != 0)
          data [1] = high;
      } else {
        sign = -1;
        value = -value;
        uint low = (uint)value;
        uint high = (uint)((ulong)value >> 32);

        data = new uint [high != 0 ? 2 : 1];
        data [0] = low;
        if (high != 0)
          data [1] = high;
      }      
    }

    [CLSCompliantAttribute (false)]
    public BigInteger (ulong value)
    {
      if (value == 0) {
        sign = 0;
        data = ZERO;
      } else {
        sign = 1;
        uint low = (uint)value;
        uint high = (uint)(value >> 32);

        data = new uint [high != 0 ? 2 : 1];
        data [0] = low;
        if (high != 0)
          data [1] = high;
      }
    }


    static bool Negative (byte[] v)
    {
      return ((v[7] & 0x80) != 0);
    }

    static ushort Exponent (byte[] v)
    {
      return (ushort)((((ushort)(v[7] & 0x7F)) << (ushort)4) | (((ushort)(v[6] & 0xF0)) >> 4));
    }

    static ulong Mantissa(byte[] v)
    {
      uint i1 = ((uint)v[0] | ((uint)v[1] << 8) | ((uint)v[2] << 16) | ((uint)v[3] << 24));
      uint i2 = ((uint)v[4] | ((uint)v[5] << 8) | ((uint)(v[6] & 0xF) << 16));

      return (ulong)((ulong)i1 | ((ulong)i2 << 32));
    }

    const int bias = 1075;
    public BigInteger (double value)
    {
      if (double.IsNaN (value) || Double.IsInfinity (value))
        throw new OverflowException ();

      byte[] bytes = BitConverter.GetBytes (value);
      ulong mantissa = Mantissa (bytes);
      if (mantissa == 0) {
        // 1.0 * 2**exp, we have a power of 2
        int exponent = Exponent (bytes);
        if (exponent == 0) {
          sign = 0;
          data = ZERO;
          return;
        }

        BigInteger res = Negative (bytes) ? MinusOne : One;
        res = res << (exponent - 0x3ff);
        this.sign = res.sign;
        this.data = res.data;
      } else {
        // 1.mantissa * 2**exp
        int exponent = Exponent(bytes);
        mantissa |= 0x10000000000000ul;
        BigInteger res = mantissa;
        res = exponent > bias ? res << (exponent - bias) : res >> (bias - exponent);

        this.sign = (short) (Negative (bytes) ? -1 : 1);
        this.data = res.data;
      }
    }

    public BigInteger (float value) : this ((double)value)
    {
    }

    const Int32 DecimalScaleFactorMask = 0x00FF0000;
    const Int32 DecimalSignMask = unchecked((Int32)0x80000000);

    public BigInteger (decimal value)
    {
      // First truncate to get scale to 0 and extract bits
      int[] bits = Decimal.GetBits(Decimal.Truncate(value));

      int size = 3;
      while (size > 0 && bits[size - 1] == 0) size--;

      if (size == 0) {
        sign = 0;
        data = ZERO;
        return;
      }

      sign = (short) ((bits [3] & DecimalSignMask) != 0 ? -1 : 1);

      data = new uint [size];
      data [0] = (uint)bits [0];
      if (size > 1)
        data [1] = (uint)bits [1];
      if (size > 2)
        data [2] = (uint)bits [2];
    }

    [CLSCompliantAttribute (false)]
    public BigInteger (byte[] value)
    {
      if (value == null)
        throw new ArgumentNullException ("value");

      int len = value.Length;

      if (len == 0 || (len == 1 && value [0] == 0)) {
        sign = 0;
        data = ZERO;
        return;
      }

      if ((value [len - 1] & 0x80) != 0)
        sign = -1;
      else
        sign = 1;

      if (sign == 1) {
        while (value [len - 1] == 0)
          --len;

        int full_words, size;
        full_words = size = len / 4;
        if ((len & 0x3) != 0)
          ++size;

        data = new uint [size];
        int j = 0;
        for (int i = 0; i < full_words; ++i) {
          data [i] =  (uint)value [j++] |
                (uint)(value [j++] << 8) |
                (uint)(value [j++] << 16) |
                (uint)(value [j++] << 24);
        }
        size = len & 0x3;
        if (size > 0) {
          int idx = data.Length - 1;
          for (int i = 0; i < size; ++i)
            data [idx] |= (uint)(value [j++] << (i * 8));
        }
      } else {
        int full_words, size;
        full_words = size = len / 4;
        if ((len & 0x3) != 0)
          ++size;

        data = new uint [size];

        uint word, borrow = 1;
        ulong sub = 0;
        int j = 0;

        for (int i = 0; i < full_words; ++i) {
          word =  (uint)value [j++] |
              (uint)(value [j++] << 8) |
              (uint)(value [j++] << 16) |
              (uint)(value [j++] << 24);

          sub = (ulong)word - borrow;
          word = (uint)sub;
          borrow = (uint)(sub >> 32) & 0x1u;
          data [i] = ~word;
        }
        size = len & 0x3;

        if (size > 0) {
          word = 0;
          uint store_mask = 0;
          for (int i = 0; i < size; ++i) {
            word |= (uint)(value [j++] << (i * 8));
            store_mask = (store_mask << 8) | 0xFF;
          }

          sub = word - borrow;
          word = (uint)sub;
          borrow = (uint)(sub >> 32) & 0x1u;

          data [data.Length - 1] = ~word & store_mask;
        }
        if (borrow != 0) //FIXME I believe this can't happen, can someone write a test for it?
          throw new Exception ("non zero final carry");
      }

    }

    public bool IsEven {
      get { return (data [0] & 0x1) == 0; }
    }    

    public bool IsOne {
      get { return sign == 1 && data.Length == 1 && data [0] == 1; }
    }    


    //Gem from Hacker's Delight
    //Returns the number of bits set in @x
    static int PopulationCount (uint x)
    {
      x = x - ((x >> 1) & 0x55555555);
      x = (x & 0x33333333) + ((x >> 2) & 0x33333333);
      x = (x + (x >> 4)) & 0x0F0F0F0F;
      x = x + (x >> 8);
      x = x + (x >> 16);
      return (int)(x & 0x0000003F);
    }

    public bool IsPowerOfTwo {
      get {
        bool foundBit = false;
        if (sign != 1)
          return false;
        //This function is pop count == 1 for positive numbers
        for (int i = 0; i < data.Length; ++i) {
          int p = PopulationCount (data [i]);
          if (p > 0) {
            if (p > 1 || foundBit)
              return false;
            foundBit = true;
          }
        }
        return foundBit;
      }
    }    

    public bool IsZero {
      get { return sign == 0; }
    }    

    public int Sign {
      get { return sign; }
    }

    public static BigInteger MinusOne {
      get { return new BigInteger (-1, ONE); }
    }

    public static BigInteger One {
      get { return new BigInteger (1, ONE); }
    }

    public static BigInteger Zero {
      get { return new BigInteger (0, ZERO); }
    }

    public static explicit operator int (BigInteger value)
    {
      if (value.data.Length > 1)
        throw new OverflowException ();
      uint data = value.data [0];

      if (value.sign == 1) {
        if (data > (uint)int.MaxValue)
          throw new OverflowException ();
        return (int)data;
      } else if (value.sign == -1) {
        if (data > 0x80000000u)
          throw new OverflowException ();
        return -(int)data;
      }

      return 0;
    }

    [CLSCompliantAttribute (false)]
    public static explicit operator uint (BigInteger value)
    {
      if (value.data.Length > 1 || value.sign == -1)
        throw new OverflowException ();
      return value.data [0];
    }

    public static explicit operator short (BigInteger value)
    {
      int val = (int)value;
      if (val < short.MinValue || val > short.MaxValue)
        throw new OverflowException ();
      return (short)val;
    }

    [CLSCompliantAttribute (false)]
    public static explicit operator ushort (BigInteger value)
    {
      uint val = (uint)value;
      if (val > ushort.MaxValue)
        throw new OverflowException ();
      return (ushort)val;
    }

    public static explicit operator byte (BigInteger value)
    {
      uint val = (uint)value;
      if (val > byte.MaxValue)
        throw new OverflowException ();
      return (byte)val;
    }

    [CLSCompliantAttribute (false)]
    public static explicit operator sbyte (BigInteger value)
    {
      int val = (int)value;
      if (val < sbyte.MinValue || val > sbyte.MaxValue)
        throw new OverflowException ();
      return (sbyte)val;
    }


    public static explicit operator long (BigInteger value)
    {
      if (value.sign == 0)
        return 0;

      if (value.data.Length > 2)
        throw new OverflowException ();

      uint low = value.data [0];

      if (value.data.Length == 1) {
        if (value.sign == 1)
          return (long)low;
        long res = (long)low;
        return -res;
      }

      uint high = value.data [1];

      if (value.sign == 1) {
        if (high >= 0x80000000u)
          throw new OverflowException ();
        return (((long)high) << 32) | low;
      }

      if (high > 0x80000000u)
        throw new OverflowException ();

      return - ((((long)high) << 32) | (long)low);
    }

    [CLSCompliantAttribute (false)]
    public static explicit operator ulong (BigInteger value)
    {
      if (value.data.Length > 2 || value.sign == -1)
        throw new OverflowException ();

      uint low = value.data [0];
      if (value.data.Length == 1)
        return low;

      uint high = value.data [1];
      return (((ulong)high) << 32) | low;
    }

    public static explicit operator double (BigInteger value)
    {
      //FIXME
      try {
              return double.Parse (value.ToString (),
                  System.Globalization.CultureInfo.InvariantCulture.NumberFormat);
      } catch (OverflowException) {
        return value.sign == -1 ? double.NegativeInfinity : double.PositiveInfinity;
      }
        }

    public static explicit operator float (BigInteger value)
    {
      //FIXME
      try {
        return float.Parse (value.ToString (),
        System.Globalization.CultureInfo.InvariantCulture.NumberFormat);
      } catch (OverflowException) {
        return value.sign == -1 ? float.NegativeInfinity : float.PositiveInfinity;
      }
    }

    public static explicit operator decimal (BigInteger value)
    {
      if (value.sign == 0)
      return Decimal.Zero;

      uint[] data = value.data;
      if (data.Length > 3) 
        throw new OverflowException ();

      int lo = 0, mi = 0, hi = 0;
      if (data.Length > 2)
        hi = (Int32)data [2];
      if (data.Length > 1)
        mi = (Int32)data [1];
      if (data.Length > 0)
        lo = (Int32)data [0];

      return new Decimal(lo, mi, hi, value.sign < 0, 0);
    }

    public static implicit operator BigInteger (int value)
    {
      return new BigInteger (value);
    }

    [CLSCompliantAttribute (false)]
    public static implicit operator BigInteger (uint value)
    {
      return new BigInteger (value);
    }

    public static implicit operator BigInteger (short value)
    {
      return new BigInteger (value);
    }

    [CLSCompliantAttribute (false)]
    public static implicit operator BigInteger (ushort value)
    {
      return new BigInteger (value);
    }

    public static implicit operator BigInteger (byte value)
    {
      return new BigInteger (value);
    }

    [CLSCompliantAttribute (false)]
    public static implicit operator BigInteger (sbyte value)
    {
      return new BigInteger (value);
    }

    public static implicit operator BigInteger (long value)
    {
      return new BigInteger (value);
    }

    [CLSCompliantAttribute (false)]
    public static implicit operator BigInteger (ulong value)
    {
      return new BigInteger (value);
    }

    public static explicit operator BigInteger (double value)
    {
      return new BigInteger (value);
    }

    public static explicit operator BigInteger (float value)
    {
      return new BigInteger (value);
    }

    public static explicit operator BigInteger (decimal value)
    {
      return new BigInteger (value);
    }

    public static BigInteger operator+ (BigInteger left, BigInteger right)
    {
      if (left.sign == 0)
        return right;
      if (right.sign == 0)
        return left;

      if (left.sign == right.sign)
        return new BigInteger (left.sign, CoreAdd (left.data, right.data));

      int r = CoreCompare (left.data, right.data);

      if (r == 0)  
        return new BigInteger (0, ZERO);

      if (r > 0) //left > right
        return new BigInteger (left.sign, CoreSub (left.data, right.data));

      return new BigInteger (right.sign, CoreSub (right.data, left.data));
    }

    public static BigInteger operator- (BigInteger left, BigInteger right)
    {
      if (right.sign == 0)
        return left;
      if (left.sign == 0)
        return new BigInteger ((short)-right.sign, right.data);

      if (left.sign == right.sign) {
        int r = CoreCompare (left.data, right.data);

        if (r == 0)  
          return new BigInteger (0, ZERO);

        if (r > 0) //left > right
          return new BigInteger (left.sign, CoreSub (left.data, right.data));

        return new BigInteger ((short)-right.sign, CoreSub (right.data, left.data));
      }

      return new BigInteger (left.sign, CoreAdd (left.data, right.data));
    }

    public static BigInteger operator* (BigInteger left, BigInteger right)
    {
      if (left.sign == 0 || right.sign == 0)
        return new BigInteger (0, ZERO);

      if (left.data [0] == 1 && left.data.Length == 1) {
        if (left.sign == 1)
          return right;
        return new BigInteger ((short)-right.sign, right.data);
      }

      if (right.data [0] == 1 && right.data.Length == 1) {
        if (right.sign == 1)
          return left;
        return new BigInteger ((short)-left.sign, left.data);
      }

      uint[] a = left.data;
      uint[] b = right.data;

      uint[] res = new uint [a.Length + b.Length];

            for (int i = 0; i < a.Length; ++i) {
                uint ai = a [i];
                int k = i;

                ulong carry = 0;
                for (int j = 0; j < b.Length; ++j) {
                    carry = carry + ((ulong)ai) * b [j] + res [k];
                    res[k++] = (uint)carry;
                    carry >>= 32;
                }

                while (carry != 0) {
                    carry += res [k];
                    res[k++] = (uint)carry;
                    carry >>= 32;
                }
            }

      int m;
      for (m = res.Length - 1; m >= 0 && res [m] == 0; --m) ;
      if (m < res.Length - 1)
        res = Resize (res, m + 1);

      return new BigInteger ((short)(left.sign * right.sign), res);
    }

    public static BigInteger operator/ (BigInteger dividend, BigInteger divisor)
    {
      if (divisor.sign == 0)
        throw new DivideByZeroException ();

      if (dividend.sign == 0) 
        return dividend;

      uint[] quotient;
      uint[] remainder_value;

      DivModUnsigned (dividend.data, divisor.data, out quotient, out remainder_value);

      int i;
      for (i = quotient.Length - 1; i >= 0 && quotient [i] == 0; --i) ;
      if (i == -1)
        return new BigInteger (0, ZERO);
      if (i < quotient.Length - 1)
        quotient = Resize (quotient, i + 1);

      return new BigInteger ((short)(dividend.sign * divisor.sign), quotient);
    }

    public static BigInteger operator% (BigInteger dividend, BigInteger divisor)
    {
      if (divisor.sign == 0)
        throw new DivideByZeroException ();

      if (dividend.sign == 0)
        return dividend;

      uint[] quotient;
      uint[] remainder_value;

      DivModUnsigned (dividend.data, divisor.data, out quotient, out remainder_value);

      int i;
      for (i = remainder_value.Length - 1; i >= 0 && remainder_value [i] == 0; --i) ;
      if (i == -1)
        return new BigInteger (0, ZERO);

      if (i < remainder_value.Length - 1)
        remainder_value = Resize (remainder_value, i + 1);
      return new BigInteger (dividend.sign, remainder_value);
    }

    public static BigInteger operator- (BigInteger value)
    {
      if (value.sign == 0)
        return value;
      return new BigInteger ((short)-value.sign, value.data);
    }

    public static BigInteger operator+ (BigInteger value)
    {
      return value;
    }

    public static BigInteger operator++ (BigInteger value)
    {
      short sign = value.sign;
      uint[] data = value.data;
      if (data.Length == 1) {
        if (sign == -1 && data [0] == 1)
          return new BigInteger (0, ZERO);
        if (sign == 0)
          return new BigInteger (1, ONE);
      }

      if (sign == -1)
        data = CoreSub (data, 1);
      else
        data = CoreAdd (data, 1);
    
      return new BigInteger (sign, data);
    }

    public static BigInteger operator-- (BigInteger value)
    {
      short sign = value.sign;
      uint[] data = value.data;
      if (data.Length == 1) {
        if (sign == 1 && data [0] == 1)
          return new BigInteger (0, ZERO);
        if (sign == 0)
          return new BigInteger (-1, ONE);
      }

      if (sign == -1)
        data = CoreAdd (data, 1);
      else
        data = CoreSub (data, 1);
    
      return new BigInteger (sign, data);
    }

    public static BigInteger operator& (BigInteger left, BigInteger right)
    {
      if (left.sign == 0)
        return left;

      if (right.sign == 0)
        return right;

      uint[] a = left.data;
      uint[] b = right.data;
      int ls = left.sign;
      int rs = right.sign;

      bool neg_res = (ls == rs) && (ls == -1);

      uint[] result = new uint [Math.Max (a.Length, b.Length)];

      ulong ac = 1, bc = 1, borrow = 1;

      int i;
      for (i = 0; i < result.Length; ++i) {
        uint va = 0;
        if (i < a.Length)
          va = a [i];
        if (ls == -1) {
          ac = ~va + ac;
          va = (uint)ac;
          ac = (uint)(ac >> 32);
        }

        uint vb = 0;
        if (i < b.Length)
          vb = b [i];
        if (rs == -1) {
          bc = ~vb + bc;
          vb = (uint)bc;
          bc = (uint)(bc >> 32);
        }

        uint word = va & vb;

        if (neg_res) {
          borrow = word - borrow;
          word = ~(uint)borrow;
          borrow = (uint)(borrow >> 32) & 0x1u;
        }

        result [i] = word;
      }

      for (i = result.Length - 1; i >= 0 && result [i] == 0; --i) ;
      if (i == -1)
        return new BigInteger (0, ZERO);
  
      if (i < result.Length - 1)
        result = Resize (result, i + 1);

      return new BigInteger (neg_res ? (short)-1 : (short)1, result);
    }

    public static BigInteger operator| (BigInteger left, BigInteger right)
    {
      if (left.sign == 0)
        return right;

      if (right.sign == 0)
        return left;

      uint[] a = left.data;
      uint[] b = right.data;
      int ls = left.sign;
      int rs = right.sign;

      bool neg_res = (ls == -1) || (rs == -1);

      uint[] result = new uint [Math.Max (a.Length, b.Length)];

      ulong ac = 1, bc = 1, borrow = 1;

      int i;
      for (i = 0; i < result.Length; ++i) {
        uint va = 0;
        if (i < a.Length)
          va = a [i];
        if (ls == -1) {
          ac = ~va + ac;
          va = (uint)ac;
          ac = (uint)(ac >> 32);
        }

        uint vb = 0;
        if (i < b.Length)
          vb = b [i];
        if (rs == -1) {
          bc = ~vb + bc;
          vb = (uint)bc;
          bc = (uint)(bc >> 32);
        }

        uint word = va | vb;

        if (neg_res) {
          borrow = word - borrow;
          word = ~(uint)borrow;
          borrow = (uint)(borrow >> 32) & 0x1u;
        }

        result [i] = word;
      }

      for (i = result.Length - 1; i >= 0 && result [i] == 0; --i) ;
      if (i == -1)
        return new BigInteger (0, ZERO);
  
      if (i < result.Length - 1)
        result = Resize (result, i + 1);

      return new BigInteger (neg_res ? (short)-1 : (short)1, result);
    }

    public static BigInteger operator^ (BigInteger left, BigInteger right)
    {
      if (left.sign == 0)
        return right;

      if (right.sign == 0)
        return left;

      uint[] a = left.data;
      uint[] b = right.data;
      int ls = left.sign;
      int rs = right.sign;

      bool neg_res = (ls == -1) ^ (rs == -1);

      uint[] result = new uint [Math.Max (a.Length, b.Length)];

      ulong ac = 1, bc = 1, borrow = 1;

      int i;
      for (i = 0; i < result.Length; ++i) {
        uint va = 0;
        if (i < a.Length)
          va = a [i];
        if (ls == -1) {
          ac = ~va + ac;
          va = (uint)ac;
          ac = (uint)(ac >> 32);
        }

        uint vb = 0;
        if (i < b.Length)
          vb = b [i];
        if (rs == -1) {
          bc = ~vb + bc;
          vb = (uint)bc;
          bc = (uint)(bc >> 32);
        }

        uint word = va ^ vb;

        if (neg_res) {
          borrow = word - borrow;
          word = ~(uint)borrow;
          borrow = (uint)(borrow >> 32) & 0x1u;
        }

        result [i] = word;
      }

      for (i = result.Length - 1; i >= 0 && result [i] == 0; --i) ;
      if (i == -1)
        return new BigInteger (0, ZERO);
  
      if (i < result.Length - 1)
        result = Resize (result, i + 1);

      return new BigInteger (neg_res ? (short)-1 : (short)1, result);
    }

    public static BigInteger operator~ (BigInteger value)
    {
      if (value.sign == 0)
        return new BigInteger (-1, ONE);

      uint[] data = value.data;
      int sign = value.sign;

      bool neg_res = sign == 1;

      uint[] result = new uint [data.Length];

      ulong carry = 1, borrow = 1;

      int i;
      for (i = 0; i < result.Length; ++i) {
        uint word = data [i];
        if (sign == -1) {
          carry = ~word + carry;
          word = (uint)carry;
          carry = (uint)(carry >> 32);
        }

        word = ~word;

        if (neg_res) {
          borrow = word - borrow;
          word = ~(uint)borrow;
          borrow = (uint)(borrow >> 32) & 0x1u;
        }

        result [i] = word;
      }

      for (i = result.Length - 1; i >= 0 && result [i] == 0; --i) ;
      if (i == -1)
        return new BigInteger (0, ZERO);
  
      if (i < result.Length - 1)
        result = Resize (result, i + 1);

      return new BigInteger (neg_res ? (short)-1 : (short)1, result);
    }

    //returns the 0-based index of the most significant set bit
    //returns 0 if no bit is set, so extra care when using it
    static int BitScanBackward (uint word)
    {
      for (int i = 31; i >= 0; --i) {
        uint mask = 1u << i;
        if ((word & mask) == mask)
          return i;
      }
      return 0;
    }

    public static BigInteger operator<< (BigInteger value, int shift)
    {
      if (shift == 0 || value.sign == 0)
        return value;
      if (shift < 0)
        return value >> -shift;

      uint[] data = value.data;
      int sign = value.sign;

      int topMostIdx = BitScanBackward (data [data.Length - 1]);
      int bits = shift - (31 - topMostIdx);
      int extra_words = (bits >> 5) + ((bits & 0x1F) != 0 ? 1 : 0);

      uint[] res = new uint [data.Length + extra_words];

      int idx_shift = shift >> 5;
      int bit_shift = shift & 0x1F;
      int carry_shift = 32 - bit_shift;

      for (int i = 0; i < data.Length; ++i) {
        uint word = data [i];
        res [i + idx_shift] |= word << bit_shift;
        if (i + idx_shift + 1 < res.Length)
          res [i + idx_shift + 1] = word >> carry_shift;
      }

      return new BigInteger ((short)sign, res);
    }

    public static BigInteger operator>> (BigInteger value, int shift)
    {
      if (shift == 0 || value.sign == 0)
        return value;
      if (shift < 0)
        return value << -shift;

      uint[] data = value.data;
      int sign = value.sign;

      int topMostIdx = BitScanBackward (data [data.Length - 1]);
      int idx_shift = shift >> 5;
      int bit_shift = shift & 0x1F;

      int extra_words = idx_shift;
      if (bit_shift > topMostIdx)
        ++extra_words;
      int size = data.Length - extra_words;

      if (size <= 0) {
        if (sign == 1)
          return new BigInteger (0, ZERO);
        return new BigInteger (-1, ONE);
      }

      uint[] res = new uint [size];
      int carry_shift = 32 - bit_shift;

      for (int i = data.Length - 1; i >= idx_shift; --i) {
        uint word = data [i];

        if (i - idx_shift < res.Length)
          res [i - idx_shift] |= word >> bit_shift;
        if (i - idx_shift - 1 >= 0)
          res [i - idx_shift - 1] = word << carry_shift;
      }

      //Round down instead of toward zero
      if (sign == -1) {
        for (int i = 0; i < idx_shift; i++) {
          if (data [i] != 0u) {
            var tmp = new BigInteger ((short)sign, res);
            --tmp;
            return tmp;
          }
        }
        if (bit_shift > 0 && (data [idx_shift] << carry_shift) != 0u) {
          var tmp = new BigInteger ((short)sign, res);
          --tmp;
          return tmp;
        }
      }
      return new BigInteger ((short)sign, res);
    }

    public static bool operator< (BigInteger left, BigInteger right)
    {
      return Compare (left, right) < 0;
    }

    public static bool operator< (BigInteger left, long right)
    {
      return left.CompareTo (right) < 0;
    }


    public static bool operator< (long left, BigInteger right)
    {
      return right.CompareTo (left) > 0;
    }


    [CLSCompliantAttribute (false)]
    public static bool operator< (BigInteger left, ulong right)
    {
      return left.CompareTo (right) < 0;
    }

    [CLSCompliantAttribute (false)]
    public static bool operator< (ulong left, BigInteger right)
    {
      return right.CompareTo (left) > 0;
    }

    public static bool operator<= (BigInteger left, BigInteger right)
    {
      return Compare (left, right) <= 0;
    }

    public static bool operator<= (BigInteger left, long right)
    {
      return left.CompareTo (right) <= 0;
    }

    public static bool operator<= (long left, BigInteger right)
    {
      return right.CompareTo (left) >= 0;
    }

    [CLSCompliantAttribute (false)]
    public static bool operator<= (BigInteger left, ulong right)
    {
      return left.CompareTo (right) <= 0;
    }

    [CLSCompliantAttribute (false)]
    public static bool operator<= (ulong left, BigInteger right)
    {
      return right.CompareTo (left) >= 0;
    }

    public static bool operator> (BigInteger left, BigInteger right)
    {
      return Compare (left, right) > 0;
    }

    public static bool operator> (BigInteger left, long right)
    {
      return left.CompareTo (right) > 0;
    }

    public static bool operator> (long left, BigInteger right)
    {
      return right.CompareTo (left) < 0;
    }

    [CLSCompliantAttribute (false)]
    public static bool operator> (BigInteger left, ulong right)
    {
      return left.CompareTo (right) > 0;
    }

    [CLSCompliantAttribute (false)]
    public static bool operator> (ulong left, BigInteger right)
    {
      return right.CompareTo (left) < 0;
    }

    public static bool operator>= (BigInteger left, BigInteger right)
    {
      return Compare (left, right) >= 0;
    }

    public static bool operator>= (BigInteger left, long right)
    {
      return left.CompareTo (right) >= 0;
    }

    public static bool operator>= (long left, BigInteger right)
    {
      return right.CompareTo (left) <= 0;
    }

    [CLSCompliantAttribute (false)]
    public static bool operator>= (BigInteger left, ulong right)
    {
      return left.CompareTo (right) >= 0;
    }

    [CLSCompliantAttribute (false)]
    public static bool operator>= (ulong left, BigInteger right)
    {
      return right.CompareTo (left) <= 0;
    }

    public static bool operator== (BigInteger left, BigInteger right)
    {
      return Compare (left, right) == 0;
    }

    public static bool operator== (BigInteger left, long right)
    {
      return left.CompareTo (right) == 0;
    }

    public static bool operator== (long left, BigInteger right)
    {
      return right.CompareTo (left) == 0;
    }

    [CLSCompliantAttribute (false)]
    public static bool operator== (BigInteger left, ulong right)
    {
      return left.CompareTo (right) == 0;
    }

    [CLSCompliantAttribute (false)]
    public static bool operator== (ulong left, BigInteger right)
    {
      return right.CompareTo (left) == 0;
    }

    public static bool operator!= (BigInteger left, BigInteger right)
    {
      return Compare (left, right) != 0;
    }

    public static bool operator!= (BigInteger left, long right)
    {
      return left.CompareTo (right) != 0;
    }

    public static bool operator!= (long left, BigInteger right)
    {
      return right.CompareTo (left) != 0;
    }

    [CLSCompliantAttribute (false)]
    public static bool operator!= (BigInteger left, ulong right)
    {
      return left.CompareTo (right) != 0;
    }

    [CLSCompliantAttribute (false)]
    public static bool operator!= (ulong left, BigInteger right)
    {
      return right.CompareTo (left) != 0;
    }

    public override bool Equals (object obj)
    {
      if (!(obj is BigInteger))
        return false;
      return Equals ((BigInteger)obj);
    }

    public bool Equals (BigInteger other)
    {
      if (sign != other.sign)
        return false;
      if (data.Length != other.data.Length)
        return false;
      for (int i = 0; i < data.Length; ++i) {
        if (data [i] != other.data [i])
          return false;
      }
      return true;
    }

    public bool Equals (long other)
    {
      return CompareTo (other) == 0;
    }

    public override string ToString ()
    {
      return ToString (10, null);
    }

    string ToStringWithPadding (string format, uint radix, IFormatProvider provider)
    {
      if (format.Length > 1) {
        int precision = Convert.ToInt32(format.Substring (1), CultureInfo.InvariantCulture.NumberFormat);
        string baseStr = ToString (radix, provider);
        if (baseStr.Length < precision) {
          string additional = new String ('0', precision - baseStr.Length);
          if (baseStr[0] != '-') {
            return additional + baseStr;
          } else {
              return "-" + additional + baseStr.Substring (1);
          }
        }
        return baseStr;
      }
      return ToString (radix, provider);
    }

    public string ToString (string format)
    {
      return ToString (format, null);
    }

    public string ToString (IFormatProvider provider)
    {
      return ToString (null, provider);
    }


    public string ToString (string format, IFormatProvider provider)
    {
      if (format == null || format == "")
        return ToString (10, provider);

      switch (format[0]) {
      case 'd':
      case 'D':
      case 'g':
      case 'G':
      case 'r':
      case 'R':
        return ToStringWithPadding (format, 10, provider);
      case 'x':
      case 'X':
        return ToStringWithPadding (format, 16, null);
      default:
        throw new FormatException (string.Format ("format '{0}' not implemented", format));
      }
    }

    static uint[] MakeTwoComplement (uint[] v)
    {
      uint[] res = new uint [v.Length];

      ulong carry = 1;
      for (int i = 0; i < v.Length; ++i) {
        uint word = v [i];
        carry = (ulong)~word + carry;
        word = (uint)carry;
        carry = (uint)(carry >> 32);
        res [i] = word;
      }

      uint last = res [res.Length - 1];
      int idx = FirstNonFFByte (last);
      uint mask = 0xFF;
      for (int i = 1; i < idx; ++i)
        mask = (mask << 8) | 0xFF;

      res [res.Length - 1] = last & mask;
      return res;
    }

    string ToString (uint radix, IFormatProvider provider)
    {
      const string characterSet = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";

      if (characterSet.Length < radix)
        throw new ArgumentException ("charSet length less than radix", "characterSet");
      if (radix == 1)
        throw new ArgumentException ("There is no such thing as radix one notation", "radix");

      if (sign == 0)
        return "0";
      if (data.Length == 1 && data [0] == 1)
        return sign == 1 ? "1" : "-1";

      List<char> digits = new List<char> (1 + data.Length * 3 / 10);

      BigInteger a;
      if (sign == 1)
        a = this;
      else {
        uint[] dt = data;
        if (radix > 10)
          dt = MakeTwoComplement (dt);
        a = new BigInteger (1, dt);
      }    

      while (a != 0) {
        BigInteger rem;
        a = DivRem (a, radix, out rem);
        digits.Add (characterSet [(int) rem]);
      }

      if (sign == -1 && radix == 10) {
        NumberFormatInfo info = null;
        if (provider != null)
          info = provider.GetFormat (typeof (NumberFormatInfo)) as NumberFormatInfo;
        if (info != null) {
          string str = info.NegativeSign;
          for (int i = str.Length - 1; i >= 0; --i)
            digits.Add (str [i]);
        } else {
          digits.Add ('-');
        }
      }

      char last = digits [digits.Count - 1];
      if (sign == 1 && radix > 10 && (last < '0' || last > '9'))
        digits.Add ('0');
    
      digits.Reverse ();

      return new String (digits.ToArray ());
    }

    public static BigInteger Parse (string value)
    {
      Exception ex;
      BigInteger result;

      if (!Parse (value, false, out result, out ex))
        throw ex;
      return result;
    }


    public static bool TryParse (string value, out BigInteger result)
    {
      Exception ex;
      return Parse (value, true, out result, out ex);
    }

    static Exception GetFormatException ()
    {
      return new FormatException ("Input string was not in the correct format");
    }

    static bool ProcessTrailingWhitespace (bool tryParse, string s, int position, ref Exception exc)
    {
      int len = s.Length;
      
      for (int i = position; i < len; i++){
        char c = s [i];
        
        if (c != 0 && !Char.IsWhiteSpace (c)){
          if (!tryParse)
            exc = GetFormatException ();
          return false;
        }
      }
      return true;
    }

    static bool Parse (string s, bool tryParse, out BigInteger result, out Exception exc)
    {
      int len;
      int i, sign = 1;
      bool digits_seen = false;

      result = Zero;
      exc = null;

      if (s == null) {
        if (!tryParse)
          exc = new ArgumentNullException ("value");
        return false;
      }

      len = s.Length;

      char c;
      for (i = 0; i < len; i++){
        c = s [i];
        if (!Char.IsWhiteSpace (c))
          break;
      }
      
      if (i == len) {
        if (!tryParse)
          exc = GetFormatException ();
        return false;
      }

      var info = Thread.CurrentThread.CurrentCulture.NumberFormat;
      
      string negative = info.NegativeSign;
      string positive = info.PositiveSign;

      if (string.CompareOrdinal (s, i, positive, 0, positive.Length) == 0)
        i += positive.Length;
      else if (string.CompareOrdinal (s, i, negative, 0, negative.Length) == 0) {
        sign = -1;
        i += negative.Length;
      }

      BigInteger val = Zero;
      for (; i < len; i++){
        c = s [i];

        if (c == '\0') {
          i = len;
          continue;
        }

        if (c >= '0' && c <= '9'){
          byte d = (byte) (c - '0');

          val = val * 10 + d;

          digits_seen = true;
        } else if (!ProcessTrailingWhitespace (tryParse, s, i, ref exc))
          return false;
      }

      if (!digits_seen) {
        if (!tryParse)
          exc = GetFormatException ();
        return false;
      }

      if (val.sign == 0)
        result = val;
      else if (sign == -1)
        result = new BigInteger (-1, val.data);
      else
        result = new BigInteger (1, val.data);

      return true;
    }

    public static BigInteger Min (BigInteger left, BigInteger right)
    {
      int ls = left.sign;
      int rs = right.sign;

      if (ls < rs)
        return left;
      if (rs < ls)
        return right;

      int r = CoreCompare (left.data, right.data);
      if (ls == -1)
        r = -r;

      if (r <= 0)
        return left;
      return right;
    }


    public static BigInteger Max (BigInteger left, BigInteger right)
    {
      int ls = left.sign;
      int rs = right.sign;

      if (ls > rs)
        return left;
      if (rs > ls)
        return right;

      int r = CoreCompare (left.data, right.data);
      if (ls == -1)
        r = -r;

      if (r >= 0)
        return left;
      return right;
    }

    public static BigInteger Abs (BigInteger value)
    {
      return new BigInteger ((short)Math.Abs (value.sign), value.data);
    }


    public static BigInteger DivRem (BigInteger dividend, BigInteger divisor, out BigInteger remainder)
    {
      if (divisor.sign == 0)
        throw new DivideByZeroException ();

      if (dividend.sign == 0) {
        remainder = dividend;
        return dividend;
      }

      uint[] quotient;
      uint[] remainder_value;

      DivModUnsigned (dividend.data, divisor.data, out quotient, out remainder_value);

      int i;
      for (i = remainder_value.Length - 1; i >= 0 && remainder_value [i] == 0; --i) ;
      if (i == -1) {
        remainder = new BigInteger (0, ZERO);
      } else {
        if (i < remainder_value.Length - 1)
          remainder_value = Resize (remainder_value, i + 1);
        remainder = new BigInteger (dividend.sign, remainder_value);
      }

      for (i = quotient.Length - 1; i >= 0 && quotient [i] == 0; --i) ;
      if (i == -1)
        return new BigInteger (0, ZERO);
      if (i < quotient.Length - 1)
        quotient = Resize (quotient, i + 1);

      return new BigInteger ((short)(dividend.sign * divisor.sign), quotient);
    }

        public static BigInteger Pow (BigInteger value, int exponent)
    {
      if (exponent < 0)
        throw new ArgumentOutOfRangeException("exponent", "exp must be >= 0");
      if (exponent == 0)
        return One;
      if (exponent == 1)
        return value;

      BigInteger result = One;
      while (exponent != 0) {
        if ((exponent & 1) != 0)
          result = result * value;
        if (exponent == 1)
          break;

        value = value * value;
        exponent >>= 1;
      }
      return result;
        }

    public static BigInteger ModPow (BigInteger value, BigInteger exponent, BigInteger modulus) {
      if (exponent.sign == -1)
        throw new ArgumentOutOfRangeException("exponent", "power must be >= 0");
      if (modulus.sign == 0)
        throw new DivideByZeroException ();

      BigInteger result = One % modulus;
      while (exponent.sign != 0) {
        if (!exponent.IsEven) {
          result = result * value;
          result = result % modulus;
        }
        if (exponent.IsOne)
          break;
        value = value * value;
        value = value % modulus;
        exponent >>= 1;
      }
      return result;
    }

    public static BigInteger GreatestCommonDivisor (BigInteger left, BigInteger right)
    {
      if (left.data.Length == 1 && left.data [0] == 1)
        return new BigInteger (1, ONE);
      if (right.data.Length == 1 && right.data [0] == 1)
        return new BigInteger (1, ONE);
      if (left.IsZero)
        return right;
      if (right.IsZero)
        return left;

      BigInteger x = new BigInteger (1, left.data);
      BigInteger y = new BigInteger (1, right.data);

      BigInteger g = y;

      while (x.data.Length > 1) {
        g = x;
        x = y % x;
        y = g;

      }
      if (x.IsZero) return g;

      // TODO: should we have something here if we can convert to long?

      //
      // Now we can just do it with single precision. I am using the binary gcd method,
      // as it should be faster.
      //

      uint yy = x.data [0];
      uint xx = (uint)(y % yy);

      int t = 0;

      while (((xx | yy) & 1) == 0) {
        xx >>= 1; yy >>= 1; t++;
      }
      while (xx != 0) {
        while ((xx & 1) == 0) xx >>= 1;
        while ((yy & 1) == 0) yy >>= 1;
        if (xx >= yy)
          xx = (xx - yy) >> 1;
        else
          yy = (yy - xx) >> 1;
      }

      return yy << t;
    }

    /*LAMESPEC Log doesn't specify to how many ulp is has to be precise
    We are equilavent to MS with about 2 ULP
    */
    public static double Log (BigInteger value, Double baseValue)
    {
      if (value.sign == -1 || baseValue == 1.0d || baseValue == -1.0d ||
          baseValue == Double.NegativeInfinity || double.IsNaN (baseValue))
        return double.NaN;

      if (baseValue == 0.0d || baseValue == Double.PositiveInfinity)
        return value.IsOne ? 0 : double.NaN;
  
      if (value.sign == 0)
        return double.NegativeInfinity;

      int length = value.data.Length - 1;
      int bitCount = -1;
      for (int curBit = 31; curBit >= 0; curBit--) {
        if ((value.data [length] & (1 << curBit)) != 0) {
          bitCount = curBit + length * 32;
          break;
        }
      }

      long bitlen = bitCount;
      Double c = 0, d = 1;

      BigInteger testBit = One;
      long tempBitlen = bitlen;
      while (tempBitlen > Int32.MaxValue) {
        testBit = testBit << Int32.MaxValue;
        tempBitlen -= Int32.MaxValue;
      }
      testBit = testBit << (int)tempBitlen;

      for (long curbit = bitlen; curbit >= 0; --curbit) {
        if ((value & testBit).sign != 0)
          c += d;
        d *= 0.5;
        testBit = testBit >> 1;
      }
      return (System.Math.Log (c) + System.Math.Log (2) * bitlen) / System.Math.Log (baseValue);
    }


        public static double Log (BigInteger value)
    {
            return Log (value, Math.E);
        }


        public static double Log10 (BigInteger value)
    {
            return Log (value, 10);
        }

    [CLSCompliantAttribute (false)]
    public bool Equals (ulong other)
    {
      return CompareTo (other) == 0;
    }

    public override int GetHashCode ()
    {
      uint hash = (uint)(sign * 0x01010101u);

      for (int i = 0; i < data.Length; ++i)
        hash ^=  data [i];
      return (int)hash;
    }

    public static BigInteger Add (BigInteger left, BigInteger right)
    {
      return left + right;
    }

    public static BigInteger Subtract (BigInteger left, BigInteger right)
    {
      return left - right;
    }

    public static BigInteger Multiply (BigInteger left, BigInteger right)
    {
      return left * right;
    }

    public static BigInteger Divide (BigInteger dividend, BigInteger divisor)
    {
      return dividend / divisor;
    }

    public static BigInteger Remainder (BigInteger dividend, BigInteger divisor)
    {
      return dividend % divisor;
    }

    public static BigInteger Negate (BigInteger value)
    {
      return - value;
    }

    public int CompareTo (object obj)
    {
      if (obj == null)
        return 1;
      
      if (!(obj is BigInteger))
        return -1;

      return Compare (this, (BigInteger)obj);
    }

    public int CompareTo (BigInteger other)
    {
      return Compare (this, other);
    }

    [CLSCompliantAttribute (false)]
    public int CompareTo (ulong other)
    {
      if (sign < 0)
        return -1;
      if (sign == 0)
        return other == 0 ? 0 : -1;

      if (data.Length > 2)
        return 1;

      uint high = (uint)(other >> 32);
      uint low = (uint)other;

      return LongCompare (low, high);
    }

    int LongCompare (uint low, uint high)
    {
      uint h = 0;
      if (data.Length > 1)
        h = data [1];

      if (h > high)
        return 1;
      if (h < high)
        return -1;

      uint l = data [0];

      if (l > low)
        return 1;
      if (l < low)
        return -1;

      return 0;
    }

    public int CompareTo (long other)
    {
      int ls = sign;
      int rs = Math.Sign (other);

      if (ls != rs)
        return ls > rs ? 1 : -1;

      if (ls == 0)
        return 0;

      if (data.Length > 2)
        return -sign;

      if (other < 0)
        other = -other;
      uint low = (uint)other;
      uint high = (uint)((ulong)other >> 32);

      int r = LongCompare (low, high);
      if (ls == -1)
        r = -r;

      return r;
    }

    public static int Compare (BigInteger left, BigInteger right)
    {
      int ls = left.sign;
      int rs = right.sign;

      if (ls != rs)
        return ls > rs ? 1 : -1;

      int r = CoreCompare (left.data, right.data);
      if (ls < 0)
        r = -r;
      return r;
    }


    static int TopByte (uint x)
    {
      if ((x & 0xFFFF0000u) != 0) {
        if ((x & 0xFF000000u) != 0)
          return 4;
        return 3;
      }
      if ((x & 0xFF00u) != 0)
        return 2;
      return 1;  
    }

    static int FirstNonFFByte (uint word)
    {
      if ((word & 0xFF000000u) != 0xFF000000u)
        return 4;
      else if ((word & 0xFF0000u) != 0xFF0000u)
        return 3;
      else if ((word & 0xFF00u) != 0xFF00u)
        return 2;
      return 1;
    }

    public byte[] ToByteArray ()
    {
      if (sign == 0)
        return new byte [1];

      //number of bytes not counting upper word
      int bytes = (data.Length - 1) * 4;
      bool needExtraZero = false;

      uint topWord = data [data.Length - 1];
      int extra;

      //if the topmost bit is set we need an extra 
      if (sign == 1) {
        extra = TopByte (topWord);
        uint mask = 0x80u << ((extra - 1) * 8);
        if ((topWord & mask) != 0) {
          needExtraZero = true;
        }
      } else {
        extra = TopByte (topWord);
      }

      byte[] res = new byte [bytes + extra + (needExtraZero ? 1 : 0) ];
      if (sign == 1) {
        int j = 0;
        int end = data.Length - 1;
        for (int i = 0; i < end; ++i) {
          uint word = data [i];

          res [j++] = (byte)word;
          res [j++] = (byte)(word >> 8);
          res [j++] = (byte)(word >> 16);
          res [j++] = (byte)(word >> 24);
        }
        while (extra-- > 0) {
          res [j++] = (byte)topWord;
          topWord >>= 8;
        }
      } else {
        int j = 0;
        int end = data.Length - 1;

        uint carry = 1, word;
        ulong add;
        for (int i = 0; i < end; ++i) {
          word = data [i];
          add = (ulong)~word + carry;
          word = (uint)add;
          carry = (uint)(add >> 32);

          res [j++] = (byte)word;
          res [j++] = (byte)(word >> 8);
          res [j++] = (byte)(word >> 16);
          res [j++] = (byte)(word >> 24);
        }

        add = (ulong)~topWord + (carry);
        word = (uint)add;
        carry = (uint)(add >> 32);
        if (carry == 0) {
          int ex = FirstNonFFByte (word);
          bool needExtra = (word & (1 << (ex * 8 - 1))) == 0;
          int to = ex + (needExtra ? 1 : 0);

          if (to != extra)
            res = Resize (res, bytes + to);

          while (ex-- > 0) {
            res [j++] = (byte)word;
            word >>= 8;
          }
          if (needExtra)
            res [j++] = 0xFF;
        } else {
          res = Resize (res, bytes + 5);
          res [j++] = (byte)word;
          res [j++] = (byte)(word >> 8);
          res [j++] = (byte)(word >> 16);
          res [j++] = (byte)(word >> 24);
          res [j++] = 0xFF;
        }
      }

      return res;
    }

    static byte[] Resize (byte[] v, int len)
    {
      byte[] res = new byte [len];
      Array.Copy (v, res, Math.Min (v.Length, len));
      return res;
    }

    static uint[] Resize (uint[] v, int len)
    {
      uint[] res = new uint [len];
      Array.Copy (v, res, Math.Min (v.Length, len));
      return res;
    }

    static uint[] CoreAdd (uint[] a, uint[] b)
    {
      if (a.Length < b.Length) {
        uint[] tmp = a;
        a = b;
        b = tmp;
      }

      int bl = a.Length;
      int sl = b.Length;

      uint[] res = new uint [bl];

      ulong sum = 0;

      int i = 0;
      for (; i < sl; i++) {
        sum = sum + a [i] + b [i];
        res [i] = (uint)sum;
        sum >>= 32;
      }

      for (; i < bl; i++) {
        sum = sum + a [i];
        res [i] = (uint)sum;
        sum >>= 32;
      }

      if (sum != 0) {
        res = Resize (res, bl + 1);
        res [i] = (uint)sum;
      }

      return res;
    }

    /*invariant a > b*/
    static uint[] CoreSub (uint[] a, uint[] b)
    {
      int bl = a.Length;
      int sl = b.Length;

      uint[] res = new uint [bl];

      ulong borrow = 0;
      int i;
      for (i = 0; i < sl; ++i) {
        borrow = (ulong)a [i] - b [i] - borrow;

        res [i] = (uint)borrow;
        borrow = (borrow >> 32) & 0x1;
      }

      for (; i < bl; i++) {
        borrow = (ulong)a [i] - borrow;
        res [i] = (uint)borrow;
        borrow = (borrow >> 32) & 0x1;
      }

      //remove extra zeroes
      for (i = bl - 1; i >= 0 && res [i] == 0; --i) ;
      if (i < bl - 1)
        res = Resize (res, i + 1);

            return res;
    }


    static uint[] CoreAdd (uint[] a, uint b)
    {
      int len = a.Length;
      uint[] res = new uint [len];

      ulong sum = b;
      int i;
      for (i = 0; i < len; i++) {
        sum = sum + a [i];
        res [i] = (uint)sum;
        sum >>= 32;
      }

      if (sum != 0) {
        res = Resize (res, len + 1);
        res [i] = (uint)sum;
      }

      return res;
    }

    static uint[] CoreSub (uint[] a, uint b)
    {
      int len = a.Length;
      uint[] res = new uint [len];

      ulong borrow = b;
      int i;
      for (i = 0; i < len; i++) {
        borrow = (ulong)a [i] - borrow;
        res [i] = (uint)borrow;
        borrow = (borrow >> 32) & 0x1;
      }

      //remove extra zeroes
      for (i = len - 1; i >= 0 && res [i] == 0; --i) ;
      if (i < len - 1)
        res = Resize (res, i + 1);

            return res;
    }

    static int CoreCompare (uint[] a, uint[] b)
    {
      int  al = a.Length;
      int bl = b.Length;

      if (al > bl)
        return 1;
      if (bl > al)
        return -1;

      for (int i = al - 1; i >= 0; --i) {
        uint ai = a [i];
        uint bi = b [i];
        if (ai > bi)  
          return 1;
        if (ai < bi)  
          return -1;
      }
      return 0;
    }

    static int GetNormalizeShift(uint value) {
      int shift = 0;

      if ((value & 0xFFFF0000) == 0) { value <<= 16; shift += 16; }
      if ((value & 0xFF000000) == 0) { value <<= 8; shift += 8; }
      if ((value & 0xF0000000) == 0) { value <<= 4; shift += 4; }
      if ((value & 0xC0000000) == 0) { value <<= 2; shift += 2; }
      if ((value & 0x80000000) == 0) { value <<= 1; shift += 1; }

      return shift;
    }

    static void Normalize (uint[] u, int l, uint[] un, int shift)
    {
      uint carry = 0;
      int i;
      if (shift > 0) {
        int rshift = 32 - shift;
        for (i = 0; i < l; i++) {
          uint ui = u [i];
          un [i] = (ui << shift) | carry;
          carry = ui >> rshift;
        }
      } else {
        for (i = 0; i < l; i++) {
          un [i] = u [i];
        }
      }

      while (i < un.Length) {
        un [i++] = 0;
      }

      if (carry != 0) {
        un [l] = carry;
      }
    }

    static void Unnormalize (uint[] un, out uint[] r, int shift)
    {
      int length = un.Length;
      r = new uint [length];

      if (shift > 0) {
        int lshift = 32 - shift;
        uint carry = 0;
        for (int i = length - 1; i >= 0; i--) {
          uint uni = un [i];
          r [i] = (uni >> shift) | carry;
          carry = (uni << lshift);
        }
      } else {
        for (int i = 0; i < length; i++) {
          r [i] = un [i];
        }
      }
    }

    const ulong Base = 0x100000000;
    static void DivModUnsigned (uint[] u, uint[] v, out uint[] q, out uint[] r)
    {
      int m = u.Length;
      int n = v.Length;

      if (n <= 1) {
        //  Divide by single digit
        //
        ulong rem = 0;
        uint v0 = v [0];
        q = new uint[m];
        r = new uint [1];

        for (int j = m - 1; j >= 0; j--) {
          rem *= Base;
          rem += u[j];

          ulong div = rem / v0;
          rem -= div * v0;
          q[j] = (uint)div;
        }
        r [0] = (uint)rem;
      } else if (m >= n) {
        int shift = GetNormalizeShift (v [n - 1]);

        uint[] un = new uint [m + 1];
        uint[] vn = new uint [n];

        Normalize (u, m, un, shift);
        Normalize (v, n, vn, shift);

        q = new uint [m - n + 1];
        r = null;

        //  Main division loop
        //
        for (int j = m - n; j >= 0; j--) {
          ulong rr, qq;
          int i;

          rr = Base * un [j + n] + un [j + n - 1];
          qq = rr / vn [n - 1];
          rr -= qq * vn [n - 1];

          for (; ; ) {
            // Estimate too big ?
            //
            if ((qq >= Base) || (qq * vn [n - 2] > (rr * Base + un [j + n - 2]))) {
              qq--;
              rr += (ulong)vn [n - 1];
              if (rr < Base)
                continue;
            }
            break;
          }


          //  Multiply and subtract
          //
          long b = 0;
          long t = 0;
          for (i = 0; i < n; i++) {
            ulong p = vn [i] * qq;
            t = (long)un [i + j] - (long)(uint)p - b;
            un [i + j] = (uint)t;
            p >>= 32;
            t >>= 32;
            b = (long)p - t;
          }
          t = (long)un [j + n] - b;
          un [j + n] = (uint)t;

          //  Store the calculated value
          //
          q [j] = (uint)qq;

          //  Add back vn[0..n] to un[j..j+n]
          //
          if (t < 0) {
            q [j]--;
            ulong c = 0;
            for (i = 0; i < n; i++) {
              c = (ulong)vn [i] + un [j + i] + c;
              un [j + i] = (uint)c;
              c >>= 32;
            }
            c += (ulong)un [j + n];
            un [j + n] = (uint)c;
          }
        }

        Unnormalize (un, out r, shift);
      } else {
        q = new uint [] { 0 };
        r = u;
      }
    }
  }
}
www.java2v.com | Contact Us
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.