13 lines
345 B
Plaintext
13 lines
345 B
Plaintext
}:r:|~ Read numbers in a loop.
|
|
}:b: Treat the queue as a stack and
|
|
<:2:= accumulate the binary digits
|
|
/=>&~ of the given number.
|
|
^:b:
|
|
<:0:-> Enqueue negative 1 as a sentinel.
|
|
{ Dequeue the first binary digit.
|
|
}:p:
|
|
~%={+ Rotate each binary digit into place and print it.
|
|
^:p:
|
|
<:a:~$ Output a newline.
|
|
^:r:
|