글 읽기 - Obstacle Course 이거 도대체 왜 틀리는지 모르겠습니다.

hsnks100 7년 전 0

예제도 잘 돌아가고

같은 버전으로 C++ 으로 짜면 돌아가는데 perl 로만 짜면 안됩니다.

C++ 으로 짠 소스는 http://codepad.org/bn9VgnmR 여기에 있습니다.

혹시 스크립트 언어랑 C++ 이랑 처리 방법이 다른가요? 채점 방식이나...

사람 한명 살려주세요. ㅜㅜ

use Data::Dumper;
use List::Util qw( min max );
my @inp;
push @inp, split while<>;

my $n;
my $tc = 1;
my $INF = 987654321;
while((my $n = shift @inp) != 0){
  foreach $i(1..$n){ 
    foreach $j(1..$n){
      my $v = shift @inp;
      $jido[$i][$j] = int($v);
    }
  }

  for my $i(1..$n){
    for my $j(1..$n){
      $dist[$i][$j] = $INF;
    }
  } 
  $dist[1][1] = $jido[1][1];

  my @queue;
  my %tt = (y => 1, x => 1, cost => $jido[1][1]);
  push @queue, \%tt;
  while(@queue != 0){
    #print "cnt1 = " . scalar @queue;
    # queue 에서 가장 작은 cost 를 뽑아
    my $minIndex = -1;
    my $minCost = $INF;
    
    for(my $i=0; $i<=$#queue; $i++){
      if($minCost > $queue[$i]->{cost}){
        $minCost = $queue[$i]->{cost};
        $minIndex = $i;
      }
    }

    # queue 에서 제거하고 그 곳에서 업데이트 시행
    $v = $queue[$minIndex]; 
    splice @queue, $minIndex, 1; 

    my @dx = (1, -1, 0, 0);
    my @dy = (0, 0, 1, -1);

    for(my $i=0; $i<=3; $i++){
      my $newY = $v->{y} + $dy[$i];
      my $newX = $v->{x} + $dx[$i];
      #print "$newY, $newX\n";

      if(1 <= $newY && $newY <= $n &&
        1 <= $newX && $newX <= $n){
        my $nextDist = $dist[$v->{y}][$v->{x}] + $jido[$newY][$newX];
        if($dist[$newY][$newX] > $nextDist){
          $dist[$newY][$newX] = $nextDist;
          my %temp = (y => $newY, x => $newX, 
            cost => $nextDist);
          push @queue, \%temp;
        }
      }
    }
  } 

  print "Problem $tc: $dist[$n][$n]\n";
  $tc++;
}

unstabler 7년 전 0

모듈 사용하시면 채점이 안되던걸로 알고 있습니다. (코어 모듈이라고 해도요..)

hsnks100 4년 전 0

기본 코어 모듈인데 안되면 말이 안되는거 아닌가요? STL 도 그럼 쓰면 안되죠.

minjoonist 4년 전 0

3년전 뒷북 실화

댓글을 작성하려면 로그인해야 합니다.

문제

문제

출처

ICPC

Obstacle Course 이거 도대체 왜 틀리는지 모르겠습니다.

hsnks100 7년 전 0

unstabler 7년 전 0

hsnks100 4년 전 0

minjoonist 4년 전 0

Baekjoon Online Judge

채점 현황

문제

유저 대회

고등학교 대회

출처

대학교 대회

도움말