求一种最简单的改写内置函数的办法，使得改写后的内置函数只输出奇数解

TBE_Legend

比如：  改写前，对于内置函数f， f[1] 输出{1,2,3}， 要求改写后 f[1] 输出 {1,3}。

要最简单的改写方法，不要自己定义一个自己的f，也尽量不要把f改得面目全非。

kptnw

设要改写的内置函数为Range

1. SetAttributes[p, HoldAll];
   
2. p[x_] := Unevaluated[x] /. a_Range :> Select[a, OddQ];$Pre = p;
   

复制代码

实验：

1. Range[ 10]

复制代码

{1, 3, 5, 7, 9}