Programming Fail

*To*: mathgroup at smc.vnet.net*Subject*: [mg132019] Programming Fail*From*: Dean Rosenthal <deanrosenthal at gmail.com>*Date*: Sun, 17 Nov 2013 18:22:15 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Delivered-to*: l-mathgroup@wolfram.com*Delivered-to*: mathgroup-outx@smc.vnet.net*Delivered-to*: mathgroup-newsendx@smc.vnet.net

Hi: My question is going to take all of you about a split second to answer. Sadly, programming is something I seem to be congenitally incapable of teaching myself and doing well. I usually just cut and paste specifics into prewritten algorithms. If you do this pitchMap = {1 -> {"C4", "D4"}, 2 -> "D4", 3 -> "E4", 4 -> "F4", 5 -> "G4"}; Sound[Thread[SoundNote[Flatten[IntegerPartitions[5]] /. pitchMap]]] You get a music player and can play the result. If you do this: A = NestList[ StringReplace[#, {"0" -> "2", "2" -> "12", "1" -> "23", "3" -> "45", "4" -> "56"}] &, "0", 7] pitchMap = {0 -> "B4", 1 -> "C4", 2 -> "D4", 3 -> "E4", 4 -> "F4", 5 -> "G4", 6 -> "A4"}; Sound[Thread[SoundNote[Flatten[A]] /. pitchMap]]] You get nothing, just output. See what I did there? I substituted, because that's what you do if you don't know how to program! On the face of things, I can't see why it wouldn't work, but I've wasted at least an hour going through documentation and Googling and trying different approaches. I'm not a programmer and I can't seem to teach myself how to do this, ideas? Thanks, Dean

**Follow-Ups**:**Re: Programming Fail***From:*Bob Hanlon <hanlonr357@gmail.com>

**Re: Programming Fail***From:*Alex Krasnov <akrasnov@cory.eecs.berkeley.edu>