Generate random backronyms using the dictionary at /usr/share/dict/words

backronym.awk

BEGIN {
	while((getline < "/usr/share/dict/words") > 0) {
		first = substr($0, 1, 1)
		wordcnts[first]++
		words[first,wordcnts[first]] = $0
	}
	srand()
}
{
	len = length($0)
	for (i=1; i<=len; i++) {
		l = substr($0, i, 1)
		word = words[l,int(rand()*wordcnts[l])+1]
		printf "%s%s", word, (i < len ? " " : "\n")
	}
}