明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2479|回复: 6

[求助]如何判断整数的尾数

[复制链接]
发表于 2004-6-24 21:33:00 | 显示全部楼层 |阅读模式
判断整数的尾数是2,已找到方法。


其它的难道一定要用COND,与0,1,3,4,5,6,7,8,9,一一相减,才能实现?


我想改进下彩票选出号码的程序。
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2004-6-24 21:44:00 | 显示全部楼层
小妹丁发表于2004-6-24 21:33:00回复:(小妹丁)如何判断整数的尾数判断整数的尾数是2,已找到方法。 其它的难道一定要用COND,与0,1,3,4,5,6,7,8,9,一一相减,才能实现?我想改进下彩票选出号码的程序。
绕一圈
  1. (atoi (vl-list->string
  2.                  (list (last (vl-string->list (itoa 65))))
  3.            )
  4. )
复制代码
或者
  1. (defun cuti (i)
  2.    (setq i (fix i))
  3.    (atoi (substr (itoa i) (strlen (itoa i))))
  4. )
_$ (cuti 65)
5
_$ (cuti 1009)
9
_$
 楼主| 发表于 2004-6-24 21:50:00 | 显示全部楼层
把我给绕糊涂了,vl-list->string,我还不知道是什么意思,请多说两句,得唔得?
发表于 2004-6-24 21:54:00 | 显示全部楼层
小妹丁发表于2004-6-24 21:50:00把我给绕糊涂了,vl-list->string,我还不知道是什么意思,请多说两句,得唔得?
不熟悉就用第二个。 将一系列与整数表相关联的字符组合成字符串
(vl-list->string char-codes-list) 参数 char-codes-list 非负整数表。表中的每个整数必须小于 256。 返回值 字符串,其中每个字符都是根据 char-codes-list 中的一个整数得来的。 样例 _$ (vl-list->string nil) "" _$ (vl-list->string '(49 50)) "12" 将字符串转换为字符代码表
(vl-string->list string) 参数 string 字符串。 返回值 表,其中的每个元素都是一个整数,代表着 string 中相应字符的字符代码。 样例 _$ (vl-string->list "") nil _$ (vl-string->list "12") (49 50)
发表于 2004-6-24 22:21:00 | 显示全部楼层
彩票程序用LISP编?有创意!


工作累的时候,选个号......
发表于 2004-6-25 00:31:00 | 显示全部楼层
小妹丁发表于2004-6-24 21:33:00回复:(小妹丁)如何判断整数的尾数判断整数的尾数是2,已找到方法。 其它的难道一定要用COND,与0,1,3,4,5,6,7,8,9,一一相减,才能实现?我想改进下彩票选出号码的程序。
  1. (defun last2 (n)
  2.    (= 2 (rem n 10))
  3. )
  4. (last2 42) -> T
  5. (last2 33) -> nil
  6. (last2 46) -> nil
 楼主| 发表于 2004-6-26 20:47:00 | 显示全部楼层
多谢。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-6 11:32 , Processed in 0.189207 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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