結果

問題 No.760 Where am I moved to?
ユーザー tailstails
提出日時 2018-12-08 01:22:40
言語 Perl
(5.38.0)
結果
AC  
実行時間 6 ms / 2,000 ms
コード長 374 bytes
コンパイル時間 493 ms
コンパイル使用メモリ 5,556 KB
実行使用メモリ 5,828 KB
最終ジャッジ日時 2023-08-16 15:53:33
合計ジャッジ時間 2,698 ms
ジャッジサーバーID
(参考情報)
judge14 / judge13
このコードへのチャレンジ(β)

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 5 ms
5,468 KB
testcase_01 AC 6 ms
5,680 KB
testcase_02 AC 6 ms
5,676 KB
testcase_03 AC 5 ms
5,628 KB
testcase_04 AC 6 ms
5,520 KB
testcase_05 AC 5 ms
5,464 KB
testcase_06 AC 6 ms
5,520 KB
testcase_07 AC 5 ms
5,820 KB
testcase_08 AC 6 ms
5,532 KB
testcase_09 AC 5 ms
5,520 KB
testcase_10 AC 6 ms
5,828 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