Submission #11259667

---

Source Code Expand

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

chomp (my ($n, $a, $b) = split / /, <STDIN>);
my $ans = 0;
if ($a > $b) {
  $ans = 0;
} elsif ($n == 1) {
  $ans = ($a == $b)?1:0;
} else {
  $ans = ($n - 2) * ($b - $a) + 1;
}
say $ans;

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result