在 'partition' 和 'partition-all' 中，当 'step' 或 'n' 不是正数时发生无限循环

Question

如果你为 partition 传入非正数 'n' 或 'step'，你会得到一个无限循环。以下是一些例子：

(partition 0 [1 2 3])
(partition 1 -1 [1 2 3])

原因：partition 和 partition-all 没有检查 n 和 step 是否为正数。

方法：在 partition 和 partition-all 中添加检查以确保 n 和 step 为正数。

修补程序：clj-1647_3.patch

审阅者：Alex Miller

Answer 1

评论者：alexmiller

试试看

Answer 2

评论者：alexmiller

试试看

Answer 3

评论者：alexmiller

试试看

Answer 4

评论者：alexmiller

试试看

Answer 5

评论者：alexmiller

抱歉，浏览器失败了 :)

Answer 6

评论者：kworam

感谢你提出这个问题，Matthew，我真的很感激！

Answer 7

评论者：kworam

感谢你提出这个问题，Matthew，我真的很感激！

Answer 8

_评论者：alex+import_

新补丁：clj-1647.patch

包含测试，空白更改较少，手动抛出的 IAEs。我将很快进行一些基本基准测试，尽管我预期开销会相当低，因为我们只检查一次参数。

Kevin，你的补丁之所以对 partition-all 起作用而对 partition 不起作用，是因为 partition 在引导过程中定义得较早，而且{:pre .. :post ..} 映射直到它稍后增强时才被 defn 读取。

Answer 9

评论者：kworam

感谢你解决这个问题，Matthew！

Answer 10

评论者：alexmiller

补丁看起来基本良好。一些小改动

• internal-partition 和 internal-partition-all 应当使用 {{defn-}} 标记为私有。
• 提交描述应以 "CLJ-1647" 开始

Answer 11

评论者：mjg123

我添加了 clj-1647_2.patch 以覆盖此问题上的其他补丁。Jira 参考已添加到提交信息，并在可能的地方使用了 defn-（defn- 在某个私有函数之后才定义，但已手动添加 ^:private 元数据）

Answer 12

评论者：alexmiller

补丁更改了将 add-annotation 从 defn- 更改为 defn，但这似乎与补丁的意图无关？

Answer 13

评论者：mjg123

非常感谢 Alex 这么快就解决了这个问题——关于 add-annotation 中的那个错误，我很抱歉。请参阅 clj-1647_3.patch

Answer 14

引用: https://clojure.atlassian.net/browse/CLJ-1647（由 kworam 报告）