結果

問題 No.760 Where am I moved to?
ユーザー tails
提出日時 2018-12-08 01:22:40
言語 Perl
(5.16.3)
結果
AC  
実行時間 10 ms
コード長 374 Byte
コンパイル時間 1,649 ms
使用メモリ 8,916 KB
最終ジャッジ日時 2018-12-08 01:22:47

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
1a AC 9 ms
6,872 KB
1b AC 8 ms
6,868 KB
1c AC 10 ms
6,868 KB
2a AC 10 ms
6,872 KB
2b AC 9 ms
6,872 KB
2c AC 9 ms
6,872 KB
2d AC 9 ms
6,872 KB
2e AC 9 ms
6,868 KB
99_system_test1.txt AC 9 ms
8,912 KB
99_system_test2.txt AC 9 ms
8,916 KB
99_system_test3.txt AC 9 ms
8,916 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