Eban numbers: Difference between revisions

m
→‎{{header|K}}: more idiomatic
m (→‎{{header|K}}: slightly simpler)
m (→‎{{header|K}}: more idiomatic)
Line 1,405:
=={{header|K}}==
{{works with|ngn/k}}
<syntaxhighlight lang=K>eban: 1_{{1_((y+1x<)>)#_,/x+/:1000*,/z}[(,/(2*!4)+/:10*0,3+!4;x])+/:1000*,/)/0}@
 
#eban 1000
6,962

edits