Re: newbie myHead question

*To*: mathgroup at smc.vnet.net*Subject*: [mg47031] Re: newbie myHead question*From*: bobhanlon at aol.com (Bob Hanlon)*Date*: Mon, 22 Mar 2004 05:18:43 -0500 (EST)*References*: <c3h1jj$bc8$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

m={{a,b},{a,b},{a,b}}; Apply[myHead,Transpose[m]] myHead[{a, a, a}, {b, b, b}] Bob Hanlon In article <c3h1jj$bc8$1 at smc.vnet.net>, =?ISO-8859-1?Q?J=E1nos?= <janos.lobb at yale.edu> wrote: << I have m = {{a, b}, {a, b}, {a, b}} When I apply Transpose to it, I will have Transpose[m] {{a, a, a}, {b, b, b}} The FullForm of it is List[List[a, a, a], List[b, b, b]] Now, if I do n = Apply[myHead, m] I get myHead[{a, b}, {a, b}, {a, b}] If I apply Transpose to it, I get Transpose[n] Transpose[myHead[{a, b}, {a, b}, {a, b}]] The FullForm of it Transpose[myHead[List[a, b], List[a, b], List[a, b]]] which is not that I need. I need myHead[{a,a,a},{b,b,b}] or myHead[List[a, a, a], List[b, b, b]] What am I missing ? What should I do to get myHead[{a,a,a},{b,b,b}] ?