二进制转十进制

aimisiyou · 发表于 2014-12-13 21:46:02

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun sr (str)
(mapcar '(lambda (x) (- x 48)) (vl-string->list str))
)
(defun fbin->ten (lst)
(setq tenlst nil)
(setq flst (mapcar '(lambda (x) 0) lst))
(mapcar '(lambda (y)
            (setq flag y)
            (setq flst (mapcar '(lambda (x)
                                    (setq z (rem (+ (* 2 x) flag) 10))
                                    (setq flag (/ (+ (* 2 x) flag) 10))
                                       z
                                 )
                           flst
                        )
               )
         )
   lst
)
(vl-string-left-trim "0" (apply 'strcat (mapcar '(lambda (x) (itoa x)) (reverse flst))))
)
(fbin->ten (sr (getstring "请输入二进制数n=")))

zrg1 · 发表于 2020-7-17 09:13:57

不错，谢谢分享！！！

账号		自动登录	找回密码
密码			立即注册

[研讨] 二进制转十进制

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子