\START92\
\COMMENT=Single file dated Fri Dec 19 22:13:02 20
\NAME=part1
\FILE=day5.part1.92f
(rs,vs)
Func
Local lowerb,upperb,dimb,dimv,i,t,result
mat\to\list(rs[1])\->\lowerb
mat\to\list(rs[2])\->\upperb
dim(lowerb)\->\dimb
dim(vs)\->\dimv

0\->\result

For i,1,dimv
 init(dimb,vs[i])\->\t
 If any(t\>=\lowerb and t\<=\upperb) Then
  result+1\->\result
 EndIf
EndFor
result
EndFunc

\STOP92\