Help with Programming Mathematica
- To: mathgroup at yoda.ncsa.uiuc.edu
- Subject: Help with Programming Mathematica
- From: Kevin McIsaac <Kevin_McIsaac>
- Date: 24 Jan 91 10:09:54
SUBJECT: Help with Programming Mathematica
This can be trivially written in Mathematica using rules.
Clarify = {{a_}}->a
Coalesce = {a_, a_} -> a
Absorb = {a_,{}} -> {}
Extract = { {a_, {a_}} -> {a,{}},
{{a_}, {b_,{c_, a_}}} -> {a, {b, {c}}},
{{b_, c_}, b_} -> {c}
}
Boundary = Flatten[{Clarify, Coalesce, Absorb, Extract}];
{{a},{b,{c,a}}} //. Boundary