結果

問題 No.335 門松宝くじ
コンテスト
ユーザー ciel
提出日時 2016-01-16 00:22:20
言語 Crystal
(1.14.0)
結果
WA  
実行時間 -
コード長 565 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 11,980 ms
コンパイル使用メモリ 296,616 KB
実行使用メモリ 6,944 KB
最終ジャッジ日時 2024-06-30 18:55:07
合計ジャッジ時間 23,128 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2 WA * 2
other AC * 3 WA * 7
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

#!/usr/bin/env crystal
def value(n : Int32, a : Array(Int32))
	idxes=Hash(Int32,Int32).new
	a.each_with_index{|e,i|idxes[e]=i}
	ret=0
	1.upto(n-1){|i|
		idxi=idxes[i]
		(i+1).upto(n){|j|
			idxj=idxes[j]
			r=0
			(0..n-1).each{|idxk|
				next if idxk==idxi || idxk==idxj
				next if r<a[idxk]
				b=[[idxi,i],[idxj,j],[idxk,a[idxk]]].sort.map{|e|e[1]}
				r=a[idxk] if (b[0]<b[1]&&b[2]<b[1]) || (b[0]>b[1]&&b[2]>b[1])
			}
			ret+=[r,i,j].max if r>0
		}
	}
	ret
end
n,m=gets.not_nil!.split.map(&.to_i)
p (0..m-1).max_by{|i|value(n,gets.not_nil!.split.map(&.to_i))}
0