Anonymous user
Special divisors: Difference between revisions
→{{header|Nim}}
m (→{{header|REXX}}: added a foot header.) |
|||
Line 133:
131 137 139 143 149 151 157 163 167 169 173 179 181 187 191 193 197 199
</pre>
=={{header|Nim}}==
<lang Nim>import strutils
func reversed(n: Positive): int =
var n = n.int
while n != 0:
result = 10 * result + n mod 10
n = n div 10
func divisors(n: Positive): seq[int] =
result = @[1, n]
var d = 2
while d * d <= n:
if n mod d == 0:
result.add d
if d * d != n:
result.add n div d
inc d
var count = 0
for n in 1..<200:
let revn = reversed(n)
block check:
for d in divisors(n):
if revn mod reversed(d) != 0:
break check
inc count
stdout.write ($n).align(3), if count mod 12 == 0: '\n' else: ' '</lang>
{{out}}
<pre> 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|Perl}}==
| |||