Special divisors: Difference between revisions

Content added Content deleted

Inline

@@ Line 45: / Line 45: @@
 my @sd;
 for my $n (1..199) {
-    sub rev { join '', reverse split '', shift }
+    map { next if $_ != int $_ } map { reverse($n) / reverse $_ } divisors $n;
-    map { next if $_ != int $_ } map { rev($n) / rev $_ } divisors $n;
     push @sd, $n;
 }