Question

求个perl脚本，求分段函数

1分段函数

fij=1 Ni1≤j≥Ni2

fij=0 j≥Ni1或j≤Ni2

(j=1,2,…,99,100)

2 求下面的Pj

Pj=∑fij ∑的上限是m，下限是i=1.

3数据

Ni1 Ni2 Pj

52 71

34 48

21 47

19 38

86 99

15 39

19 59

48 59

80 89

83 100

46 54

Answer 1

sub P

{
my $n=shift;
my $r=0;
my @N=([52,71],[34,48],....);

for my $N (@N)
{
$r++ if ($n>=$N->[0] && $n<=$N->[1]);
}
$r;
}
可以自己先写下看

追问

1 数据非常多，程序可以优化吗？ 数据excel里俩列数分别表示Ni1，Ni2。

2 并且我的分段函数下面那个没=号。
fij=1 Ni1≤j≥Ni2
fij=0 j>Ni2或j<Ni1
3 Ni1 < Ni2