Anonymous user
Self-describing numbers: Difference between revisions
→{{header|Crystal}}
Line 612:
521001000 in 127.339214639 secs
./selfdescribing 171.69s user 7.81s system 112% cpu 2:38.96 total
</pre>
{{trans|Go and Wren}}
<lang ruby>def selfDesc(n)
ns = n.to_s
nc = ns.size
count = Array.new(nc, 0)
sum = 0
while n > 0
d = n % 10
return false if d >= nc # can't have a digit >= number of digits
sum += d
return false if sum > nc
count[d] += 1
n //= 10
end
# to be self-describing sum of digits must equal number of digits
return false if sum != nc
return ns == count.join() # there must always be at least one zero
end
start = Time.monotonic
print("The self-describing numbers are:")
i = 10i64 # self-describing number must end in 0
pw = 10i64 # power of 10
fd = 1i64 # first digit
sd = 1i64 # second digit
dg = 2i64 # number of digits
mx = 11i64 # maximum for current batch
lim = 9_100_000_001i64 # sum of digits can't be more than 10
while i < lim
if selfDesc(i)
secs = (Time.monotonic - start).total_seconds
print("\n#{i} in #{secs} secs")
end
i += 10
if i > mx
fd += 1
sd -= 1
if sd >= 0
i = pw * fd
else
pw *= 10
dg += 1
i = pw
fd = 1
sd = dg - 1
end
mx = i + sd * pw // 10
end
end
osecs = (Time.monotonic - start).total_seconds
print("\nTook #{osecs} secs overall")</lang>
System: I5-2410m, 2.9 GHz, Linux Kernel 5.5.17, Crystal 0.34
Compil: $ crystal build selfdescribing.cr --release
Run as: $ ./selfdescribing
{{out}}
<pre>The self-describing numbers are:
1210 in 2.8282e-5 secs
2020 in 5.823e-5 secs
21200 in 0.000171366 secs
3211000 in 0.025022473 secs
42101000 in 0.279668575 secs
521001000 in 3.864771331 secs
6210001000 in 52.883335718 secs
Took 63.117831317 secs overall
</pre>
| |||