[PD] simple message/list parsing

[Roman Haefeli]

On Sun, 2007-09-16 at 17:20 +1000, Mat Wall-Smith wrote:
> Hi..
> 
> 
> I'm still looking for a way of checking one list of numbers against
> another list of numbers and returning the any number that is included
> in both.
> Something like the [select] object but that passes the number rather
> than a bang so I could add the number to a text file or list.


something like this? (see attachment)

roman


> 
-------------- next part --------------
#N canvas 497 -1 415 472 10;
#N canvas 0 0 199 178 seralize 0;
#X obj 14 112 list split 1;
#X obj 14 69 until;
#X obj 14 91 list append;
#X obj 132 96 bang;
#X obj 14 41 t b a;
#X obj 14 15 inlet;
#X obj 14 134 outlet;
#X connect 0 0 6 0;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 1 1;
#X connect 4 0 1 0;
#X connect 4 1 2 1;
#X connect 5 0 4 0;
#X restore 98 131 pd seralize;
#N canvas 0 0 199 178 seralize 0;
#X obj 14 112 list split 1;
#X obj 14 69 until;
#X obj 14 91 list append;
#X obj 132 96 bang;
#X obj 14 41 t b a;
#X obj 14 15 inlet;
#X obj 14 134 outlet;
#X connect 0 0 6 0;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 1 1;
#X connect 4 0 1 0;
#X connect 4 1 2 1;
#X connect 5 0 4 0;
#X restore 98 204 pd seralize;
#X obj 98 228 sel;
#X obj 98 180 list;
#X obj 98 152 t b f;
#X obj 98 276 f;
#X obj 98 251 t b b;
#X msg 248 53 0 1 2 3 4 5 6 7 8 9;
#X msg 72 73 1 5 9;
#X msg 52 54 2 3 4;
#X msg 247 77 0 2 4 6 8;
#X msg 246 103 1 3 5 7 9;
#X obj 98 308 list prepend;
#X obj 201 308 t a;
#X obj 47 96 t b a b;
#X obj 47 339 list;
#X msg 17 32 0 2 4 6 8 9;
#X obj 47 363 route bang;
#N canvas 0 0 450 300 show 0;
#X obj 129 107 list prepend set;
#X obj 129 129 list trim;
#X obj 129 79 inlet;
#X obj 129 154 outlet;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X restore 112 391 pd show;
#X msg 112 414 1 5 9;
#X connect 0 0 4 0;
#X connect 1 0 2 0;
#X connect 2 0 6 0;
#X connect 3 0 1 0;
#X connect 4 0 3 0;
#X connect 4 1 5 1;
#X connect 4 1 2 1;
#X connect 5 0 12 0;
#X connect 6 0 5 0;
#X connect 7 0 3 1;
#X connect 8 0 14 0;
#X connect 9 0 14 0;
#X connect 10 0 3 1;
#X connect 11 0 3 1;
#X connect 12 0 13 0;
#X connect 12 0 15 1;
#X connect 13 0 12 1;
#X connect 14 0 15 0;
#X connect 14 1 0 0;
#X connect 14 2 12 1;
#X connect 14 2 15 1;
#X connect 15 0 17 0;
#X connect 16 0 14 0;
#X connect 17 1 18 0;
#X connect 18 0 19 0;