Data update

This commit is contained in:
Ingy döt Net 2024-10-16 18:07:41 -07:00
parent 81fd053722
commit 52a6ef48dd
10248 changed files with 63654 additions and 6775 deletions

View file

@ -0,0 +1,24 @@
name$[] = [ "beef" "pork" "ham" "greaves" "flitch" "brawn" "welt" "salami" "sausage" ]
wgt[] = [ 3.8 5.4 3.6 2.4 4.0 2.5 3.7 3.0 5.9 ]
val[] = [ 36 43 90 45 30 56 67 95 98 ]
maxwgt = 15
#
n = len wgt[]
#
for i = 1 to n - 1
for j = i + 1 to n
if val[j] / wgt[j] > val[i] / wgt[i]
swap val[j] val[i]
swap wgt[j] wgt[i]
swap name$[j] name$[i]
.
.
.
for i to n
w = lower wgt[i] maxwgt
print w & " kg " & name$[i]
maxwgt -= w
if maxwgt = 0
break 1
.
.