aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-06-11 20:16:52 -04:00
parent 72eb4943cb
commit 4d5544505c
2347 changed files with 62432 additions and 16731 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/Knapsack-problem-0-1/EasyLang/knapsack-problem-0-1.easy
View file

@ -3,7 +3,7 @@ weight[] = [ 9 13 153 50 15 68 27 39 23 52 11 32 24 48 73 42 43 22 7 18 4 30 ]
value[] = [ 150 35 200 160 60 45 60 40 30 10 70 30 15 10 40 70 75 80 20 12 50 10 ]
max_w = 400
#
proc solve i maxw . items[] wres vres .
proc solve i maxw &items[] &wres &vres .
if i = 0
wres = 0
vres = 0
@ -24,6 +24,4 @@ proc solve i maxw . items[] wres vres .
solve len weight[] max_w items[] w v
print "weight: " & w & " value: " & v
write "items:"
for item in items[]
write " " & name$[item]
.
for item in items[] : write " " & name$[item]