15 lines
518 B
Plaintext
15 lines
518 B
Plaintext
items:=List( T(3.8, 36.0, "beef"), T(5.4, 43.0, "pork"), // weight, value, name
|
|
T(3.6, 90.0, "ham"), T(2.4, 45.0, "greaves"),
|
|
T(4.0, 30.0, "flitch"),T(2.5, 56.0, "brawn"),
|
|
T(3.7, 67.0, "welt"), T(3.0, 95.0, "salami"),
|
|
T(5.9, 98.0, "sausage"),
|
|
);
|
|
fcn item_cmp(a,b){ a[1]/a[0] > b[1]/b[0] }
|
|
|
|
items.sort(item_cmp);
|
|
space := 15.0;
|
|
foreach it in (items){ w,_,nm:=it;
|
|
if (space >= w){ println("take all ",nm); space-=w }
|
|
else{ println("take %gkg of %gkg of %s".fmt(space,w,nm)); break }
|
|
}
|