Non-decimal radices/Convert: Difference between revisions
Content added Content deleted
(Added zkl) |
(→{{header|Perl}}: add Math::BaseCnv) |
||
Line 1,503: | Line 1,503: | ||
} while $int = int($int / $radix); |
} while $int = int($int / $radix); |
||
scalar reverse $numeral;}</lang> |
scalar reverse $numeral;}</lang> |
||
<code>Math::BaseCnv</code> can convert an integer to or from an |
|||
arbitrary other base. Its normal output is upper-case but the usual |
|||
<code>lc()</code> can convert (cf [[String case#Perl|String case]]). |
|||
<lang Perl>use Math::BaseCnv 'cnv'; |
|||
print cnv("1a", 16, 10),"\n"; # "1a" from hex to decimal prints 26 |
|||
print lc(cnv(26, 10, 16)),"\n"; # 26 from decimal to hex prints "1a"</lang> |
|||
<code>Math::BaseCalc</code> can do similar conversions with an |
|||
arbitrary set of characters for digits. |
|||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||
<lang perl6>sub from-base(Str $str, Int $base) { |
<lang perl6>sub from-base(Str $str, Int $base) { |