Special divisors: Difference between revisions
Added Perl
m (→{{header|REXX}}: added some comments.) |
SqrtNegInf (talk | contribs) (Added Perl) |
||
Line 35:
131 137 139 143 149 151 157 163 167 169 173 179 181 187 191 193 197 199
</pre>
=={{header|Perl}}==
{{libheader|ntheory}}
<lang perl>use strict;
use warnings;
use feature 'say';
use ntheory 'divisors';
my @sd;
for my $n (1..199) {
sub rev { join '', reverse split '', shift }
map { next if $_ != int $_ } map { rev($n) / rev $_ } divisors $n;
push @sd, $n;
}
say scalar(@sd) . " matching numbers:\n" .
(sprintf "@{['%4d' x @sd]}", @sd) =~ s/(.{40})/$1\n/gr;</lang>
{{out}}
<pre>72 matching numbers:
1 2 3 4 5 6 7 8 9 11
13 17 19 22 23 26 27 29 31 33
37 39 41 43 44 46 47 53 55 59
61 62 66 67 69 71 73 77 79 82
83 86 88 89 93 97 99 101 103 107
109 113 121 127 131 137 139 143 149 151
157 163 167 169 173 179 181 187 191 193
197 199</pre>
=={{header|Phix}}==
| |||