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