1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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\
|
