Longest string challenge: Difference between revisions
Content deleted Content added
→{{header|MATLAB}} / {{header|Octave}}: Display Longest string |
|||
Line 498: | Line 498: | ||
ddd |
ddd |
||
ggg</lang> |
ggg</lang> |
||
=={{header|MATLAB}} / {{header|Octave}}== |
|||
<lang MATLAB>function longestString(file); |
|||
fid = fopen(file); |
|||
maxlen = 0; L = {}; |
|||
while ~feof(fid) |
|||
line = fgetl(fid); |
|||
if (length(line)>maxlen) |
|||
maxlen = length(line); |
|||
L = {line}; |
|||
elseif (length(line)==maxlen) |
|||
L{end+1} = line; |
|||
end; |
|||
end; |
|||
fclose(fid); |
|||
disp(L); |
|||
end; |
|||
</lang> |
|||
Output: |
|||
<pre> L = { |
|||
[1,1] = ccc |
|||
[1,2] = ddd |
|||
[1,3] = ggg |
|||
} </pre> |
|||
=={{header|OCaml}}== |
=={{header|OCaml}}== |