给定一个包含一个固定参数和可变参数的函数,对于 apply 而言,仅强制评估 2 个元素就足够知道它应该选择哪个参数数量,但它目前强制评估 3 个元素。
`
user=> (defn x ([a & b]))
'user/x
user=> (apply x (map println (iterate inc 0)))
0
1
2
nil
`
这使得使用 apply 的惰性函数(例如 mapcat)比可能的情况更加非惰性。
提议的修复方案在 seq 计数大于最大固定参数后立即短路 RT.boundedLength
`
user=> (defn x ([a & b]))
'user/x
user=> (apply x (map println (iterate inc 0)))
0
1
nil
`