ढेर, 34 30 बाइट्स
@n 1 2 6|>2\^,:n 2 log>keep 0#
या
{!1 2 6|>2\^,:n 2 log>keep 0#}
पहला टीओएस पर इनपुट लेता है और टीओएस पर आउटपुट छोड़ता है; दूसरा एक फ़ंक्शन है। यहाँ कोशिश करो!
व्याख्या
@n 1 2 6|>2\^,:n 2 log>keep 0#
@n set TOS to `n`
1 2 6|>2\^, equiv. [1, ...2 ** range(2, 6)]
: duplicate it
n push `n`
2 log log base-2
> element-wise `>`
keep keep only truthy values
0# yield the first element
यहाँ इसका एक उदाहरण उत्तर पर काम कर रहा है :
> 8 (* input *)
(8)
> @n 1 2 6|>2\^,:n 2 log>keep 0# (* function *)
(4)
> (* output *)
(4)
परीक्षण के मामलों
> {!1 2 6|>2\^,:n 2 log>keep 0#} @:f
()
> (0 1 2 15 16 123 260 131313 34359750709) $f map
((1 1 4 4 8 8 16 32 64))
>
या, एक पूर्ण कार्यक्रम के रूप में:
{!1 2 6|>2\^,:n 2 log>keep 0#} @:f
(0 1 2 15 16 123 260 131313 34359750709) $f map
out
2
एक आउटपुट भी होता ...