Tcl:

proc f {input} {
    if { [string is integer $input] } {
      return [list expr [list 0 - $input]]
    } else {
      return [eval $input]
    }
}

% f [f 1]
-1

按照其他一些答案的思路。。。如果它是一个整数，则返回一个返回该数字负数的命令。如果不是数字，请对其求值并返回结果。

Python 2.6：

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

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

f#中的简单解决方案（不使用“技巧”）

let rec f n =
    if n = 0 then 0
    elif n > 0 then
        if (f (n - 1) <> n) then n + 1
        else -(n - 1)
    else
        if (f (-(n - 1)) = n) then n - 1
        else -(n + 1) 

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

-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正常）

int f(int n)
{
  static long counter=0;
  counter++;
  if(counter%2==0)
    return -n;
  else
    return n;
}

F#

let f n =
    match n with
    | n when n % 2 = 0 -> -n + System.Math.Sign n
    | _ -> n - System.Math.Sign -n

其中n使得System.Int32.MinValue<n<System.Int32.MaxValue。