aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Task/Kaprekar-numbers/Sidef/kaprekar-numbers.sidef
View file

@ -1,19 +1,18 @@
require('ntheory')
var kap = Hash()
for n (1..15) {
for n in (1..15) {
var np = (10**n - 1)
%S<ntheory>.fordivisors({ |d|
var dp = np//d
if ((d `gcd` dp) == 1) {
np.divisors.each { |d|
var dp = np/d
if (is_coprime(dp, d)) {
kap{ dp == 1 ? d : d*invmod(d, dp) } := 0 ++
}
}, np)
}
}
var nums = kap.keys.map{.to_n}.sort
var nums = kap.keys.map{ Num(_) }.sort
for n (6 .. 14) {
for n in (6 .. 14) {
var np = (10**n - 1)
printf("Kaprekar numbers <= 10^%2d: %5d\n", n, nums.count_by { .<= np })
}