結果
問題 | No.760 Where am I moved to? |
ユーザー |
![]() |
提出日時 | 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
ソースコード
($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;