diff options
| author | Andreas Grois <andi@grois.info> | 2025-12-19 22:20:34 +0100 |
|---|---|---|
| committer | Andreas Grois <andi@grois.info> | 2025-12-19 22:20:34 +0100 |
| commit | 375169efa68219af7e53ab24b10cfb8e5ee988ab (patch) | |
| tree | 5a39f0487942ef50b45991a77d47ec09c15fe2be /day5/part1.TXT | |
| parent | dcebd44260fa67b04d217e778265982393ccc032 (diff) | |
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\
|