Tcl:

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

% f [f 1]
-1

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

作为一名数学家，我想分享我对这个有趣问题的看法。我认为我有最有效的解决方案。

如果我没记错的话，只需翻转第一位，就可以将有符号的32位整数取反。例如，如果n=1001 1101 1110 1011 1110 0000 1110 1010，则-n=0001 1101 11101 1011 11100 0000 1110 010。

那么，我们如何定义一个函数f，它接受一个带符号的32位整数，并返回另一个有符号的32位数整数，该函数的属性是：接受两次f与翻转第一位相同？

让我重新表述这个问题，而不提整数之类的算术概念。

我们如何定义一个函数f，它接受长度为32的一系列0和1，并返回长度相同的一系列零和1，同时具有两次接受f与翻转第一位相同的性质？

观察：如果你能回答32位情况的上述问题，那么你也可以回答64位情况、100位情况等。你只需将f应用于前32位。

现在，如果你能回答2位案例的问题，哇！

是的，改变前2位就足够了。

这是伪代码

1. take n, which is a signed 32-bit integer.
2. swap the first bit and the second bit.
3. flip the first bit.
4. return the result.

备注：步骤2和步骤3可以概括为（a，b）-->（-b，a）。看起来很眼熟？这应该会让你想起平面的90度旋转以及乘以-1的平方根。

如果我只是单独展示了伪代码，而没有冗长的前奏，那么它看起来就像脱口而出的兔子，我想解释一下我是如何得到解决方案的。

一个C++版本，可能会稍微改变规则，但适用于所有数值类型（浮点、整型、双精度），甚至是重载一元负号的类类型：

template <class T>
struct f_result
{
  T value;
};

template <class T>
f_result <T> f (T n)
{
  f_result <T> result = {n};
  return result;
}

template <class T>
T f (f_result <T> n)
{
  return -n.value;
}

void main (void)
{
  int n = 45;
  cout << "f(f(" << n << ")) = " << f(f(n)) << endl;
  float p = 3.14f;
  cout << "f(f(" << p << ")) = " << f(f(p)) << endl;
}

PHP，不使用全局变量：

function f($num) {
  static $mem;

  $answer = $num-$mem;

  if ($mem == 0) {
    $mem = $num*2;
  } else {
    $mem = 0;
  }

  return $answer;
}

适用于整数、浮点数和数字字符串！

只是意识到这会做一些不必要的工作，但是，不管怎样

没有人说它必须是无国籍的。

int32 f(int32 x) {
    static bool idempotent = false;
    if (!idempotent) {
        idempotent = true;
        return -x;
    } else {
        return x;
    }
}

作弊，但不如很多例子。更糟糕的是，查看堆栈以查看调用者的地址是否为-f，但这将更具可移植性（虽然不是线程安全的……线程安全版本将使用TLS）。更邪恶的是：

int32 f (int32 x) {
    static int32 answer = -x;
    return answer;
}

当然，对于MIN_INT32的情况，这两种方法都不太有效，但除非允许返回更宽的类型，否则对此您几乎无能为力。

或者，您可以滥用预处理器：

#define f(n) (f##n)
#define ff(n) -n

int main()
{
  int n = -42;
  cout << "f(f(" << n << ")) = " << f(f(n)) << endl;
}