Re: this is ridiculous...
- To: mathgroup at smc.vnet.net
- Subject: [mg61813] Re: [mg61798] this is ridiculous...
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Mon, 31 Oct 2005 01:17:07 -0500 (EST)
- Reply-to: hanlonr at cox.net
- Sender: owner-wri-mathgroup at wolfram.com
Use HoldPattern
Equal[d,2]/.HoldPattern[Equal[x__]]:>tree[x]
willow[d,2]/.willow[x__]:>tree[x]
$Version
tree[d, 2]
tree[d, 2]
"5.2 for Mac OS X (June 20, 2005)"
Bob Hanlon
>
> From: Chris Chiasson <chris.chiasson at gmail.com>
To: mathgroup at smc.vnet.net
> Date: 2005/10/30 Sun AM 12:43:33 EDT
> Subject: [mg61813] [mg61798] this is ridiculous...
>
> Can anyone replicate the pattern replacement problem I am having with
Equal?
>
> Cell[CellGroupData[{Cell[BoxData[{
> RowBox[{
> RowBox[{"Equal", "[",
> RowBox[{"d", ",", "2"}], "]"}], "/.",
> RowBox[{
> RowBox[{"Equal", "[", "x__", "]"}], "\[RuleDelayed]",
> RowBox[{"tree", "[", "x", "]"}]}]}], "\[IndentingNewLine]",
> RowBox[{
> RowBox[{"willow", "[",
> RowBox[{"d", ",", "2"}], "]"}], "/.",
> RowBox[{
> RowBox[{"willow", "[", "x__", "]"}], "\[RuleDelayed]",
> RowBox[{"tree", "[", "x", "]"}]}]}], "\[IndentingNewLine]",
> "$Version"}], "Input",
> CellLabel->"In[1]:="],
>
> Cell[BoxData[
> RowBox[{"d", "\[Equal]", "2"}]], "Output",
> CellLabel->"Out[1]="],
>
> Cell[BoxData[
> RowBox[{"tree", "[",
> RowBox[{"d", ",", "2"}], "]"}]], "Output",
> CellLabel->"Out[2]="],
>
> Cell[BoxData["\<\"5.2 for Microsoft Windows (June 20, 2005)\"\>"], \
> "Output",
> CellLabel->"Out[3]="]
> }, Open ]]
>
> --
> http://chrischiasson.com/contact/chris_chiasson
>
>