Longest string challenge: Difference between revisions
Content added Content deleted
(→{{header|MATLAB}} / {{header|Octave}}: Display Longest string) |
(→{{header|AWK}}: longest string) |
||
Line 213: | Line 213: | ||
} |
} |
||
MsgBox % buffer</lang> |
MsgBox % buffer</lang> |
||
=={{header|AWK}}== |
|||
<lang awk>#!/usr/bin/awk -f |
|||
BEGIN { |
|||
maxlen = 0; |
|||
lenList = 0; |
|||
} |
|||
{ |
|||
if (length($0)>maxlen) { |
|||
lenList = 1; |
|||
List[lenList] = $0; |
|||
maxlen = length($0); |
|||
} else if (length($0)==maxlen) |
|||
List[++lenList]=$0; |
|||
} |
|||
END { |
|||
for (k=1; k <= lenList; k++) print List[k]; |
|||
}</lang> |
|||
Output: |
|||
<pre>ccc |
|||
ddd |
|||
ggg</pre> |
|||
=={{header|C}}== |
=={{header|C}}== |
||
This is pointless on so many levels. |
This is pointless on so many levels. |
||
Line 365: | Line 392: | ||
exit(0); |
exit(0); |
||
}</lang> |
}</lang> |
||
=={{header|Go}}== |
=={{header|Go}}== |
||
<lang go>package main |
<lang go>package main |