diff options
Diffstat (limited to 'day7/maxima.mx')
| -rw-r--r-- | day7/maxima.mx | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/day7/maxima.mx b/day7/maxima.mx new file mode 100644 index 0000000..4625fdc --- /dev/null +++ b/day7/maxima.mx @@ -0,0 +1,10 @@ +load("descriptive")$ +batchload("./in.mx")$ /* 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))); + |