∇ ret←NapSack;sum;b;list;total
[1]   total←400
[2]   list←("map" 9 150)("compass" 13 35)("water" 153 200)("sandwich" 50 160)("glucose" 15 60) ("tin" 68 45)("banana" 27 60)("apple" 39 40)("cheese" 23 30)("beer" 52 10) ("suntan cream" 11 70)("camera" 32 30)("t-shirt" 24 15)("trousers" 48 10) ("umbrella" 73 40)("waterproof trousers" 42 70)("waterproof overclothes" 43 75) ("note-case" 22 80) ("sunglasses" 7 20) ("towel" 18 12) ("socks" 4 50) ("book" 30 10)
[3]   list←list[⍒3⊃¨list]
[4]
[5]   ret←⍬
[6]   :while 0≠⍴list
[7]       ret←ret,(b←total>sum←+\2⊃¨list)/list
[8]       list←1↓(~b)/list
[9]       total←total-sum←¯1↑(total>sum)/sum
[10]  :end
[11]  ret←⊃ret,⊂'TOTALS:' (+/2⊃¨ret)(+/3⊃¨ret)
    ∇