Non-decimal radices/Convert: Difference between revisions
Content added Content deleted
(+AutoHotkey) |
|||
Line 155: | Line 155: | ||
===Other libraries or implementation specific extensions=== |
===Other libraries or implementation specific extensions=== |
||
As of February 2009 no open source libraries to do this task have been located. |
As of February 2009 no open source libraries to do this task have been located. |
||
=={{header|AutoHotkey}}== |
|||
<lang AutoHotkey> |
|||
msgbox % number2base(200, 16) ; 12 |
|||
msgbox % parse(200, 16) ; 512 |
|||
number2base(number, base) |
|||
{ |
|||
while, base < digit := floor(number / base) |
|||
{ |
|||
result := mod(number, base) . result |
|||
number := digit |
|||
} |
|||
result := digit . result |
|||
return result |
|||
} |
|||
parse(number, base) |
|||
{ |
|||
result = 0 |
|||
pos := strlen(number) - 1 |
|||
loop, parse, number |
|||
{ |
|||
result := ((base ** pos) * A_LoopField) + result |
|||
base -= 1 |
|||
} |
|||
return result |
|||
} |
|||
</lang> |
|||
=={{header|AWK}}== |
=={{header|AWK}}== |