乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 85|回复： 19

[编程交流] CAD是如何知道数字的

[复制链接]
LauKwokFai

14

主题

54

帖子

40

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
70
发表于 2022-7-6 09:34:00 | 显示全部楼层 |阅读模式
尊敬的各位：，
 
我想建立一个lisp，当输入数为单数时，执行例程a，当输入数为复数时执行例程B。。。。CAD如何知道输入数字是单数还是复数？
 
非常感谢。
回复

使用道具 举报

MSasu

35

主题

2471

帖子

2447

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2022-7-6 09:39:48 | 显示全部楼层
你是说奇数和偶数？
 
  1. (= (- (/ theNumber 2.0) (/ theNumber 2)) 0)

 
假设你的论点是一个整数。
 
当做
米尔恰
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
211
发表于 2022-7-6 09:42:15 | 显示全部楼层
 
如果使用getstring（string）
 
  1.  
  2. (setq number (getstring "\nEnter Number:"))
  3. (if ( = (strlen number) 1) (routine A)(Routine B))

 
如果您使用的是getint：（integer）
  1.  
  2. (setq number (getint "\nEnter Number:"))
  3. (if (< number 10)(routine A)(Routine B))
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
211
发表于 2022-7-6 09:45:29 | 显示全部楼层
 
我想你是对的。。OP的意思可能是奇数/偶数
 
或
  1. (equal  (fix (/ number 2.00))(/ number 2.00))
回复

使用道具 举报

LauKwokFai

14

主题

54

帖子

40

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
70
发表于 2022-7-6 09:49:05 | 显示全部楼层
 
对不起，我是说奇数和偶数！！
 
这是一个非常有趣的解决方案，非常感谢。
回复

使用道具 举报

MSasu

35

主题

2471

帖子

2447

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2022-7-6 09:53:04 | 显示全部楼层
不客气！
请检查pBe在他/这里的第二篇文章中提出的解决方案——比我的更简洁。
 
当做
米尔恰
回复

使用道具 举报

LauKwokFai

14

主题

54

帖子

40

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
70
发表于 2022-7-6 09:53:09 | 显示全部楼层
谢谢你们俩
回复

使用道具 举报

LibertyOne

7

主题

143

帖子

136

银币

初来乍到

Rank: 1

铜币
36
发表于 2022-7-6 09:57:07 | 显示全部楼层
 
为什么不定义两个函数EVENP和ODDP？
 
偶数时EVENP返回T，奇数时返回nil。
ODDP在奇数时返回T，在偶数时返回nil。
 
  2. (defun evenp (i) (= (rem i 2) 0))
  3. (defun oddp (i) (/= (rem i 2) 0))

 
使用：
 
奇怪的是，这条线与：
 
http://www.cadtutor.net/forum/showthread.php?58684-检查列表中的数字-%28单数或复数-%29
 
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
211
发表于 2022-7-6 10:00:00 | 显示全部楼层
 
 
不久前，我一直在试图证明这一点。。
 
谢谢你的片段李
回复

使用道具 举报

LauKwokFai

14

主题

54

帖子

40

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
70
发表于 2022-7-6 10:04:00 | 显示全部楼层
 
你可能会认为我们是一体的。
 
 
当做
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-7 02:27 , Processed in 0.470789 second(s), 72 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表