Largest prime factor: Difference between revisions
Content added Content deleted
Catskill549 (talk | contribs) (added AWK) |
|||
Line 46: | Line 46: | ||
Largest prime factor of 6008 is 751 |
Largest prime factor of 6008 is 751 |
||
Largest prime factor of 751 is 751 |
Largest prime factor of 751 is 751 |
||
</pre> |
|||
=={{header|AWK}}== |
|||
<lang AWK> |
|||
# syntax: GAWK -f LARGEST_PRIME_FACTOR.AWK |
|||
# converted from FreeBASIC |
|||
BEGIN { |
|||
N = n = "600851475143" |
|||
j = 3 |
|||
while (!is_prime(n)) { |
|||
if (n % j == 0) { |
|||
n /= j |
|||
} |
|||
j += 2 |
|||
} |
|||
printf("The largest prime factor of %s is %d\n",N,n) |
|||
exit(0) |
|||
} |
|||
function is_prime(x, i) { |
|||
if (x <= 1) { |
|||
return(0) |
|||
} |
|||
for (i=2; i<=int(sqrt(x)); i++) { |
|||
if (x % i == 0) { |
|||
return(0) |
|||
} |
|||
} |
|||
return(1) |
|||
} |
|||
</lang> |
|||
{{out}} |
|||
<pre> |
|||
The largest prime factor of 600851475143 is 6857 |
|||
</pre> |
</pre> |
||