diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2021-12-07 14:49:00 -0500 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2021-12-07 14:49:00 -0500 |
| commit | 0b3e007095b6c478b5c250ce01ca79a8e9533c50 (patch) | |
| tree | b88826fd5a464d0c34fc333b38c3debd5d9c53c9 /day7/maxima.mac | |
| parent | a1af4e9dec325a3fff03140999ac737c983d1f49 (diff) | |
day7: fix file extension
Diffstat (limited to 'day7/maxima.mac')
| -rw-r--r-- | day7/maxima.mac | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/day7/maxima.mac b/day7/maxima.mac new file mode 100644 index 0000000..a1c2d18 --- /dev/null +++ b/day7/maxima.mac @@ -0,0 +1,10 @@ +load("descriptive")$ +load("in.mac")$ /* Should define `input` list of numbers. */ + +calcfuel(pos, distmod) := + lreduce("+", map(lambda([n], distmod(abs(pos - n))), input))$ + +calcfuel(median(input), lambda([x],x)); +calcfuel(floor(mean(input)), lambda([x], (x*(x+1)/2))); +calcfuel(floor(mean(input)) + 1, lambda([x], (x*(x+1)/2))); + |