Services & ResourcesWolfram ForumsMathGroup Archive

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

Replace specific element with specific value.

• To: mathgroup at smc.vnet.net
• Subject: [mg99620] Replace specific element with specific value.
• From: nick.maj at mssm.edu
• Date: Sat, 9 May 2009 03:22:47 -0400 (EDT)

I tried this code, it gives me right and wrong results spreeded into
nested lists.

data = {{0, 2}, {2, x}, {3, 4}, {4, 6}, {6, y}, {8, 9}, {9, z}}

Table[{#1, #2 + Which[#2 === j, i, #2 =!= j, 0]} & @@@
  data, {i, {xx, yy, zz}}, {j, {x, y, z}}]

needed output:

{0, 2}, {2, x+xx}, {3, 4}, {4, 6}, {6, y+yy}, {8, 9}, {9, z+zz}}

While searching only the second element of each list, if x is found
add xx and if y is found add yy to it etc.

How to. Thanks in advance, Nick.

• Follow-Ups:
  • Re: Replace specific element with specific value.
    • From: DrMajorBob <btreat1@austin.rr.com>