2015/06.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.16;
   4 use strict;
   5
   6 $_ = <>;
   7
   8 my @x = (0, 0);
   9 my @y = (0, 0);
  10 $; = ',';
  11 my %seen = ("0,0" => 1);
  12
  13 my $s = 0;
  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]}++;
  20         $s = 1-$s;
  21 }
  22
  23 say scalar keys %seen;
  24
  25