]>
www.fi.muni.cz Git - aoc.git/blob - 2015/06.pl
11 my %seen = ("0,0" => 1);
14 for my $v (split //) {
15 $x[$s]++ if $v eq '>';
16 $y[$s]++ if $v eq 'v';
17 $x[$s]-- if $v eq '<';
18 $y[$s]-- if $v eq '^';
19 $seen{$x[$s],$y[$s]}++;
23 say scalar keys %seen;