Textonyms: Difference between revisions

m
→‎AWK: Redundant variable assignment removed
imported>Meerkut
(AWK (gawk) solution added)
imported>Meerkut
m (→‎AWK: Redundant variable assignment removed)
Line 312:
=={{header|AWK}}==
{{works with|gawk|5.1.0 }}
<syntaxhighlight lang="AWKawk">
#!/usr/bin/env -S gawk -E
 
Line 373:
for (jj=1; jj<=nn; jj++) {
lchr=qqq[jj]
if (pos1=index(AZ," "lchr" ")>0) { nmb = nmb XEK[lchr] }
else {
EE++
Anonymous user