Rosetta Code

Special divisors: Difference between revisions

Page Discussion

Special divisors (view source)

Revision as of 18:05, 24 April 2021

41 bytes removed ,  3 years ago
m
→‎{{header|Perl}}: didn't need utility subroutine after all
(Added Perl)
m (→‎{{header|Perl}}: didn't need utility subroutine after all)
Line 45:
my @sd;
for my $n (1..199) {
sub revmap { joinnext '',if $_ != int $_ } map { reverse($n) split/ '',reverse shift$_ } divisors $n;
map { next if $_ != int $_ } map { rev($n) / rev $_ } divisors $n;
push @sd, $n;
}
SqrtNegInf
2,392

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/310223"