結果
問題 | No.471 直列回転機 |
ユーザー |
![]() |
提出日時 | 2016-12-21 00:09:56 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 1,206 ms / 3,141 ms |
コード長 | 263 bytes |
コンパイル時間 | 506 ms |
コンパイル使用メモリ | 5,888 KB |
実行使用メモリ | 29,520 KB |
平均クエリ数 | 19589.39 |
最終ジャッジ日時 | 2024-06-11 10:14:40 |
合計ジャッジ時間 | 31,907 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 1 |
other | AC * 58 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
$|=1;$\=$/;$m=<>;$l[$_]=<> for 0..$m-1;print"? 0 0";($x00,$y00)=glob<>;print"? 1 0";($x10,$y10)=glob<>;print"? 0 1";($x01,$y01)=glob<>;print"!";for(@l){($x,$y)=/\S+/g;print $x00+$x*($x10-$x00)+$y*($x01-$x00),$",$y00+$x*($y10-$y00)+$y*($y01-$y00);}