Submission #575403

---

Source Code Expand

use strict;

my ($min, $max) = get_array_from_stdin();
my ($cnt) = get_array_from_stdin();
for (my $i=1; $i <= $cnt; $i++) {
  my $tw = get_array_from_stdin();
  if ($tw > $max) {
    print "-1\n";
    next;
  }
  if ($tw < $min) {
    printf "%d\n", $min - $tw;
    next;
  }
  print "0\n";
}

### common sub routine ###

sub get_array_from_stdin {
  my $input = <STDIN>;
  chomp($input);
  if (wantarray) {
    return split /\s+/, $input;
  }
  return $input;
}

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result