Kaprekar numbers: Difference between revisions
m
→{{header|Sidef}}: code simplifications
(Added Erlang version) |
m (→{{header|Sidef}}: code simplifications) |
||
Line 4,363:
=={{header|Sidef}}==
{{trans|Perl}}
<lang ruby>
for n in (1..15) {
var np = (10**n - 1)
var dp = np
if (is_coprime(dp, d
kap{ dp == 1 ? d : d*invmod(d, dp) } := 0 ++
}
}
}
var nums = kap.keys.map{
for n in (6 .. 14) {
var np = (10**n - 1)
printf("Kaprekar numbers <= 10^%2d: %5d\n", n, nums.count_by { .<= np })
| |||