blob: 9dca82ae82732571df210590c0d1669fb93ec8c3 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
\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\
|
