From 1e4324fc92b863de1f52e4c5a7f2a45c4c0289fb Mon Sep 17 00:00:00 2001 From: Andreas Grois Date: Fri, 5 Dec 2025 00:06:58 +0100 Subject: Day 3 --- day3/day3.maxj.92f | Bin 0 -> 381 bytes day3/day3.part1.92f | Bin 0 -> 121 bytes day3/day3.part2.92f | Bin 0 -> 121 bytes day3/day3.solution.92f | Bin 0 -> 399 bytes day3/maxj.TXT | 32 ++++++++++++++++++++++++++++++++ day3/part1.TXT | 10 ++++++++++ day3/part2.TXT | 10 ++++++++++ day3/solution.TXT | 31 +++++++++++++++++++++++++++++++ 8 files changed, 83 insertions(+) create mode 100644 day3/day3.maxj.92f create mode 100644 day3/day3.part1.92f create mode 100644 day3/day3.part2.92f create mode 100644 day3/day3.solution.92f create mode 100644 day3/maxj.TXT create mode 100644 day3/part1.TXT create mode 100644 day3/part2.TXT create mode 100644 day3/solution.TXT diff --git a/day3/day3.maxj.92f b/day3/day3.maxj.92f new file mode 100644 index 0000000..a989b8e Binary files /dev/null and b/day3/day3.maxj.92f differ diff --git a/day3/day3.part1.92f b/day3/day3.part1.92f new file mode 100644 index 0000000..3f154c0 Binary files /dev/null and b/day3/day3.part1.92f differ diff --git a/day3/day3.part2.92f b/day3/day3.part2.92f new file mode 100644 index 0000000..d19fc1a Binary files /dev/null and b/day3/day3.part2.92f differ diff --git a/day3/day3.solution.92f b/day3/day3.solution.92f new file mode 100644 index 0000000..aa0a2bf Binary files /dev/null and b/day3/day3.solution.92f differ 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\ -- cgit v1.2.3