找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1681|回复: 8

[研讨] 十进制转二进制

[复制链接]

已领礼包: 1876个

财富等级: 堆金积玉

发表于 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=")))

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 604个

财富等级: 财运亨通

发表于 2014-12-13 11:32:49 | 显示全部楼层
不错的程序,顶了。到年终了,提建议的时候到了
写成如下看起来更简{:soso_e113:}
(defun sr (str)
  (mapcar '(lambda (x) (- x 48)) (vl-string->list str))
)

点评

习惯写成返回值形式了,便于理解程序,当然按你说的是简洁些。  详情 回复 发表于 2014-12-13 18:05
命令: (sr "2") (2) 命令: (sr "10") (1 0) 好像不对啊。  详情 回复 发表于 2014-12-13 11:50
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

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

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

好像不对啊。

点评

这个sr函数只是将字符串转化为表形式。  详情 回复 发表于 2014-12-13 18:10
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1876个

财富等级: 堆金积玉

 楼主| 发表于 2014-12-13 18:05:54 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2014-12-13 11:32
不错的程序,顶了。到年终了,提建议的时候到了
写成如下看起来更简
(defun sr (str)

习惯写成返回值形式了,便于理解程序,当然按你说的是简洁些。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1876个

财富等级: 堆金积玉

 楼主| 发表于 2014-12-13 18:10:50 | 显示全部楼层
newer 发表于 2014-12-13 11:50
命令: (sr "2")
(2)
命令: (sr "10")

这个sr函数只是将字符串转化为表形式。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

使用道具 举报

已领礼包: 2个

财富等级: 恭喜发财

发表于 2020-7-17 09:07:25 | 显示全部楼层
谢谢分享!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-9-22 19:10 , Processed in 0.204352 second(s), 41 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表