Rosetta Code

Knapsack problem/Continuous: Difference between revisions

Page Discussion

Knapsack problem/Continuous (view source)

Revision as of 17:17, 18 September 2014

517 bytes removed ,  9 years ago
m
→‎{{header|REXX}}: simplified a DO loop assignments, changed some indentations.
m (→‎{{header|REXX}}: simplified a DO loop assignments, changed some indentations.)
Line 1,645:
=={{header|REXX}}==
Any resemblence to the Fortran code is 120% coincidental.
<lang rexx>/*REXX program to solvesolves the burglar's knapsack (continuous) problem. */
@.= /*═══════ name weight value ══════*/
@.=''
flitch @.1 = 'flitch 4.00 30.00 '▼
/*════ name weight value ════*/
@.12 = 'flitchbeef 4 3.8 3036 '
@.23 = 'beefpork 35.84 3643 '
@.34 = 'porkgreaves 52.4 43 45 '
@.45 = 'greavesbrawn 2.45 4556 '
@.56 = 'brawnwelt 2 3.57 5667 '
@.67 = 'weltham 3.76 6790 '
@.78 = 'hamsalami 3 3.6 9095 '
@.89 = 'salamisausage 3 5.9 9598 '
@.9 = 'sausage 5.9 98 '
 
nLwL=length('total weight'); wLnL=length('total weight'); vL=length(' value ')
totW=0; totV=0
do j=1 while @.j\=='' ; parse var @.j n.j w.j v.j .
nL=max(nL,length(n.j)) ; n.j=n
totW=totW+w ; w.j=w
totV=totV+v ; v.j=v
end /*j*/
items=j-1 /*items ITEMS is the number of items. */
nL=nL+nL%4 /*nL: max length name + ≈ 25%. */
wL=max(wL,length(format(totw,,2))) /*wL: max formatted weight width*/
vL=max(vL,length(format(totv,,2))) /*vL: max formatted value width*/
totW=0; totV=0
call show 'beforeunsorted sortingitem list'
 
do j=2 to items /*sort by desending value/unit wt*/
k=j-1; _n=n.j; _w=w.j; _v=v.j
do k=k by -1 to 1 while v.k/w.k < _v/_w
kp1=k+1; n.kp1=n.k; w.kp1=w.k; v.kp1=v.k
end /*k*/
kp1=k+1; n.kp1=_n; w.kp1=_w; v.kp1=_v
end /*j*/
 
call show 'after sorting'
call hdr "burgler's knapsack contents"
maxW=15 /*burgler's knapsack max weight. */
Line 1,700 ⟶ 1,698:
call sy left('total value',nL,'─'), , format(totV,,2)
exit /*stick a fork in it, we're done.*/
/*──────────────────────────────────one─liner subroutines───────────────subroutines────────────────────*/
hdr: indent=left('',9); call verse arg(1); call title; call sep; return
sep: call sy copies('═',nL), copies("═",wL), copies('═',vL); return
Line 1,710 ⟶ 1,708:
'''output'''
<pre style="height:50ex">
────────────────unsorted item list────────────────
──────────────────before sorting──────────────────
 
item weight value
Line 1,723 ⟶ 1,721:
salami 3.00 95.00
sausage 5.90 98.00
 
 
──────────────────after sorting───────────────────
 
item weight value
═══════════════ ══════ ═══════
salami 3.00 95.00
ham 3.60 90.00
brawn 2.50 56.00
greaves 2.40 45.00
welt 3.70 67.00
sausage 5.90 98.00
beef 3.80 36.00
pork 5.40 43.00
▲ flitch 4.00 30.00
 
 
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/141101"