Largest prime factor: Difference between revisions
added AWK
Catskill549 (talk | contribs) (added AWK) |
|||
Line 46:
Largest prime factor of 6008 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>
| |||