結果

問題 No.620 ぐるぐるぐるりん
ユーザー tails
提出日時 2017-12-20 01:59:32
言語 Perl
(5.40.0)
結果
AC  
実行時間 43 ms / 1,000 ms
コード長 408 bytes
コンパイル時間 499 ms
コンパイル使用メモリ 7,072 KB
実行使用メモリ 6,528 KB
最終ジャッジ日時 2024-06-13 02:03:19
合計ジャッジ時間 2,500 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 28
権限があれば一括ダウンロードができます
コンパイルメッセージ
Name "main::p" used only once: possible typo at Main.pl line 3.
Main.pl syntax OK

ソースコード

diff #
プレゼンテーションモードにする

$n=<>;
for(1..$n){
    ($t,$p,$w,$v,$gx,$gy)=glob<>;
    $v+=1;
    $r=sqrt($v*$v+$w*$w);
    $z=0;
    for(0..$t-1){
        $z+=($r**($t-1-$_))**2
    }
    $a=atan2($w,$v);
    {
        $c=cos($a*$t);
        $s=sin($a*$t);
        $dx=($gx-$c*$r**$t)/$z;
        $dy=($gy-$s*$r**$t)/$z;
    }
    for(0..$t-1){
        $c=cos($a*($_-($t-1)));
        $s=sin($a*($_-($t-1)));
        $x=($dx*$c-$dy*$s)*$r**($t-1-$_);
        $y=($dx*$s+$dy*$c)*$r**($t-1-$_);
        print $x," ",$y,"\n";
    }
}
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0