2015/05.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.16;
   4 use strict;
   5
   6 $_ = <>;
   7
   8 my ($x, $y) = (0, 0);
   9 $; = ',';
  10 my %seen = ("0,0" => 1);
  11
  12 for my $v (split //) {
  13         $x++ if $v eq '>';
  14         $y++ if $v eq 'v';
  15         $x-- if $v eq '<';
  16         $y-- if $v eq '^';
  17         $seen{$x,$y}++;
  18 }
  19
  20 say scalar keys %seen;
  21
  22