mlemanczyk/even-perfect-numbers-scanner
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Optimize by-divisor cycle exponent reductions

Browse Source
This commit is contained in:
Marek Lemańczyk committed 2025-09-24 22:33:41 +02:00
1 parent a1abe71279
commit 760b941c06
1 file changed
+25 -6
Download Patch File Download Diff File Expand all files Collapse all files
PerfectNumbers.Core/Gpu/MersenneNumberDivisorByDivisorGpuTester.cs
+25 -6
View File
@@ -325,17 +325,27 @@ public sealed class MersenneNumberDivisorByDivisorGpuTester
return;
}
ulong exponent = prime;
if (useCycleChecks != 0)
{
ulong cycle = MersenneDivisorCycles.CalculateCycleLengthGpu(modulus);
if (cycle == 0UL || prime % cycle != 0UL)
if (cycle == 0UL)
{
hits[index] = 0;
return;
}
ulong remainder = prime % cycle;
if (remainder != 0UL)
{
hits[index] = 0;
return;
}
hits[index] = prime.Pow2MontgomeryMod(divisor) == 1UL ? (byte)1 : (byte)0;
exponent = remainder;
}
hits[index] = exponent.Pow2MontgomeryMod(divisor) == 1UL ? (byte)1 : (byte)0;
}
public sealed class DivisorScanSession : IDisposable
@@ -426,7 +436,8 @@ public sealed class MersenneNumberDivisorByDivisorGpuTester
return;
}
bool cycleEnabled = owner._useDivisorCycles && divisorCycle != 0UL;
ulong cycle = divisorCycle;
bool cycleEnabled = owner._useDivisorCycles && cycle != 0UL;
Accelerator accelerator = _accelerator;
Action<Index1D, MontgomeryDivisorData, ArrayView<ulong>, ArrayView<ulong>> kernel = _kernel;
@@ -458,7 +469,7 @@ public sealed class MersenneNumberDivisorByDivisorGpuTester
ArrayView1D<ulong, Stride1D.Dense> primeInputView = _resultsBuffer.View.SubView(0, batchSize);
primeInputView.CopyFromCPU(ref MemoryMarshal.GetReference(primesSlice), batchSize);
ArrayView1D<byte, Stride1D.Dense> cycleMaskView = cycleMaskViewFull.SubView(0, batchSize);
cycleKernel(batchSize, divisorCycle, primeInputView, cycleMaskView);
cycleKernel(batchSize, cycle, primeInputView, cycleMaskView);
accelerator.Synchronize();
cycleMaskView.CopyToCPU(ref MemoryMarshal.GetReference(cycleMaskSpan), batchSize);
}
@@ -486,16 +497,24 @@ public sealed class MersenneNumberDivisorByDivisorGpuTester
for (int i = 0; i < computeCount; i++)
{
ulong prime = primeSpan[i];
ulong exponentValue;
if (hasDeltaSource)
{
exponentSlice[i] = prime - currentPrime;
exponentValue = prime - currentPrime;
}
else
{
exponentSlice[i] = prime;
exponentValue = prime;
hasDeltaSource = true;
}
if (cycleEnabled)
{
exponentValue %= cycle;
}
exponentSlice[i] = exponentValue;
currentPrime = prime;
}