Data commit

Task/Knapsack-problem-0-1/Maple/knapsack-problem-0-1.maple

@@ -0,0 +1,29 @@
+weights := [9,13,153,50,15,68,27,39,23,52,11,32,24,48,73,42,43,22,7,18,4,30]:
+vals := [150,35,200,160,60,45,60,40,30,10,70,30,15,10,40,70,75,80,20,12,50,10]:
+items := ["map","compass","water","sandwich","glucose","tin","banana","apple","cheese","beer","suntan cream","camera","T-shirt","trousers","umbrella","waterproof trousers","waterproof overclothes","note-case","sunglasses","towel","socks","book"]:
+acc := Array(1..numelems(vals)+1,1..400+1,1,fill=0):
+len := numelems(weights):
+for i from 2 to len+1 do #number of items picked + 1
+	for j from 2 to 401 do #weight capacity left + 1
+		if weights[i-1] > j-1 then
+			acc[i,j] := acc[i-1, j]:
+		else
+			acc[i,j] := max(acc[i-1,j], acc[i-1, j-weights[i-1]]+vals[i-1]):
+		end if:
+	end do:
+end do:
+printf("Total Value is %d\n", acc[len+1, 401]):
+count := 0:
+i := len+1:
+j := 401:
+while (i>1 and j>1) do
+	if acc[i,j] <> acc[i-1,j] then
+		printf("Item: %s\n", items[i-1]):
+		count := count+weights[i-1]:
+		j := j-weights[i-1]:
+		i := i-1:
+	else
+		i := i-1:
+	end if:
+end do:
+printf("Total Weight is %d\n", count):