如何反转PARI/GP中整数的数字?
How to reverse the digits of an integer in PARI/GP?
作为我正在做的一个小项目的一部分,我需要一种方法来反转 PARI/GP 中整数的数字(该项目主要是回文数和数字和)。
我试图以代码形式实现的是 fun(13453)
给出 35431
.
例如,我尝试执行以下操作:
Vecrev(digits(13453))
给出 [3,5,4,3,1]
但我不知道如何连接此列表中的每个连续元素。
我认为没有预设函数,因为rev
、reverse
或digitrev
在[=38=中没有定义].
有人可以告诉我如何做到这一点吗?最好不要使用循环,因为我希望将一个简单的函数放入 if
语句或 for
循环中。
您可以使用 Polrev
而不是 Vecrev
。之后,只需执行 subst
。您的示例如下:
> subst(Polrev(digits(13453), 'x), 'x, 10)
35431
或者:fromdigits(Vecrev(digits(13453)))
作为我正在做的一个小项目的一部分,我需要一种方法来反转 PARI/GP 中整数的数字(该项目主要是回文数和数字和)。
我试图以代码形式实现的是 fun(13453)
给出 35431
.
例如,我尝试执行以下操作:
Vecrev(digits(13453))
给出[3,5,4,3,1]
但我不知道如何连接此列表中的每个连续元素。我认为没有预设函数,因为
rev
、reverse
或digitrev
在[=38=中没有定义].
有人可以告诉我如何做到这一点吗?最好不要使用循环,因为我希望将一个简单的函数放入 if
语句或 for
循环中。
您可以使用 Polrev
而不是 Vecrev
。之后,只需执行 subst
。您的示例如下:
> subst(Polrev(digits(13453), 'x), 'x, 10)
35431
或者:fromdigits(Vecrev(digits(13453)))