Largest prime factor: Difference between revisions
Added Perl
(→{{header|PL/I}}: buf fix) |
SqrtNegInf (talk | contribs) (Added Perl) |
||
Line 167:
print(A[matsize(A)[1],1])</lang>
{{out}}<pre>6857</pre>
=={{header|Perl}}==
<lang perl>use strict;
use warnings;
use feature 'say';
sub f {
my($n) = @_;
$n % $_ or return $_, f($n/$_) for 2..$n
}
say +(f 600851475143)[-2]</lang>;
{{out}}
<pre>6857</pre>
=={{header|PL/I}}==
| |||