2 deleted 3 characters in body
source | link

Pari/GP, 2120 bytes

Takes the input as a list of digits.

a->a*Vecrev>a*Colrev([1..#a])~

Try it online!Try it online!


Pari/GP, 2017 bytes

Takes the input as a polynomial. For example, 53716 will be 5*x^4 + 3*x^3 + 7*x^2 + x + 6 means 53716.

a->subst(>x=1;eval(x*a)',x,1a+a')

Try it online!Try it online!

Pari/GP, 21 bytes

Takes the input as a list of digits.

a->a*Vecrev([1..#a])~

Try it online!


Pari/GP, 20 bytes

Takes the input as a polynomial. For example, 53716 will be 5*x^4 + 3*x^3 + 7*x^2 + x + 6.

a->subst((x*a)',x,1)

Try it online!

Pari/GP, 20 bytes

Takes the input as a list of digits.

a->a*Colrev([1..#a])

Try it online!


Pari/GP, 17 bytes

Takes the input as a polynomial. For example, 5*x^4 + 3*x^3 + 7*x^2 + x + 6 means 53716.

a->x=1;eval(a+a')

Try it online!

1
source | link

Pari/GP, 21 bytes

Takes the input as a list of digits.

a->a*Vecrev([1..#a])~

Try it online!


Pari/GP, 20 bytes

Takes the input as a polynomial. For example, 53716 will be 5*x^4 + 3*x^3 + 7*x^2 + x + 6.

a->subst((x*a)',x,1)

Try it online!