글 읽기 - 출력이 맞아보이는데... 오류라고 나옵니다...

tuna 8년 전 1

perl언어로 작성하였고

1~4번까지는 답안과 매칭

5~10까지 출력물을 봤지만 이상한점은 찾지못하였습니다..

무엇이 문제일까요? ㅠㅠ

use warnings;
use strict;

my $num = <STDIN>;

my $height = 2**$num-1;
my $width  = $height*2-1;

my $top_x   = int $width/2;
my $top_y   = 0;
my $start_x = 0;
my $start_y = $height-1;
my $end_x   = $width-1;
my $end_y   = $height-1;
my $pv = -1;
my @string_arr;

if ($num%2 == 0)
{
    $top_y      = $height-1;
    $start_y    = 0;
    $end_y      = 0;
    $pv = 1;
    
    for(my $i=0;$i<$height;$i++)
    {
        for(my $j=0;$j<$width-$i;$j++)
        {
            $string_arr[$i][$j] = " ";
        }
    }
}

else
{
    for(my $i=0;$i<$height;$i++)
    {
        for(my $j=0;$j<$width/2+$i;$j++)
        {
            $string_arr[$i][$j] = " ";
        }
    }
}





for(my $tr = 0; $tr < $num; $tr++)
{
    $pv *= -1;
    
    for(my $i = $start_x; $i < $top_x; $i++)
    {
        $string_arr[$start_y][$i] = "*";
        $string_arr[$start_y-(($i-$start_x)*$pv)][$i] = "*";
    }
    for(my $i = $top_x; $i <= $end_x; $i++)
    {
        $string_arr[$end_y][$i] = "*";
        $string_arr[$top_y+(($i-$top_x)*$pv)][$i] = "*";
    }
    
    #$top_x   = int $width/2;
    my $mov_x   = ($top_x-$start_x)/2+1;
    $start_x = $start_x + $mov_x;
    $end_x   = $end_x - $mov_x;
    
    my $mov_y   = ($start_y-$top_y)/2;
    $top_y   = $start_y-$pv;
    $start_y = $start_y-$mov_y;
    $end_y   = $start_y;
}
   
    
if ($num%2==0) {
    for(my $i=0;$i<$height;$i++)
    {
        for(my $j=0;$j<$width-$i;$j++)
        {
            print $string_arr[$i][$j];
        }
        print"\n";
    }
}

else
{
    for(my $i=0;$i<$height;$i++)
    {
        for(my $j=0;$j<$width/2+$i;$j++)
        {
            print $string_arr[$i][$j];
        }
        print"\n";
    }
}

baekjoon 8년 전 0

BEGIN failed--compilation aborted at Main.pl line 1.

이렇게 뜨면서 실행이 안됩니다.

baekjoon 8년 전 0

제가 Perl을 할 줄 몰라서 잘 모르겠는데, 위에 두 줄을 지우니 채점이 됩니다.

tuna 8년 전 0

해결되었네요 ㅠㅠ 감사합니다.

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

문제

문제

출처

ICPC

출력이 맞아보이는데... 오류라고 나옵니다...

tuna 8년 전 1

baekjoon 8년 전 0

baekjoon 8년 전 0

tuna 8년 전 0

Baekjoon Online Judge

채점 현황

문제

유저 대회

고등학교 대회

출처

대학교 대회

도움말