diff options
Diffstat (limited to 'day5/part1.TXT')
| -rw-r--r-- | day5/part1.TXT | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/day5/part1.TXT b/day5/part1.TXT new file mode 100644 index 0000000..9dca82a --- /dev/null +++ b/day5/part1.TXT @@ -0,0 +1,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\
|