使用循环置换方法来实现这一点。

-b a b-a

a b-a-b

在微不足道的情况下f（0）返回0

对不起，我的电话回答很粗糙，28日后我将发布完整版本（现在正在检查…）简单地说，假设f（n）是一个循环排列，问题是如何构造它。

定义fk=f（f（f）f（…f（n））））（k fs）情况k=20.微不足道的情况f（0）返回01.分组，在情况k=2时，分组：{0} {1,2} {3,4} ... ｛n，n+1 |（n+1）%2=0｝注意：我只使用Z+，因为结构不需要使用负数。2.构造排列：如果n%2=0，那么a=n-1 b=n如果n%2=1，则a=n b=n+1

这将产生相同的排列，因为n和f（n）在同一组中。

注意排列为P返回P（n）

对于k＝2t，只做上面相同的事情，只做MOD k。对于k＝2t-1，虽然该方法有效，但毫无意义，啊？（f（n）=-n正常）

f（x）=在二维笛卡尔坐标系中围绕原点逆时针旋转90度的点（x）。仅一个数字x的输入被假定为（x，0），并且具有y＝0的输出被提供为单个数字x。

object f: (object) x {
    if (x.length == 1)
        x = (x, 0)
    swap = x[0]
    x[1] = x[0]
    x[0] = -swap
    if (x[1] == 0)
        x = x[0]
    return x

这个Perl解决方案适用于整数、浮点数和字符串。

sub f {
    my $n = shift;
    return ref($n) ? -$$n : \$n;
}

尝试一些测试数据。

print $_, ' ', f(f($_)), "\n" for -2, 0, 1, 1.1, -3.3, 'foo' '-bar';

输出：

-2 2
0 0
1 -1
1.1 -1.1
-3.3 3.3
foo -foo
-bar +bar

这里有一个解决方案，其灵感来自于不能使用复数来解决这个问题的要求或声明。

乘以-1的平方根是一个想法，但似乎失败了，因为-1没有整数的平方根。但是，使用mathematica这样的程序可以得出如下公式

（18494364652+1）模（232-3）=0。

这几乎和平方根为-1一样好。函数的结果必须是有符号整数。因此，我将使用一个修改的模运算mods（x，n），它返回与x模n最接近0的整数y。只有极少数编程语言能够成功地进行模运算，但它很容易被定义。例如，在python中，它是：

def mods(x, n):
    y = x % n
    if y > n/2: y-= n
    return y

使用上面的公式，问题现在可以解决为

def f(x):
    return mods(x*1849436465, 2**32-3)

对于[-231-2231-2]范围内的所有整数，这满足f（f（x））=-x。f（x）的结果也在这个范围内，但当然计算需要64位整数。

Python 2.6：

f = lambda n: (n % 2 * n or -n) + (n > 0) - (n < 0)

我意识到这对讨论毫无帮助，但我无法抗拒。

int func(int a)  
{   
    static int p = 0;  
    int ret = a;  

    if ( p ) ret *= -1;  
    p ^= 1;  

    return ret;  
}