結果

問題 No.3171 Color Restoration
ユーザー tails
提出日時 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

ソースコード

diff #

($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;
0