Programming: Replace Heads

*To*: mathgroup at smc.vnet.net*Subject*: [mg5161] Programming: Replace Heads*From*: Xah Lee <xah at best.com>*Date*: Wed, 6 Nov 1996 01:34:08 -0500*Organization*: Best Internet Communications*Sender*: owner-wri-mathgroup at wolfram.com

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}] Example: Clear[a,b,c,d,e,f,g] f := ({a,b,c,d,e,g}[[Random[Integer, {1,6}] ]]) Array[ Hold at f, {3,2,3},1, Hold at f]//ReleaseHold Map[ {(Sequence@@#)}&, %, {0,-2}] Post your solutions. Please cc to me 2. I will write up a summary of solutions of PrograMMing Competition of last month. Xah xah at best.com; 74631.731 at compuserve.com http://www.best.com/~xah/SpecialPlaneCurves_dir/specialPlaneCurves.html Mountain View, CA, USA