乐筑天下

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

[编程交流] 舍入为偶数

[复制链接]
Andrew1979

52

主题

156

帖子

104

银币

后起之秀

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

铜币
260
发表于 2022-7-5 23:12:34 | 显示全部楼层 |阅读模式
在lisp中有没有办法将其四舍五入到最近的偶数？
例如，如果我把一个距离除以某个数字，然后它除以5，我怎么能把它变成6呢。当然，如果它被分成4，我不想对这个数字做任何事情。
谢谢
回复

使用道具 举报

marko_ribar

5

主题

1334

帖子

1410

银币

限制会员

铜币
-20
发表于 2022-7-5 23:23:31 | 显示全部楼层 
  2. (defun even ( n )
  3.  (setq n (fix n))
  4.  (if (not (eq (rem n 2) 0))
  5.    (setq n (1+ n))
  6.  )
  7.  n
  8. )

 
  2. (even 2.1 => 2)
  3. (even 5.3 => 6)
回复

使用道具 举报

Andrew1979

52

主题

156

帖子

104

银币

后起之秀

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

铜币
260
发表于 2022-7-5 23:33:04 | 显示全部楼层
谢谢，效果很好。
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-5 23:42:53 | 显示全部楼层
另一个：
  1. (defun even ( x ) (* 2 (fix (/ (1+ x) 2))))
并考虑负值：
  1. (defun even ( x ) (* 2 (fix (/ ((if (< x 0) 1- 1+) x) 2))))
和另一种方法：
  1. (defun even ( x ) (* 2 (atoi (rtos (/ x 2.0) 2 0))))
回复

使用道具 举报

Snownut

4

主题

194

帖子

192

银币

初来乍到

Rank: 1

铜币
25
发表于 2022-7-5 23:50:37 | 显示全部楼层
马尔科，
 
OP希望向上取整到下一个偶数，您的代码将2.1取整到2，应该是4。
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 00:00:42 | 显示全部楼层
 
据我所知，OP想要的是最近的偶数，而不是下一个：
 
回复

使用道具 举报

Snownut

4

主题

194

帖子

192

银币

初来乍到

Rank: 1

铜币
25
发表于 2022-7-6 00:07:22 | 显示全部楼层
没问题。。。。
回复

使用道具 举报

Andrew1979

52

主题

156

帖子

104

银币

后起之秀

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

铜币
260
发表于 2022-7-6 00:19:15 | 显示全部楼层
谢谢所有的回复，我现在已经开始工作了。这些论坛上有一些非常聪明的人。
回复

使用道具 举报

返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-11 03:13 , Processed in 0.650533 second(s), 68 queries .

© 2020-2025 乐筑天下

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