Exactly three adjacent 3 in lists: Difference between revisions
Exactly three adjacent 3 in lists (view source)
Revision as of 21:56, 12 December 2021
, 2 years agoadded AWK
SqrtNegInf (talk | contribs) (→{{header|Perl}}: restore original, add alternate) |
Catskill549 (talk | contribs) (added AWK) |
||
Line 288:
[1, 2, 3, 4, 5, 6, 7, 8, 9] -> false
[4, 6, 8, 7, 2, 3, 3, 3, 1] -> true</pre>
=={{header|AWK}}==
<lang AWK>
# syntax: GAWK -f EXACTLY_THREE_ADJACENT_3_IN_LISTS.AWK
BEGIN {
list[++n] = "9,3,3,3,2,1,7,8,5"
list[++n] = "5,2,9,3,3,7,8,4,1"
list[++n] = "1,4,3,6,7,3,8,3,2"
list[++n] = "1,2,3,4,5,6,7,8,9"
list[++n] = "4,6,8,7,2,3,3,3,1"
for (i=1; i<=n; i++) {
tmp = "," list[i] ","
printf("%s %s\n",sub(/,3,3,3,/,"",tmp)?"T":"F",list[i])
}
exit(0)
}
</lang>
{{out}}
<pre>
T 9,3,3,3,2,1,7,8,5
F 5,2,9,3,3,7,8,4,1
F 1,4,3,6,7,3,8,3,2
F 1,2,3,4,5,6,7,8,9
T 4,6,8,7,2,3,3,3,1
</pre>
=={{header|C}}==
| |||