perl - 我怎样才能在不自己滚动的情况下获得 Perl 中的所有局部极值？

Question

实现起来并不太难，但如果可能的话我更喜欢代码重用。

my @arr = (2,3,4,5,5,5,4,4,3,1,1,2,3,0,2,4);
my $ret = {MAXIMA=>[{INDEX=>3, VAL=>5},{INDEX=>4, VAL=>5},{INDEX=>5, VAL=>5}],
           MINIMA=>[{INDEX=>9, VAL=>1},{INDEX=>10, VAL=>1},{INDEX=>13, VAL=>0}]}

那么，您知道实现类似功能的任何模块吗？

Answer 1

这可能只是CPAN中的一个缺口；它可以使用本地极值模块。考虑完善并发布它!

局部最大值代码(有意针对可理解性而非效率进行了优化):

Need help with peak signal detection in Perl

请注意，当您考虑局部极值时，应该出现一些问题:应该包括端点吗？如果一个极值由几个连续的(相等的)数据点组成，你想要第一个、最后一个还是所有的索引？你想要所有的极值吗或者只是前k？如果多个最大值或最小值非常接近(彼此在 n 以内)，您想要全部还是只有一个？一个好的模块会让人们准确地选择他们想要的答案。