（XD::Math:Dec->binary）十进制正整数转二进制字符串

wrsxed · 发表于 2017-7-18 10:17:46

谢谢分享，学习思路

498983253 · 发表于 2017-7-24 14:11:30

不错
不错
不错
不错
不错
不错
不错
不错

laiz3000 · 发表于 2017-8-8 13:14:55

学习一下

aimisiyou · 发表于 2017-8-8 13:32:07

q3_2006 发表于 2017-6-18 20:42

(defun XD::MATH:DEC->BINARY ()
(setq lst (mapcar '(lambda (x) (- x 48)) (vl-string->list (getstring))))
(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)))
)

liulisheng · 发表于 2017-8-11 13:38:45

taoyi0727 · 发表于 2017-11-23 13:44:48

好东西看看

a653896695 · 发表于 2017-12-17 19:53:19

看看学习学习

ssliujun · 发表于 2018-2-1 11:56:55

学习一下

lifei1979 · 发表于 2018-6-21 20:41:25

感谢大量分享程序！

qyming1996 · 发表于 2018-7-2 10:20:53

这个要学习

仲文玉 · 发表于 2018-7-2 10:44:03

回复看帖

wrf610051 · 发表于 2019-2-9 08:15:31

今天有时间，都想了解一下，谢谢分享。

lizhaojun45 · 发表于 2020-1-3 11:30:48

好好好好好好好好好

foer · 发表于 2020-1-14 14:36:40

支持一下支持一下

sachindkini · 发表于 2020-2-14 21:08:57

see the hidden content

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

[数学] （XD::Math:Dec->binary）十进制正整数转二进制字符串

评分