2020/06/puzzle-1.awk


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/usr/bin/env -S awk -f

BEGIN { RS = "" }
{
	split($0, chars, "")
	for (i = 1; i <= length; i++) {
		if (chars[i] != "\n")
			answers[chars[i]] = 1
	}

	sum += length(answers)
	delete answers
}
END   { print sum }