dc, 13 bytes [r1+pA*rdx]dx Try it online!
posted 2y ago by orthoplex
# [dc], 13 bytes [r1+pA*rdx]dx [Try it online!][TIO-l29ca5m2] [dc]: https://www.gnu.org/software/bc/manual/dc-1.05/html_mono/dc.html [TIO-l29ca5m2]: https://tio.run/##S0n@/z@6yFC7wFGrKKUiNqXi/38A "dc – Try It Online"