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/maxj.TXT | |
| parent | 1edd26243bde242f0de78c947c94cf3d73e6070b (diff) | |
Day 3
Diffstat (limited to 'day3/maxj.TXT')
| -rw-r--r-- | day3/maxj.TXT | 32 |
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\
|