Eban numbers: Difference between revisions
K
(→{{header|J}}: alternate approach) |
(K) |
||
Line 1,402:
eban numbers up to and including 100000000: 7999
eban numbers up to and including 1000000000: 7999</pre>
=={{header|K}}==
{{works with|ngn/k}}
<syntaxhighlight lang=K>eban: 1_{{{y[&y<x+1]}[y]@,/x+/:1000*,/z}[,/(2*!4)+/:10*0,3+!4;x]/0}@
#eban 1000
19
#{x[&1000<x]}eban 4000
21
#eban 1e4
79
#eban 1e5
399
#eban 1e6
399
#eban 1e7
1599
#eban 1e8
7999
#eban 1e9
7999
#eban 1e10
31999
#eban 1e11
159999
#eban 1e12
159999
#eban 1e13
639999
#eban 1e14
3199999</syntaxhighlight>
=={{header|Kotlin}}==
| |||