[過去ﾛｸﾞ] プログラミングのお題スレ Part16 (1002ﾚｽ)

プログラミングのお題スレ Part16 http://mevius.5ch.io/test/read.cgi/tech/1573948822/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

653: デフォルトの名無しさん [sage] 2020/01/19(日) 18:23:22 ID:t01ujcAX >>629 Perl5 use List::Util qw{max}; $W = 20; $n = @wv = ([3, 5],[5, 6],[6, 3],[3, 5],[5, 9],[2, 1],[7, 5],[4, 6],[8, 3]); @w = map{$$_[0]} @wv; @v = map{$$_[1]} @wv; $wt[$n][$_] = 0 for 0..$W; for ($i = $n - 1; $i >= 0; $i--) { 　for $j (0..$W) { 　　$ws = $wt[$i + 1][$j]; 　　$ws = max($wt[$i + 1][$j - $w[$i]] + $v[$i], $ws) if $j >= $w[$i]; 　　$wt[$i][$j] = $ws; 　} } print "価値合計最大: $wt[0][$W]\n"; $j = $W;

for $i (0..$n-1) { 　$ws = $wt[$i][$j]; 　if ($wt[$i + 1][$j] != $ws) { 　　print "[$w[$i], $v[$i]] "; 　　$ws -= $v[$i]; 　　for (; 0 <= $j; $j--) { last if $wt[$i + 1][$j] == $ws; } 　} } $ perl 16_629_nsp_dp.pl 価値合計最大: 31 [3, 5] [5, 6] [3, 5] [5, 9] [4, 6] http://mevius.5ch.io/test/read.cgi/tech/1573948822/653

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

あと 349 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.023s