Binary digits: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,086: / Line 2,086: @@
 =={{header|EasyLang}}==
-<syntaxhighlight lang="text">func to2 n . r$ .
+<syntaxhighlight lang="text">
+func to2 n . r$ .
   if n > 0
     call to2 n div 2 r$
-    if n mod 2 = 0
+    r$ &= n mod 2
-      r$ &= "0"
-    else
-      r$ &= "1"
-    .
   else
     r$ = ""
@@ Line 2,101: / Line 2,098: @@
   call to2 n r$
   if r$ = ""
-    print "0"
+    r$ = "0"
-  else
-    print r$
   .
+  print r$
 .
 call pr2 5
 call pr2 50
-call pr2 9000</syntaxhighlight>
+call pr2 9000
+</syntaxhighlight>
 <pre>
@@ Line 2,115: / Line 2,112: @@
 10001100101000
 </pre>
 =={{header|EchoLisp}}==
 <syntaxhighlight lang="scheme">