Non-decimal radices/Convert: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,638: / Line 2,638: @@
   my($n,$b) = @_;
   my $s = "";
-  while ($n) {
+  do {
-    $s .= ('0'..'9','a'..'z')[$n % $b];
+    $s = ('0'..'9','a'..'z')[$n % $b] . $s
-    $n = int($n/$b);
+  } while $n = int($n / $b);
-  }
+  $s
-  scalar(reverse($s));
 }
 sub base_from {