結果

問題 No.760 Where am I moved to?
ユーザー tails
提出日時 2018-12-08 01:22:40
言語 Perl
(5.40.0)
結果
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
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
other AC * 11
権限があれば一括ダウンロードができます
コンパイルメッセージ
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;
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0