Largest prime factor: Difference between revisions

Content added Content deleted
(Added Perl)
m (→‎{{header|Perl}}: stray char)
Line 178: Line 178:
}
}


say +(f 600851475143)[-2]</lang>;
say +(f 600851475143)[-2]</lang>
{{out}}
{{out}}
<pre>6857</pre>
<pre>6857</pre>