Re; Reordering lists?!

*To*: mathgroup at smc.vnet.net*Subject*: [mg4525] Re; Reordering lists?!*From*: abindon at gpu.srv.ualberta.ca (Andre and Alain)*Date*: Wed, 7 Aug 1996 04:17:34 -0400*Sender*: owner-wri-mathgroup at wolfram.com

Hey! I have a list of Numbers, 1 to 4, and wish to rescale them so that 1 replkaces 4 and 3 replaces 2 and 2 replaces 3 etc. I made a little code to do this on an element per element basis and it doesn't seem to do it! Could someone let me know what I'm doing wrong or whether it's a Mma problem? Thanks <The original list> gsub=Flatten[ColumnTake[gcsq,{4}]] {2, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 2, 1, 1, 3, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 1, 2, 1, 2, 1, 3, 1, 2, 2, 1, 2, 1, 2, 3, 2, 4, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 2, 2, 1, 2, 1, 2, 3, 2, 2, 2, 1, 2, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2, 1} <Frequencies of the list> Frequencies[gsub] {{42, 1}, {34, 2}, {4, 3}, {1, 4}} <The code that replaces them> Do[If[gsub[[n]]==1,gsub[[n]]=4]|| If[gsub[[n]]==2,gsub[[n]]=3]|| If[gsub[[n]]==3,gsub[[n]]=2]|| If[gsub[[n]]==4,gsub[[n]]=1], {n,1,Length[gsub]}] <It doesn't work properly?!> Frequencies[gsub] {{43, 1}, {38, 2}} Of course the new list frequencies should be exactly opposite than the first one. Help please?! Thanks Andre Bindon Ablerta Hospital Edmonton ==== [MESSAGE SEPARATOR] ====