A-M baby

Task/Knapsack-problem-Unbounded/AutoHotkey/knapsack-problem-unbounded.ahk

@@ -0,0 +1,25 @@
+Item  = Panacea,Ichor,Gold
+Value = 3000,1800,2500
+Weight= 3,2,20                         ; *10
+Volume= 25,15,2                        ; *1000
+
+StringSplit I, Item,  `,               ; Put input in arrays
+StringSplit W, Weight,`,
+StringSplit $, Value, `,
+StringSplit V, Volume,`,
+
+SetFormat Float, 0.3
+W := 250, V := 250, sW:=.1, sV:=.001   ; limits for the total, scale factors
+p := -1, Wp := -W1, Vp := -V1          ; initial values
+While (Wp+=W1) <= W && (Vp+=V1) <= V {
+   p++, Wi := Wp-W2, Vi := Vp-V2, i := -1
+   While (Wi+=W2) <= W && (Vi+=V2) <= V {
+      i++, Wg := Wi-W3, Vg := Vi-V3, g := -1
+      While (Wg+=W3) <= W && (Vg+=V3) <= V
+         If ($ <= Val := p*$1 + i*$2 + ++g*$3)
+             t := ($=Val ? t "`n    " : "    ")
+           . p "`t   " i "`t   " g "`t  " Wg*sW "`t   " Vg*sV
+           , $ := Val
+   }
+}
+MsgBox Value = %$%`n`nPanacea`tIchor`tGold`tWeight`tVolume`n%t%