1 files changed, 32 insertions, 0 deletions
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\