wolfram-mathematica - Mathematica : How to clear the cache for a symbol, 即未设置无模式的 DownValues

Question

我是一个糟糕的缓存者:有时，当没有人观看时，我会缓存结果而不包含完整的上下文，如下所示:

f[x_]:=f[x]=x+a;
a=2; f[1];
DownValues[f]

Out[2]= {HoldPattern[f[1]]:>3,HoldPattern[f[x_]]:>(f[x]=x+a)}

这会导致非常微妙的错误，更重要的是，当我更改上下文时需要清除缓存。清除缓存的一种方法是完全 Clear符号并重复定义，但这并不是真正的解决方案。

我真正想要的是一种清除与符号关联的所有无模式 DownValues 的方法。
为清楚起见，我将包括我目前的解决方案作为答案，但如果在两个方面失败

它只清除带有全数字参数的 DownValues

出于美学原因，我想避免使用 Block获取 DownValues。

关于如何改进的任何想法 ClearCache ?

Answer 1

我过去做过类似的功能(但我不记得在哪里)。

以下代码是否满足您的所有需求？

ClearCache[f_] := DownValues[f] = DeleteCases[DownValues[f], 
                                              _?(FreeQ[First[#], Pattern] &)]

这可能应该扩展到 UpValues和 SubValues .和 Head的 f仅限于 Symbol .