#276018 (Perl) No.437 cwwゲーム - yukicoder

提出ソース

結果

問題	No.437 cwwゲーム
コンテスト
ユーザー	%20
提出日時	2018-07-31 23:38:17
言語	Perl (5.40.0)
結果	AC
実行時間	12 ms / 2,000 ms
コード長	133 bytes
コンパイル時間	41 ms
コンパイル使用メモリ	5,248 KB
実行使用メモリ	5,632 KB
最終ジャッジ日時	2024-10-12 08:46:40
合計ジャッジ時間	1,314 ms
ジャッジサーバーID （参考情報）	judge4 / judge1

このコードへのチャレンジ
（要ログイン）

ファイルパターン	結果
sample	AC * 3
other	AC * 41

権限があれば一括ダウンロードができます

コンパイルメッセージ

Main.pl syntax OK

ソースコード

raw source code

sub f{
	pop=~/([1-9])(.*)(?!\1)(.)(.*)\3(?{
		push@_,["$1$3$3","$2$4$'"]
	})^/;
	(sort{$b-$a}map"@$_"+f($$_[1]),@_)[0]
}
print 0+f<>

0