Anonymous user
Knapsack problem/Unbounded: Difference between revisions
added J
(added J) |
|||
Line 408:
total volume: 0.247
total value: 54500</pre>
=={{header|J}}==
Brute force solution.
<pre>
mxW=: 25
mxV=: 0.25
prods=: <;. _1 ' panacea: ichor: gold:'
hdrs=: <;. _1 ' weight: volume: value:'
vls=: 3000 1800 2500
ws=: 0.3 0.2 2.0
vs=: 0.025 0.015 0.002
ip=: +/ .*
prtscr=: (1!:2)&2
KS=: 3 : 0
os=. (#:i.@(*/))(mxW,mxV) >:@<.@<./@:% ws,:vs
bo=.os#~(ws,:vs) ((mxW,.mxV)&(*./@:>)@ip)"_ 1 os
mo=.bo{~{.\: vls ip"1 bo
prtscr &.> prods ([,' ',":@])&.>mo
prtscr &.> hdrs ('total '&,@[,' ',":@])&.> (ws,vs,:vls) ip"1 mo
LF
)
</pre>
Example output:
<pre>
KS''
panacea: 3
ichor: 10
gold: 11
total weight: 24.9
total volume: 0.247
total value: 54500
</pre>
=={{header|Modula-3}}==
| |||