結果
問題 | No.1149 色塗りゲーム |
ユーザー |
![]() |
提出日時 | 2020-08-07 21:29:53 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 149 ms / 2,000 ms |
コード長 | 103 bytes |
コンパイル時間 | 192 ms |
コンパイル使用メモリ | 6,016 KB |
実行使用メモリ | 25,488 KB |
平均クエリ数 | 19.82 |
最終ジャッジ日時 | 2024-07-17 04:15:08 |
合計ジャッジ時間 | 7,370 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 50 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
$|=1;$n=<>;print $n%2?1:2,$",$n+1>>1,$/;while(<>>1){($k,$x)=glob<>;print $k,$",$n-$k+2-$x,$/;}