[codingame] Power of Thor
SOLVE IT
토르의 망치, Mjöllnir 는 모든 힘을 잃었다…. 망치의 힘을 되찾기 위해 힘의 빛으로 안내해 줄 수 있겠는가?
주제: 조건문 (if…).
이 퍼즐은 과거 라그나로크 컨테스트에 제안되었던 시리즈중의 첫번째이다. 망치의 힘을 되찾게 되면, 다음 퍼즐로 건너가서 “토르 대 거인”에서 거인을 물리쳐라“. 더욱 어려울것이다.
프로그램
가로 40, 세로 18의 맵에서 움직인다. 토르는 지도위 임의의 지점에서 시작할 것이고, 최대한 빨리 힘의 빛에 도착해야 한다.
각 턴에서, 어느 방향으로 이동할지 다음 경우중에서 결정해야 한다.
- N (North)
- NE (North-East)
- E (East)
- SE (South-East)
- S (South)
- SW (South-West)
- W (West)
- NW (North-West)
승리조건
힘의 빛에 도달하면 당신이 승리한다.
패배 조건:
- 토르가 맵 밖으로 나간다.
- 힘의 빛에 도달하기 위한 에너지가 더 이상 남아있지 않다
기본 코드
<sxh perl>
select(STDOUT); $| = 1; # DO NOT REMOVE
Auto-generated code below aims at helping you parse
the standard input according to the problem statement.
LX: the X position of the light of power
LY: the Y position of the light of power
TX: Thor's starting X position
TY: Thor's starting Y position
chomp($tokens=<STDIN>);
($LX, $LY, $TX, $TY) = split(/ /,$tokens);
game loop
while (1) {
chomp($E = <STDIN>); # The level of Thor's remaining energy, representing the number of moves he can still make. # Write an action using print # To debug: print STDERR "Debug messages...\n";
print "SE\n"; # A single line providing the move to be made: N NE E SE S SW W or NW
}
</sxh>
코드작성
<sxh perl>
select(STDOUT); $| = 1; # DO NOT REMOVE
Auto-generated code below aims at helping you parse
the standard input according to the problem statement.
LX: the X position of the light of power
LY: the Y position of the light of power
TX: Thor's starting X position
TY: Thor's starting Y position
chomp($tokens=<STDIN>);
($LX, $LY, $TX, $TY) = split(/ /,$tokens);
$x = $LX - $TX;
$y = $LY - $TY;
# game loop
while (1) {
chomp($E = <STDIN>); # The level of Thor's remaining energy, representing the number of moves he can still make. # Write an action using print # To debug: print STDERR "Debug messages...\n"; print STDERR "energy:",$E,"\n";
print STDERR "X:",$x,"\tY:",$y,"\n"; if ($x > 0) { if ($y > 0) { $d = "SE"; $x--; $y--; } elsif ($y < 0) { $d = "NE"; $x--; $y++; } else{ $d = "E"; $x--; } } elsif ($x < 0) { if ($y > 0) { $d = "SW"; $x++; $y--; } elsif ($y < 0) { $d = "NW"; $x++; $y++; } else{ $d = "W"; $x++; } } else{ if ($y > 0) { $d = "S"; $y--; } elsif ($y < 0) { $d = "N"; $y++; } } print $d,"\n"; # A single line providing the move to be made: N NE E SE S SW W or NW
}
</sxh>
if문 줄이기
<sxh perl>
select(STDOUT); $| = 1; # DO NOT REMOVE
chomp($tokens=<STDIN>);
($LX, $LY, $TX, $TY) = split(/ /,$tokens);
$x = $LX - $TX;
$y = $LY - $TY;
# game loop
while (1) {
chomp($E = <STDIN>); # The level of Thor's remaining energy, representing the number of moves he can still make. $d =""; if ($y > 0) {$d.="S";$y--} elsif ($y < 0) {$d.="N";$y++} if ($x > 0) {$d.="E";$x--} elsif ($x < 0) {$d.="W";$x++}; print $d,"\n"; # A single line providing the move to be made: N NE E SE S SW W or NW
}
</sxh>