Submission #694290

---

Source Code Expand

#! /usr/bin/perl


$N = <STDIN>;

%input_hash;
%output_hash;

foreach $i (1..$N){
  $line = <STDIN>;
  chomp $line;
  ($start,$end) = split(/-/, $line);
  
  if( substr($start,-1,1) % 5 == 0 ){
      # do tnohigj
  }elsif( substr($start,-1,1) < 5){
      $start = int($start/10) * 10;
  }else{
      $start = int($start/10) * 10 + 5;
  }

  if( substr($end,-1,1) % 5 == 0){
    #do nothing 
  }elsif( 0 < substr($end,-1,1 ) && substr($end,-1,1) < 5){
      $end = int($end/10) * 10 + 5;
  }else{
      $end = int($end/10 + 1) *10;
  }

  $input_hash{$start} = $end;
  print "start:".$start."\n";
  print "end:".$end."\n";
  print "------\n";
 
}

$s;
$e;
foreach $key(sort keys %input_hash){
  print "s:".$s."\n";
  print "e:".$e."\n";
  print "------\n";
  if(!$s){
      $s = $key;
      $e = $input_hash{$key};
      next;
  }
  if( $e < $key){
      $output_hash{$s} = $e;
      $s = $key;
      $e = $input_hash{$key};
      next;
  }
  if( $key < $input_hash{$key}){
      $e = $input_hash{$key};
  }
}
$output_hash{$s} = $e;
 

foreach $key(sort keys %output_hash){
    print $key."-".$output_hash{$key}."\n";
}

Submission Info

Compile Error

Useless use of a variable in void context at ./Main.pl line 7.
Useless use of a variable in void context at ./Main.pl line 8.
Useless use of a variable in void context at ./Main.pl line 38.
Useless use of a variable in void context at ./Main.pl line 39.
Name "main::i" used only once: possible typo at ./Main.pl line 10.
./Main.pl syntax OK

Judge Result