比较并减去下一个3值的当前值

Question

给定数组值，例如 1,3,4,7,8,8,9,9 ，当前值 7 ，我想要见 7-4,8-​​7,8-7,9-7,9-7 的结果。

伪代码如下。我试过但我被卡住了：

sub func
{ 
    my @arr = (1,3,4,7,8,8,9,9);
    my @arr1;
    foreach my $i (0..$#arr) 
    {        
        push (@arr1,$arr[$i]);
        if ($current_value =~ 7) 
        {  
            my $brk= (scalar @arr1) -1;
            for (my $counter = (scalar @arr1); $counter >= $brk ;$counter--) 
            {                        
                if($arr1[$counter] < $current_value)
                {
                    print $current_value - $arr1[$counter];
                }
                else
                {
                    next;
                }
            }          
        }
        else
        {
            next;        
        }    
    }  
}

Answer 1

我将问题分成了几个步骤：

1. 找到价值指数。如果给出索引，则可以跳过此步骤。
2. 使用下面的值计算减法。
3. 使用上面的一个或多个值计算减法。

请注意，您应该只根据索引而不是值来运行。