20 lines
757 B
Plaintext
20 lines
757 B
Plaintext
(define goodies
|
|
'((map 9 150 1) (compass 13 35 1)(water 153 200 3)
|
|
(sandwich 50 60 2)(🍰-glucose 15 60 2)(tin 68 45 3)
|
|
(🍌-banana 27 60 3)(🍎-apple 39 40 3)(cheese 23 30 1)
|
|
(beer 52 10 3)(🌞-suntan-cream 11 70 1)(camera 32 30 1)
|
|
(t-shirt 24 15 2)(trousers 48 10 2)(umbrella 73 40 1)
|
|
(☔️-trousers 42 70 1)(☔️--overcoat 43 75 1)(note-case 22 80 1)
|
|
(🌞-sunglasses 7 20 1)(towel 18 12 2)(socks 4 50 1)
|
|
(book 30 10 2)))
|
|
|
|
(list->table goodies T)
|
|
|
|
(task 400)
|
|
total-value 1010
|
|
→ ((socks) (🌞-sunglasses) (note-case) (☔️--overcoat) (🌞-suntan-cream) (cheese)
|
|
(🍌-banana 🍌-banana 🍌-banana) (🍰-glucose 🍰-glucose) (water) (compass) (map))
|
|
|
|
(length (hash-keys H))
|
|
→ 10827 ;; # of entries in cache
|