Re: Select list elements and exchange them

• To: mathgroup at smc.vnet.net
• Subject: [mg109861] Re: Select list elements and exchange them
• From: ishii.mitsuo.titanium at nsc.co.jp
• Date: Thu, 20 May 2010 06:38:17 -0400 (EDT)

```Hi

I received many useful suggestions like these below.

Sorry for delayed response.

Many thanks

Mitsuo

(1)
pos=Position[testList,{_,{3,4}}]

newlist=ReplacePart[testList, pos->{100,{3,5}}]

(2)
testList /. {_, {3, 4}} -> {100, {3, 4}}

(3)
ClearAll[sub];
sub[expr_, find_, replace_] := Replace[expr, {_, find} -> {replace,
find}, {1}];

(4)
sub[{{11, {2, 3}}, {21, {3, 4}}, {34, {5, 6}}, {51, {7, 8}}}, {3, 4},
100]
==> {{11, {2, 3}}, {100, {3, 4}}, {34, {5, 6}}, {51, {7, 8}}}

(5)
testList /. {_, {3, 4}} -> {100, {3, 4}}
{{11, {2, 3}}, {100, {3, 4}}, {34, {5, 6}}, {51, {7, 8}}}

(6)
{ {11,{2,3}},{21,{3,4}},{34,{5,6}},{51,{7,8}} }/.{x_Integer,{3,4}}->{100,{3,4}}

```

• Prev by Date: Evaluate to...
• Next by Date: diagonal Ramsey number R(n,n)= 4k+2, R(5,5)=46
• Previous by thread: Re: Select list elements and exchange them
• Next by thread: combining ArrayPlot with ListLinePlot