Re: Programming: Replace Heads
- To: mathgroup at smc.vnet.net
- Subject: [mg5206] Re: Programming: Replace Heads
- From: "David B. Wagner" <dbwagner at princon.com>
- Date: Thu, 14 Nov 1996 02:02:10 -0500
- Organization: Principia Consulting
- Sender: owner-wri-mathgroup at wolfram.com
Xah Lee wrote:
>
> I'm delited 2 have the opportunity 2 post another interesting prograMing
> problem.
>
> Problem:
> Given an abritrary expression, how to replace all heads to List?
>
> my solution:
> Map[ {(Sequence@@#)}&, expr, {0,-2}]
Much too hard; Apply can be used directly.
Apply[List, g[a + b, h[c/d]], {0, Infinity}]
{{a, b}, {{c, {d, -1}}}}