diff options
| author | Andreas Grois <andi@grois.info> | 2025-12-05 00:06:58 +0100 |
|---|---|---|
| committer | Andreas Grois <andi@grois.info> | 2025-12-05 00:06:58 +0100 |
| commit | 1e4324fc92b863de1f52e4c5a7f2a45c4c0289fb (patch) | |
| tree | 806fd7b80e7d247e12049fb2e0e399acb9672154 /day3 | |
| parent | 1edd26243bde242f0de78c947c94cf3d73e6070b (diff) | |
Day 3
Diffstat (limited to 'day3')
| -rw-r--r-- | day3/day3.maxj.92f | bin | 0 -> 381 bytes | |||
| -rw-r--r-- | day3/day3.part1.92f | bin | 0 -> 121 bytes | |||
| -rw-r--r-- | day3/day3.part2.92f | bin | 0 -> 121 bytes | |||
| -rw-r--r-- | day3/day3.solution.92f | bin | 0 -> 399 bytes | |||
| -rw-r--r-- | day3/maxj.TXT | 32 | ||||
| -rw-r--r-- | day3/part1.TXT | 10 | ||||
| -rw-r--r-- | day3/part2.TXT | 10 | ||||
| -rw-r--r-- | day3/solution.TXT | 31 |
8 files changed, 83 insertions, 0 deletions
diff --git a/day3/day3.maxj.92f b/day3/day3.maxj.92f Binary files differnew file mode 100644 index 0000000..a989b8e --- /dev/null +++ b/day3/day3.maxj.92f diff --git a/day3/day3.part1.92f b/day3/day3.part1.92f Binary files differnew file mode 100644 index 0000000..3f154c0 --- /dev/null +++ b/day3/day3.part1.92f diff --git a/day3/day3.part2.92f b/day3/day3.part2.92f Binary files differnew file mode 100644 index 0000000..d19fc1a --- /dev/null +++ b/day3/day3.part2.92f diff --git a/day3/day3.solution.92f b/day3/day3.solution.92f Binary files differnew file mode 100644 index 0000000..aa0a2bf --- /dev/null +++ b/day3/day3.solution.92f diff --git a/day3/maxj.TXT b/day3/maxj.TXT new file mode 100644 index 0000000..ba14e2c --- /dev/null +++ b/day3/maxj.TXT @@ -0,0 +1,32 @@ +\START92\
+\COMMENT=Single file dated Fri Dec 5 00:04:04 20
+\NAME=maxj
+\FILE=day3.maxj.92f
+(arr,l)
+Func
+min(l,dim(arr))\->\l
+Local maxd,maxv,i,e,c,m,n,result
+0\->\result
+1\->\maxd
+For m,1,l
+ l-m\->\n
+ "0"\->\maxv
+ dim(arr)-n\->\e
+ For i,maxd,e
+ mid(arr,i,1)\->\c
+ If c>maxv Then
+ c\->\maxv
+ i+1\->\maxd
+ If c="9" Then
+ Goto break
+ EndIf
+ EndIf
+ EndFor
+ Lbl break
+ result*10+expr(maxv)\->\result
+EndFor
+
+Return result
+EndFunc
+
+\STOP92\
diff --git a/day3/part1.TXT b/day3/part1.TXT new file mode 100644 index 0000000..6790eed --- /dev/null +++ b/day3/part1.TXT @@ -0,0 +1,10 @@ +\START92\
+\COMMENT=Single file dated Fri Dec 5 00:04:17 20
+\NAME=part1
+\FILE=day3.part1.92f
+(s)
+Func
+solution(s,2)
+EndFunc
+
+\STOP92\
diff --git a/day3/part2.TXT b/day3/part2.TXT new file mode 100644 index 0000000..5a90b13 --- /dev/null +++ b/day3/part2.TXT @@ -0,0 +1,10 @@ +\START92\
+\COMMENT=Single file dated Fri Dec 5 00:04:20 20
+\NAME=part2
+\FILE=day3.part2.92f
+(s)
+Func
+solution(s,12)
+EndFunc
+
+\STOP92\
diff --git a/day3/solution.TXT b/day3/solution.TXT new file mode 100644 index 0000000..52fcc0b --- /dev/null +++ b/day3/solution.TXT @@ -0,0 +1,31 @@ +\START92\
+\COMMENT=Single file dated Fri Dec 5 00:04:24 20
+\NAME=solution
+\FILE=day3.solution.92f
+(s,l)
+Func
+Local ds,p1,p2,curr,result
+0\->\result
+1\->\p1
+dim(s)\->\ds
+While p1\<=\ds
+ inString(s," ",p1)\->\p2
+ If p2\<=\0 Then
+ mid(s,p1)\->\curr
+ ds+1\->\p2
+ ElseIf p2=p1 Then
+ p1+1\->\p1
+ Goto continue
+ Else
+ mid(s,p1,p2-p1)\->\curr
+ EndIf
+ p2\->\p1
+
+ result+maxj(curr,l)\->\result
+ Lbl continue
+EndWhile
+
+Return result
+EndFunc
+
+\STOP92\
|