这在Mathematica中不起作用。我需要它来查找列表元素之间的跳转为正的实例数。
这对我来说似乎很直观：Length[Select[{-2, 1, 2, 4}, #1 < #2 &]]
为什么这不起作用，应该怎么用？
我们不允许使用For，While，Do或Table命令...
答案 0 :(得分：0)
这是使用类似选择表格的一种方法
Length@Select[Partition[{-2, 1, 2, 4}, 2, 1], #[[1]] < #[[2]] &]
3
也
Count[#1 < #2 & @@@ Partition[{-2, 1, 2, 4}, 2, 1], True]
和
Count[Differences@{-2, 1, 2, 4}, _?(# > 0 &)]