blob: 30dc1d12ac0e0eb53f6bcef52c43a7a75f229b57 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
use strict;
use warnings;
my ($depth, $pos) = (0, 0);
my ($depth2, $pos2, $aim) = (0, 0, 0);
while (<>) {
if (/forward (\d+)/) {
$pos += $1;
$pos2 += $1;
$depth2 += $aim * $1;
} elsif (/down (\d+)/) {
$depth += $1;
$aim += $1;
} elsif (/up (\d+)/) {
$depth -= $1;
$aim -= $1;
}
}
print $depth * $pos, "\n";
print $depth2 * $pos2, "\n";
|