问题描述
在Java中,我可以做到
list.stream().peek(System.out::println).filter(i -> i >= 0).findFirst();
这将在列表中找到第一个正数,并打印从开始到第一个正数的所有数字。
我在Clojure中需要类似的东西,但是我找不到与peek类似的东西。 peek在Clojure中有一些不同之处。我需要创建一个副作用而不消耗序列,中介。正如元素通过一样,它们也应该传递给函数。 我可以自己实现它,但是我不想重塑现有的东西。好像是基本功能,我找不到合适的函数来调用。)
解决方法
如果您学习the Clojure CheatSheet,则可以找到功能split-with
,它几乎可以满足您的所有需求:
(ns tst.demo.core
(:use demo.core tupelo.core tupelo.test))
(dotest
(let [[dropped kept] (split-with #(neg? %) (range -10 10))]
(is= dropped [-10 -9 -8 -7 -6 -5 -4 -3 -2 -1])
(is= kept [0 1 2 3 4 5 6 7 8 9])
(is= 0 (first kept))))
如果将来需要使用某些东西,而找不到有效的内置函数,则可以始终使用loop/recur
编写简单的循环(或“递归”)。