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

小妹丁

判断整数的尾数是2，已找到方法。


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


我想改进下彩票选出号码的程序。

Ea

小妹丁发表于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. )

复制代码

或者

2. (defun cuti (i)
3.    (setq i (fix i))
4.    (atoi (substr (itoa i) (strlen (itoa i))))
5. )

(defun cuti (i)    (setq i (fix i))    (atoi (substr (itoa i) (strlen (itoa i)))) )

_$ (cuti 65)
5
_$ (cuti 1009)
9
_$

小妹丁

把我给绕糊涂了，vl-list->string，我还不知道是什么意思，请多说两句，得唔得？

Ea

小妹丁发表于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)

meflying

彩票程序用LISP编？有创意！


工作累的时候，选个号......

无痕

小妹丁发表于2004-6-24 21:33:00回复：（小妹丁）如何判断整数的尾数判断整数的尾数是2，已找到方法。 其它的难道一定要用COND，与0，1，3，4，5，6，7，8，9，一一相减，才能实现？我想改进下彩票选出号码的程序。

2. (defun last2 (n)
3.    (= 2 (rem n 10))
4. )
5. (last2 42) -> T
6. (last2 33) -> nil
7. (last2 46) -> nil

(defun last2 (n)    (= 2 (rem n 10)) ) (last2 42) -> T (last2 33) -> nil (last2 46) -> nil

小妹丁

多谢。