結果
問題 | No.1377 Half xor Half |
ユーザー |
![]() |
提出日時 | 2021-02-10 17:23:44 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 4 ms / 2,000 ms |
コード長 | 249 bytes |
コンパイル時間 | 95 ms |
コンパイル使用メモリ | 6,812 KB |
実行使用メモリ | 5,632 KB |
最終ジャッジ日時 | 2024-07-08 03:51:54 |
合計ジャッジ時間 | 1,752 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge1 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 2 |
other | AC * 46 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
$,=$\=$/; $n=<>; @s=<>=~/./g; @t=<>=~/./g; @a=map{ ($s0,$s1)=@s[$_,$_-$n]; ($t0,$t1)=@t[$_,$_-$n]; $t0==$s0&&$t1==$s1?(): $t0==($s0^$s1)&&$t1==$s0?($_,$_+1): $t0==$s1&&$t1==($s0^$s1)?($_+$n,($_+$n+1)%@s): exit!print-1; }0..$n-1; print~~@a,@a;