Anonymous user
Kaprekar numbers: Difference between revisions
Updated to compile with Nim 1.4.
Alextretyak (talk | contribs) (Added 11l) |
(Updated to compile with Nim 1.4.) |
||
Line 3,347:
=={{header|Nim}}==
<lang nim>import strutils, sequtils
proc k(n: int): bool =
let n2 = $(n.
for i in 0 ..
let a = if i > 0: parseBiggestInt n2[0 ..
let b = parseBiggestInt n2[i .. n2.high]
if b > 0 and a + b == n:
return true
echo toSeq(1..10_000).filter(k)
echo len toSeq(1..1_000_000).filter(k)</lang>
{{out}}
<pre>[1, 9, 45, 55, 99, 297, 703, 999, 2223, 2728, 4879, 4950, 5050, 5292, 7272, 7777, 9999]
| |||