Anonymous user
Non-decimal radices/Convert: Difference between revisions
no edit summary
(added standard ml) |
No edit summary |
||
Line 623:
val it = 42 : int
</pre>
=={{header|Tcl}}==
Tcl <code>scan</code> and <code>format</code> commands can convert between decimal, octal and hexadecimal, but this solution can convert between any arbitrary bases.
<lang tcl>namespace eval baseconvert {
variable chars "0123456789abcdefghijklmnopqrstuvwxyz"
namespace export baseconvert
}
proc baseconvert::dec2base {n b} {
variable chars
expr {$n == 0 ? 0
: "[string trimleft [dec2base [expr {$n/$b}] $b] 0][string index $chars [expr {$n%$b}]]"
}
}
proc baseconvert::base2dec {n b} {
variable chars
set sum 0
foreach char [split $n ""] {
set sum [expr {$sum * $b}]
incr sum [string first $char $chars]
}
return $sum
}
proc baseconvert::baseconvert {n basefrom baseto} {dec2base [base2dec $n $basefrom] $baseto}
namespace import baseconvert::baseconvert
baseconvert 12345 10 23 ;# ==> 107h
baseconvert 107h 23 7 ;# ==> 50664
baseconvert 50664 7 10 ;# ==> 12345</lang>
| |||