Это не работает в Mathematica. Мне нужно, чтобы найти количество экземпляров, для которых переход между элементами списка является положительным.
Вот формула, которая кажется мне интуитивно понятной: Length[Select[{-2, 1, 2, 4}, #1 < #2 &]]
Length[Select[{-2, 1, 2, 4}, #1 < #2 &]]
Почему это не работает и что я должен использовать вместо этого?
Нам не разрешено использовать For, While, Do или Table команду ...
For
While
Do
Table
Вот один из способов, используя подобную форму выбора
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 &)]