Special divisors: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: added some comments.) |
SqrtNegInf (talk | contribs) (Added Perl) |
||
Line 35: | Line 35: | ||
131 137 139 143 149 151 157 163 167 169 173 179 181 187 191 193 197 199 |
131 137 139 143 149 151 157 163 167 169 173 179 181 187 191 193 197 199 |
||
</pre> |
</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}}== |
=={{header|Phix}}== |