結果

問題 No.760 Where am I moved to?
ユーザー tailstails
提出日時 2018-12-08 01:22:40
言語 Perl
(5.38.2)
結果
AC  
実行時間 7 ms / 2,000 ms
コード長 374 bytes
コンパイル時間 230 ms
コンパイル使用メモリ 6,948 KB
実行使用メモリ 6,820 KB
最終ジャッジ日時 2024-11-25 05:40:23
合計ジャッジ時間 6,658 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge4
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 7 ms
6,820 KB
testcase_01 AC 7 ms
6,816 KB
testcase_02 AC 7 ms
6,820 KB
testcase_03 AC 7 ms
6,816 KB
testcase_04 AC 7 ms
6,816 KB
testcase_05 AC 7 ms
6,820 KB
testcase_06 AC 7 ms
6,816 KB
testcase_07 AC 6 ms
6,816 KB
testcase_08 AC 7 ms
6,816 KB
testcase_09 AC 7 ms
6,816 KB
testcase_10 AC 7 ms
6,816 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

($xa,$ya,$ta)=glob<>;
($x11,$y11)=glob<>;
($x12,$y12)=glob<>;
($x21,$y21)=glob<>;
($x22,$y22)=glob<>;

$pi=atan2(0,-1);

$d1y=$y12-$y11;
$d1x=$x12-$x11;
$a1=atan2($d1y,$d1x);
$d2y=$y22-$y21;
$d2x=$x22-$x21;
$a2=atan2($d2y,$d2x);

$t=$a1-$a2;

$s=sin($t);
$c=cos($t);
$x=$xa-$x21;
$y=$ya-$y21;
$xb=$x*$c-$y*$s+$x11;
$yb=$x*$s+$y*$c+$y11;

print $xb,$",$yb,$",$ta+$t*180/$pi;
0