Submission #11260940

---

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 $n = $#s;
my $ans = 2*($n-1);
if ($n==2) {
  say $ans;
  exit;
}
for my $i (1..$n-2) {
  if ($s[$i] eq 'U') {
    $ans += ($n-$i-1) + 2*$i;
  } else {
    $ans += 2*($n-$i-1) + $i;
  }
}
say $ans;

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result