March 2014 update

Task/Binary-digits/Maxima/binary-digits.maxima

@@ -1,15 +1,12 @@
 digits([arg]) := block(
    [n: first(arg), b: if length(arg) > 1 then second(arg) else 10, v: [ ], q],
-   if n = 0 then [0] else (
-      while n # 0 do (
-         [n, q]: divide(n, b),
-         v: endcons(q, v)
-      ),
-      v
-   )
-)$
-
-binary(n) := simplode(reverse(digits(9000, 2)))$
+   do (
+     [n, q]: divide(n, b),
+     v: cons(q, v),
+     if n=0 then return(v)))$
 
+binary(n) := simplode(digits(n, 2))$
 binary(9000);
-"10001100101000"
+/*
+                                10001100101000
+*/