Solve day 8 part 1

1 files changed, 39 insertions, 0 deletions

diff --git a/2022/day08.awk b/2022/day08.awk
new file mode 100644
index 0000000..35505e4
--- /dev/null
+++ b/2022/day08.awk
@@ -0,0 +1,39 @@
+function visible(x, y) {
+	if (x == 1 || x == right) return 1;
+	if (y == 1 || y == bottom) return 1;
+	for (xx = x-1; xx >= 1; --xx) {
+		if (m[xx,y] >= m[x,y]) break;
+	}
+	if (!xx) return 1;
+	for (xx = x+1; xx <= right; ++xx) {
+		if (m[xx,y] >= m[x,y]) break;
+	}
+	if (xx > right) return 1;
+	for (yy = y-1; yy >= 1; --yy) {
+		if (m[x,yy] >= m[x,y]) break;
+	}
+	if (!yy) return 1;
+	for (yy = y+1; yy <= bottom; ++yy) {
+		if (m[x,yy] >= m[x,y]) break;
+	}
+	if (yy > bottom) return 1;
+	return 0;
+}
+BEGIN {
+	FS = "";
+}
+{
+	for (x = 1; x <= NF; ++x) {
+		m[x,NR] = $x;
+	}
+	right = NF;
+	bottom = NR;
+}
+END {
+	for (x = 1; x <= right; ++x) {
+		for (y = 1; y <= bottom; ++y) {
+			if (visible(x, y)) vis++;
+		}
+	}
+	print vis;
+}