What' s wrong with my code with `play` in table

Question

I couldn't find the reason why the following code consumming my time (1min no output results):

lis = {1, 3, 7, 19};
Sound[Table[
 Play[Sum[4/(Pi j) Sin[440*j*(t + Pi/2/440)], {j, 1, i, 2}], {t, 0, 
   0.7 2 Pi/440}],
 {i, lis}
 ]
]

Play is HoldAll so you need to add Table[With[{i = i},..., otherwies MMA chokes with "symbolic" Play. — Kuba, Aug 16 '16 at 07:39
As Kuba said, or use Play[Sum[4/(Pi j) Sin[440*j*(t + Pi/2/440)], {j, 1, #, 2}], {t, 0, 0.7 2 Pi/440}] & /@ lis // Sound — Mr.Wizard, Aug 16 '16 at 07:41
See the many linked/duplicate questions for more examples: http://mathematica.stackexchange.com/questions/linked/7756?lq=1 — Mr.Wizard, Aug 16 '16 at 07:43
@Mr.Wizard good enough? 7756. I feel that a generic topic about Hold* attributes and Block based iterators would be very useful. That's a FAQ. — Kuba, Aug 16 '16 at 07:43
Why are they Block based and there is no built in With based alternative is another question. — Kuba, Aug 16 '16 at 07:44

score 2 · Accepted Answer · answered Aug 16 '16 at 07:41

2

Like this:

lis = {1, 3, 7, 19};
Sound[Play[
           Sum[4/(Pi j) Sin[440*j*(t + Pi/2/440)], {j, 1, #, 2}],
          {t, 0, 0.7 2 Pi/440}] & /@ lis]

enter image description here

answered Aug 16 '16 at 07:41

xyz

1 Answers1