kollabs/list-abs/list-compare.pd

#N canvas 368 289 390 300 10;
#X obj 222 58 inlet;
#X obj 94 57 inlet;
#X obj 94 199 outlet;
#N canvas 380 394 492 461 compare-elements 0;
#X obj 83 135 list-dripslow;
#X obj 83 226 compare-any;
#X obj 83 157 t a b;
#X obj 264 48 inlet;
#X obj 65 36 inlet;
#X obj 241 111 list;
#X obj 83 112 until;
#X obj 83 256 select 0;
#X obj 83 288 t b b;
#X msg 83 317 0;
#X obj 65 379 outlet;
#X obj 65 356 f 1;
#X obj 65 59 t b b a b b;
#X msg 125 319 1;
#X obj 155 192 list-dripslow;
#X connect 0 0 2 0;
#X connect 0 1 6 1;
#X connect 1 0 7 0;
#X connect 2 0 1 0;
#X connect 2 1 14 0;
#X connect 3 0 5 1;
#X connect 4 0 12 0;
#X connect 5 0 14 1;
#X connect 6 0 0 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 1 6 1;
#X connect 9 0 11 1;
#X connect 11 0 10 0;
#X connect 12 0 11 0;
#X connect 12 1 6 0;
#X connect 12 2 0 1;
#X connect 12 3 5 0;
#X connect 12 4 13 0;
#X connect 13 0 11 1;
#X connect 14 0 1 1;
#X restore 94 136 pd compare-elements;
#X msg 216 167 0;
#N canvas 446 369 450 300 compare-lengths 0;
#X obj 45 102 ==;
#X obj 45 123 select 1 0;
#X obj 144 35 inlet;
#X obj 45 20 inlet;
#X obj 45 203 outlet;
#X obj 77 182 outlet;
#X obj 45 45 t a a;
#X obj 45 154 list;
#X text 39 237 if equal \, send list out to first outlet \, else bang
second outlet;
#X obj 144 68 list-len;
#X obj 45 67 list-len;
#X connect 0 0 1 0;
#X connect 1 0 7 0;
#X connect 1 1 5 0;
#X connect 2 0 9 0;
#X connect 3 0 6 0;
#X connect 6 0 10 0;
#X connect 6 1 7 1;
#X connect 7 0 4 0;
#X connect 9 0 0 1;
#X connect 10 0 0 0;
#X restore 94 93 pd compare-lengths;
#X connect 0 0 5 1;
#X connect 0 0 3 1;
#X connect 1 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 2 0;
#X connect 5 0 3 0;
#X connect 5 1 4 0;