Gecko [ theprintave.ca ]

Linux webserver 6.8.0-49-generic #49~22.04.1-Ubuntu SMP PREEMPT_DYNAMIC Wed Nov 6 17:42:15 UTC 2 x86_64
Apache/2.4.52 (Ubuntu)
Server IP : 192.168.1.1 & Your IP : 3.139.55.240
Domains : Cant Read [ /etc/named.conf ]
User : www-data

Name	Size	Permission	Date
alarm.awk	2.31 KB	-rw-r--r--	2020-04-14 11:44
anagram.awk	1.33 KB	-rw-r--r--	2020-04-14 11:44
awksed.awk	515 B	-rw-r--r--	2020-04-14 11:44
cut.awk	3.61 KB	-rw-r--r--	2020-04-14 11:44
dupword.awk	507 B	-rw-r--r--	2020-04-14 11:44
egrep.awk	1.91 KB	-rw-r--r--	2020-04-14 11:44
extract.awk	1.84 KB	-rw-r--r--	2020-04-14 11:44
guide.awk	165 B	-rw-r--r--	2020-04-14 11:44
histsort.awk	283 B	-rw-r--r--	2020-04-14 11:44
id.awk	1.22 KB	-rw-r--r--	2020-04-14 11:44
igawk.sh	3.11 KB	-rw-r--r--	2020-04-14 11:44
indirectcall.awk	1.91 KB	-rw-r--r--	2020-04-14 11:44
labels.awk	1014 B	-rw-r--r--	2020-04-14 11:44
pi.awk	341 B	-rw-r--r--	2020-04-14 11:44
split.awk	1.17 KB	-rw-r--r--	2020-04-14 11:44
tee.awk	770 B	-rw-r--r--	2020-04-14 11:44
testbits.awk	736 B	-rw-r--r--	2020-04-14 11:44
translate.awk	1.15 KB	-rw-r--r--	2020-04-14 11:44
uniq.awk	2.64 KB	-rw-r--r--	2020-04-14 11:44
wc.awk	1.45 KB	-rw-r--r--	2020-04-14 11:44
wordfreq.awk	347 B	-rw-r--r--	2020-04-14 11:44

Rename

# anagram.awk --- An implementation of the anagram-finding algorithm
#                 from Jon Bentley's "Programming Pearls," 2nd edition.
#                 Addison Wesley, 2000, ISBN 0-201-65788-0.
#                 Column 2, Problem C, section 2.8, pp 18-20.
#
# This program requires gawk 4.0 or newer.
# Required gawk-specific features:
#   - True multidimensional arrays
#   - split() with "" as separator splits out individual characters
#   - asort() and asorti() functions
#
# See https://savannah.gnu.org/projects/gawk.
#
# Arnold Robbins
# arnold@skeeve.com
# Public Domain
# January, 2011

/'s$/   { next }        # Skip possessives
{
    key = word2key($1)  # Build signature
    data[key][$1] = $1  # Store word with signature
}
# word2key --- split word apart into letters, sort, and join back together

function word2key(word,     a, i, n, result)
{
    n = split(word, a, "")
    asort(a)

for (i = 1; i <= n; i++)
        result = result a[i]

return result
}
END {
    sort = "sort"
    for (key in data) {
        # Sort words with same key
        nwords = asorti(data[key], words)
        if (nwords == 1)
            continue

# And print. Minor glitch: trailing space at end of each line
        for (j = 1; j <= nwords; j++)
            printf("%s ", words[j]) | sort
        print "" | sort
    }
    close(sort)
}