tasks a-s

Task/Binary-digits/0815/binary-digits-1.0815

@@ -0,0 +1,12 @@
+}: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:

Task/Binary-digits/0815/binary-digits-2.0815

@@ -0,0 +1,4 @@
+echo -e "5\n32\n2329" | 0815 bin.0
+101
+110010
+10001100101001