Submission #11260427

---

Source Code Expand

use v5.18; # strict say state
use warnings;
use List::Util qw(reduce first max min sum0);

chomp (my @s = split //, <STDIN>);
my $ans = 0;
for my $i (1..$#s) {
  for my $j (1..$#s) {
    next if $i==$j;
    if ($i<$j) {
      $ans++;
      $ans++ if $s[$i-1] eq 'D';
    } else {
      $ans++;
      $ans++ if $s[$i-1] eq 'U';
    }
  }
}
say $ans;

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result