13 lines
267 B
Text
13 lines
267 B
Text
|
function longest(integer l)
|
||
|
|
object line = gets(fn)
|
||
|
|
if line=-1 then return l end if
|
||
|
|
if l>length(line) then return longest(l) end if
|
||
|
|
l = longest(length(line))
|
||
|
|
if l=length(line) then
|
||
|
|
puts(1,line)
|
||
|
|
end if
|
||
|
|
return l
|
||
|
|
end function
|
||
|
|
|
||
|
|
?longest(0)
|