Eban numbers: Difference between revisions

Content added Content deleted
m (→‎{{header|K}}: more idiomatic)
(→‎{{header|K}}: more concise)
Line 1,405: Line 1,405:
=={{header|K}}==
=={{header|K}}==
{{works with|ngn/k}}
{{works with|ngn/k}}
<syntaxhighlight lang=K>eban: {1_((x<)_,/(,/(2*!4)+/:10*0,3+!4)+/:1000*,/)/0}
<syntaxhighlight lang=K>eban: {1_((x<)_,/(,/(2*!4)+/:10*0,3+!4)+/:1000*)/0}


#eban 1000
#eban 1000
19
19
#{x[&1000<x]}eban 4000
#(1000>)_eban 4000
21
21
#eban 1e4
#eban 1e4