結果

問題 No.4 おもりと天秤
ユーザー maimai
提出日時 2017-10-05 09:38:21
言語 Text
(cat 8.3)
結果
WA  
実行時間 -
コード長 1,333 bytes
コンパイル時間 158 ms
コンパイル使用メモリ 6,816 KB
実行使用メモリ 6,824 KB
最終ジャッジ日時 2024-11-16 20:58:11
合計ジャッジ時間 1,055 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge5
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 WA -
testcase_01 WA -
testcase_02 WA -
testcase_03 WA -
testcase_04 WA -
testcase_05 WA -
testcase_06 WA -
testcase_07 WA -
testcase_08 WA -
testcase_09 WA -
testcase_10 WA -
testcase_11 WA -
testcase_12 WA -
testcase_13 WA -
testcase_14 WA -
testcase_15 WA -
testcase_16 WA -
testcase_17 WA -
testcase_18 WA -
testcase_19 WA -
testcase_20 WA -
testcase_21 WA -
testcase_22 WA -
権限があれば一括ダウンロードができます

ソースコード

diff # 

; kuin_2017_09_17

func main()

	; おもりの数
	var n: int
	; おもりの重さ
	var ww: []int
	
	var ww_str: [][]char
	
	; = STDIN読み込み ============
	
	; 文字列を読み込み，整数に変換してnに格納する
	; 何故か参照として渡す仕様に注意
	do cui@input().toInt(&n)
	; 文字列を読み込み，半角スペースで区切ってww_strに格納する
	do ww_str :: cui@input().split(" ")
	
	; 配列wwの動的確保
	; # は，インスタンス生成を表現する．
	do ww :: #[n]int
	
	; forループ．cntはブロック名．変数ではないので代入不可．
	for cnt(0, n-1)
		; ww_str[cnt]を整数に変換して，ww[cnt]にセットする．
		do ww_str[cnt].toInt(&ww[cnt])
	end for
	
	; = 以降，動的計画法 ============
	
	var dp: []bool :: #[10001]bool
	
	do dp[0] :: true
	for i(0, n-1)
		var w : int :: ww[i]
		for c(10000, 0, -1) {逆順ループ}
			if (dp[c])
				do dp[c+w] :: true
			end if
		end for
	end for
	
	var sum: int :: 0
	for i(0, n-1)
		do sum :+ ww[i]
	end for
	
	{
	if (sum%2 = 1 | dp[sum/2] = false)
		do cui@print("impossible")
	else
		do cui@print("possible")
	end if
	}
	; 横に長くなってしまい，改行したいときは | を使う
	do cui@print(
	|	(sum%2 = 1 | dp[sum/2] = false)
	|	?("impossible", "possible")
	| )
	
end func
0