Wolfram mathematica Mathematica：摆脱“数学”；x->&引用；最终结果

假设我有以下结果：

a=FindInstance[2*b^2 + b^3 == b^4 + t && t < 10 && t > -1, {b, t}, 
  Integers, 20]
{{b -> -1, t -> 0}, {b -> 0, t -> 0}, {b -> 1, t -> 2}, {b -> 2, 
  t -> 0}}

但我怎样才能做到：

{-1, 0, 1, 2}

---

谢谢

我可能在德雷夫斯的回答中遗漏了一些东西，但我一直认为你这样做只是通过写：

b /. a

---

在的“基本示例”部分中有一个例子，它使用相同的输出样式。

尽管威尔的答案是实现这一点的标准方法，但我将提供一些替代方法只是为了好玩

In[37]:= ans={{b -> -1, t -> 0},{b -> 0, t -> 0},{b -> 1, t -> 2},{b -> 2, t -> 0}};

In[38]:= Cases[ans, (b -> a_) :> a, Infinity]

Out[38]= {-1, 0, 1, 2}

In[39]:= ans[[All, 1]][[All, 2]]

Out[39]= {-1, 0, 1, 2}

In[40]:= ans /. {b -> a_, _} :> a

Out[40]= {-1, 0, 1, 2}

In[41]:= (ans /. Rule -> List)[[All, 1, 2]]

Out[41]= {-1, 0, 1, 2}

---

哇，太尴尬了。我只是假设您必须显式地映射规则列表以获得

b

的每个值。但是，你是对的，只是

b/。a

知道为列表中的每个规则提供b的列表。你赢了这一轮，威尔·罗伯逊！

In[37]:= ans={{b -> -1, t -> 0},{b -> 0, t -> 0},{b -> 1, t -> 2},{b -> 2, t -> 0}};

In[38]:= Cases[ans, (b -> a_) :> a, Infinity]

Out[38]= {-1, 0, 1, 2}

In[39]:= ans[[All, 1]][[All, 2]]

Out[39]= {-1, 0, 1, 2}

In[40]:= ans /. {b -> a_, _} :> a

Out[40]= {-1, 0, 1, 2}

In[41]:= (ans /. Rule -> List)[[All, 1, 2]]

Out[41]= {-1, 0, 1, 2}