aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Anti-primes/Pluto/anti-primes.pluto
View file

@ -14,7 +14,7 @@ do -- Find the first 20 antiprimes.
ndc = {}
for i = 1, maxNumber do ndc[ i ] = 1 end
for i = 2, maxNumber do
for j = i, maxNumber, i do ++ ndc[ j ] end
for j = i, maxNumber, i do ndc[ j ] += 1 end
end
end
local factors = ndc[ number ]
@ -22,7 +22,7 @@ do -- Find the first 20 antiprimes.
table.insert( list, number )
mostFactors = factors
end
++ number
number += 1
end
return list
end