From 1e4324fc92b863de1f52e4c5a7f2a45c4c0289fb Mon Sep 17 00:00:00 2001
From: Andreas Grois <andi@grois.info>
Date: Fri, 5 Dec 2025 00:06:58 +0100
Subject: Day 3

---
 day3/maxj.TXT | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 day3/maxj.TXT

(limited to 'day3/maxj.TXT')

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\
-- 
cgit v1.2.3