結果
問題 |
No.3171 Color Restoration
|
ユーザー |
![]() |
提出日時 | 2025-06-06 21:49:08 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 7 ms / 2,000 ms |
コード長 | 230 bytes |
コンパイル時間 | 887 ms |
コンパイル使用メモリ | 8,224 KB |
実行使用メモリ | 7,848 KB |
最終ジャッジ日時 | 2025-06-06 21:49:11 |
合計ジャッジ時間 | 1,877 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 26 |
コンパイルメッセージ
Useless use of single ref constructor in void context at Main.pl line 2. Main.pl syntax OK
ソースコード
($a,$b,$c)=glob<>; \$a{$_}for"$a$b$c","$a$c$b","$b$a$c","$b$c$a","$c$a$b","$c$b$a"; print grep(/(gray|brown|green|cyan|blue|yellow|orange|red)(gray|green|blue|yellow|red)(gray|green|cyan|blue|violet|orange|red)/,keys%a)-1?No:Yes;