[LISP函数]：发一个进制任意转换函数增强版

狂刀

;| (x!x num from to) = 进制任意转换函数---by 狂刀.2005.10
参数:
      num =  要转换的数值
      from =　数值,表示要转换的数值的进制类型. 如:2,8,16
      to   =　数值,表示要转换成的数值的进制类型. 如:2,8,16
返回: 转换进制后的字符串/数值.
说明: 1. 支持 类型自动识别,返回结果类型同要转换的数值类型.
      2. 支持非标准进制!
测试:
(x!x "3a" 16 2) -> "111010"
(x!x '3a 16 2) -> 111010
(x!x '3a 16 12) ->4A ;;16进制转12进制.
(x!x "33" 4 7) -> "21" ;; 4进制转7进制. 33@4=15@10=21@7.
|;

191050006

好东西。。。。。。。。。学习学习