Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

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

Search the Archive

Re: addRule

  • To: mathgroup at smc.vnet.net
  • Subject: [mg125868] Re: addRule
  • From: Barrie Stokes <Barrie.Stokes at newcastle.edu.au>
  • Date: Thu, 5 Apr 2012 05:53:23 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <201204040831.EAA29999@smc.vnet.net>

Hello Andrew

My solution is

data = {{1, {38, 35, 37}}, {2, {21}}, {3, {24, 14}}};

Map[ (t \[Function] Map[ (s \[Function] \!\(\*SubscriptBox[\(t\), \(\(\[LeftDoubleBracket]\)\(\ \)\(1\)\(\ \)\
\(\[RightDoubleBracket]\)\)]\) -> s), \!\(\*SubscriptBox[\(t\), \(\(\[LeftDoubleBracket]\)\(\ \)\(2\)\(\ \)\
\(\[RightDoubleBracket]\)\)]\) ]), data ]

(I know it looks horrible in an email, but it looks fine when pasted into Mathematica.)

Dare I suggest you'll get some more concise code suggested, but if you know how Map works, I think this is transparent.

I use the

Map[ (t \[Function] f[t]), data ]

construction as often as possible. In my code the f[t] is another use of the same construction.

Cheers

Barrie

>>> On 04/04/2012 at 6:31 pm, in message <201204040831.EAA29999 at smc.vnet.net>,
clansa <dauphinester at gmail.com> wrote:
> Hello,
> I have these data
> {{1, {38, 35, 37}}, {2, {21}}, {3, {24, 14}}}
> and I want
> {[1->38,1->35,1->37},{2->21},{3->24,3->14}}
> The solution is simple when list of data have the same length
> But what is the solution for my example
> Thanks
> 
> Andrew




  • References:
    • addRule
      • From: clansa <dauphinester@gmail.com>
  • Prev by Date: Re: How to generate ``nice'' algebra output from command-line mathematica?
  • Next by Date: Re: Printing Notebooks without Input/Output cells
  • Previous by thread: Re: addRule
  • Next by thread: Re: addRule