十进制转二进制

aimisiyou · 发表于 2014-12-12 19:26:29

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

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

×

(defun sr (str)
  (setq strlst (mapcar '(lambda (x) (- x 48)) (vl-string->list str)))
  strlst
)
(defun ften->bin (lst)
(setq blst nil binstr nil)
(while (apply 'or (mapcar '(lambda (x) (/= x 0)) lst ))
         (setq flag 0)
         (setq lst (mapcar '(lambda (x)
                                 (setq z (/ (+ (* flag 10) x) 2))
                                 (setq flag (rem (+ (* flag 10) x) 2))
                                    z
                              )
                        lst
                     )
            )
            (setq blst (cons flag blst))
)
(setq binstr (apply 'strcat (mapcar '(lambda (x) (itoa x)) blst)))
binstr
)
(ften->bin (sr (getstring "请输入十进制数n=")))

/db_自贡黄明儒_ · 发表于 2014-12-13 11:32:49

不错的程序，顶了。到年终了，提建议的时候到了
写成如下看起来更简{:soso_e113:}
(defun sr (str)
(mapcar '(lambda (x) (- x 48)) (vl-string->list str))
)

newer · 发表于 2014-12-13 11:50:33

/db_自贡黄明儒_ 发表于 2014-12-13 11:32
不错的程序，顶了。到年终了，提建议的时候到了
写成如下看起来更简
(defun sr (str)

命令: (sr "2")
(2)
命令: (sr "10")
(1 0)

好像不对啊。

aimisiyou · 发表于 2014-12-13 18:05:54

/db_自贡黄明儒_ 发表于 2014-12-13 11:32
不错的程序，顶了。到年终了，提建议的时候到了
写成如下看起来更简
(defun sr (str)

习惯写成返回值形式了，便于理解程序，当然按你说的是简洁些。

aimisiyou · 发表于 2014-12-13 18:10:50

newer 发表于 2014-12-13 11:50
命令: (sr "2")
(2)
命令: (sr "10")

这个sr函数只是将字符串转化为表形式。

显示全部楼层 · 发表于 2015-10-21 09:30:28

提示: 作者被禁止或删除内容自动屏蔽

zrg1 · 发表于 2020-7-17 09:07:25

谢谢分享!!!

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

放下筷碗该用户已被删除	发表于 2015-10-21 09:30:28 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
放下筷碗该用户已被删除	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报

[研讨] 十进制转二进制

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

点评

点评