結果
| 問題 | 
                            No.197 手品
                             | 
                    
| コンテスト | |
| ユーザー | 
                             %20
                         | 
                    
| 提出日時 | 2018-06-17 17:17:50 | 
| 言語 | Perl  (5.40.0)  | 
                    
| 結果 | 
                             
                                AC
                                 
                             
                            
                         | 
                    
| 実行時間 | 5 ms / 1,000 ms | 
| コード長 | 145 bytes | 
| コンパイル時間 | 56 ms | 
| コンパイル使用メモリ | 6,812 KB | 
| 実行使用メモリ | 5,376 KB | 
| 最終ジャッジ日時 | 2024-07-20 03:54:38 | 
| 合計ジャッジ時間 | 1,448 ms | 
| 
                            ジャッジサーバーID (参考情報)  | 
                        judge4 / judge3 | 
| 外部呼び出し有り | 
(要ログイン)
| ファイルパターン | 結果 | 
|---|---|
| sample | AC * 4 | 
| other | AC * 43 | 
コンパイルメッセージ
Main.pl syntax OK
ソースコード
print`dd`=~/(...) 0 (?!\1)|(oxo|xox).1.\2|o.x.1.x.o|x.o.1.o.x|ooo.*x|xxx.*o|(oox|oxo|xoo).*(ooo|x.*x)|(oxx|xox|xxo).*(xxx|o.*o)/s?SUCCESS:FAILURE
            
%20