另类任意进制到十进制的新方法

阿杰

.版本 2
.子程序 任意进制到十进制, 长整数型, 公开
.参数 val, 文本型
.参数 src, , 可空, 支持2-36进制，源进制(默认16)
.局部变量 result, 长整数型
.局部变量 i, 整数型
.局部变量 data, 字节集
.局部变量 template16, 字节集, 静态
.局部变量 b, 字节型
.如果真 (src ≤ 1 或 src ＞ 36)
    src ＝ 16
.如果真结束
data ＝ 到字节集 (val)
.如果真 (template16 ＝ {  })
    ' 话说赋值(copy)居然浪费了我好多时间,囧,只能静态it!
    template16 ＝ { 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 255, 255, 255, 255, 255, 255, 255, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 255, 255, 255, 255, 255, 255, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255 }
.如果真结束
.计次循环首 (取字节集长度 (data), i)
    b ＝ template16 [data [i]]
    .如果真 (b ＞ src)
        跳出循环 ()
    .如果真结束
    result ＝ result × src ＋ b
.计次循环尾 ()
返回 (result)

阿杰

C的更简单直接 用printf命令就行