Data commit

Task/Binary-digits/CLU/binary-digits.clu

@@ -0,0 +1,17 @@
+binary = proc (n: int) returns (string)
+    bin: string := ""
+    while n > 0 do
+        bin := string$c2s(char$i2c(48 + n // 2)) || bin
+        n := n / 2
+    end
+    return(bin)
+end binary
+
+start_up = proc ()
+    po: stream := stream$primary_output()
+    tests: array[int] := array[int]$[5, 50, 9000]
+
+    for test: int in array[int]$elements(tests) do
+        stream$putl(po, int$unparse(test) || " -> " || binary(test))
+    end
+end start_up