2025/01/puzzle-1.awk


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/usr/bin/awk -f

function mod(n, m)
{
	return ((n % m) + m) % m
}

BEGIN { dial = 50 }

/^L/ { sign = -1 }
/^R/ { sign = +1 }

{
	n = substr($0, 2)
	if ((dial = mod(dial + n*sign, 100)) == 0)
		acc++
}

END { print acc }