public static mp_size_t mpn_sqrtrem(
	mp_ptr r1p,
	mp_ptr r2p,
	mp_ptr sp,
	mp_size_t n
)

Public Shared Function mpn_sqrtrem ( 
	r1p As mp_ptr,
	r2p As mp_ptr,
	sp As mp_ptr,
	n As mp_size_t
) As mp_size_t

public:
static mp_size_t mpn_sqrtrem(
	mp_ptr^ r1p, 
	mp_ptr^ r2p, 
	mp_ptr^ sp, 
	mp_size_t n
)

static member mpn_sqrtrem : 
        r1p : mp_ptr * 
        r2p : mp_ptr * 
        sp : mp_ptr * 
        n : mp_size_t -> mp_size_t 

// Create multi-precision operands, and expected result.
mp_ptr sp = new mp_ptr(new uint[] { 0x00000001, 0x00000001 });
mp_ptr r1p = new mp_ptr(new uint[sp.Size * (gmp_lib.mp_bytes_per_limb / 4)]);
mp_ptr r2p = new mp_ptr(new uint[sp.Size * (gmp_lib.mp_bytes_per_limb / 4)]);
mp_ptr result = new mp_ptr(new uint[] { 0x00010000, 0x00000000 });
mp_ptr remainder = new mp_ptr(new uint[] { 0x00000001, 0x00000000 });

// Set r1p = trunc(sqrt(sp)), r2p = sp - r1p^2
mp_size_t r2n = gmp_lib.mpn_sqrtrem(r1p, r2p, sp, sp.Size);

// Assert result.
Assert.IsTrue(r2n == 1);
 Assert.IsTrue(r1p.SequenceEqual(result));
Assert.IsTrue(r2p.SequenceEqual(remainder));

// Release unmanaged memory.
gmp_lib.free(sp, r1p, r2p, result);

' Create multi-precision operands, and expected result.
Dim sp As New mp_ptr(New UInteger() { &H1, &H1})
Dim r1p As New mp_ptr(New UInteger(sp.Size * (gmp_lib.mp_bytes_per_limb / 4) - 1) {})
Dim r2p As New mp_ptr(New UInteger(sp.Size * (gmp_lib.mp_bytes_per_limb / 4) - 1) {})
Dim result As New mp_ptr(New UInteger() { &H10000, &H0})
Dim remainder As New mp_ptr(New UInteger() { &H1, &H0})

' Set r1p = trunc(sqrt(sp)), r2p = sp - r1p^2
Dim r2n As mp_size_t = gmp_lib.mpn_sqrtrem(r1p, r2p, sp, sp.Size)

' Assert result.
Assert.IsTrue(r2n = 1)
Assert.IsTrue(r1p.SequenceEqual(result))
Assert.IsTrue(r2p.SequenceEqual(remainder))

' Release unmanaged memory.
gmp_lib.free(sp, r1p, r2p, result)

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.