1

作为我正在做的一个小型项目的一部分，我需要一种方法来反转 PARI/GP 中整数的数字（该项目主要是回文数和数字总和）。

我试图以代码形式实现的是fun(13453)给予35431.

例如，我尝试执行以下操作：

  • Vecrev(digits(13453))给出，[3,5,4,3,1]但我不知道如何连接此列表中的每个连续元素。

  • 我不认为有一个预设功能，如rev, reverse, 或未digitrev在 PARI/GP 中定义。

有人可以告诉我如何做到这一点吗？最好不要使用循环，因为我希望将一个简单的函数放入if语句或for循环中。

4

2 回答 2

3

或者：fromdigits(Vecrev(digits(13453)))

于 2019-04-26T16:55:36.550 回答
1

您可以使用Polrev而不是Vecrev. 之后，只需执行subst. 您的示例如下：

> subst(Polrev(digits(13453), 'x), 'x, 10)
35431
于 2019-04-26T12:17:09.103 回答