Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

this is ridiculous...

• To: mathgroup at smc.vnet.net
• Subject: [mg61798] this is ridiculous...
• From: Chris Chiasson <chris.chiasson at gmail.com>
• Date: Sun, 30 Oct 2005 00:43:33 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

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

• Follow-Ups:
  • Re: this is ridiculous...
    • From: Selwyn Hollis <sh2.7183@earthlink.net>