symbol_change.pd

#N canvas 288 131 807 460 10;
#X obj 42 66 inlet;
#X obj 385 127 list fromsymbol;
#X obj 42 112 list fromsymbol;
#X obj 295 211 t b f;
#X obj 129 271 !=;
#X obj 129 316 symbol;
#X obj 129 338 t s s;
#X obj 129 360 outlet;
#X obj 129 191 list;
#X obj 129 213 list split 1;
#X obj 295 189 list split 1;
#X obj 385 105 symbol \$1;
#X obj 295 166 list;
#X obj 129 294 sel 1 0;
#X obj 412 254 list length;
#X obj 385 149 t l l;
#X obj 42 134 t l l;
#X obj 42 175 list length;
#X obj 42 88 t s s b;
#X text 43 22 compare a symbol to the previous one and output it only
if it's different;
#X text 409 279 first check the length of the symbols. if they're different
then the symbols are different too. if not \, check their characters
one by one;
#X text 560 380 Written by Alexandros Drymonitis;
#X connect 0 0 18 0;
#X connect 1 0 15 0;
#X connect 2 0 16 0;
#X connect 3 0 8 0;
#X connect 3 1 4 1;
#X connect 4 0 13 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 6 1 11 0;
#X connect 8 0 9 0;
#X connect 9 0 4 0;
#X connect 9 1 8 1;
#X connect 10 0 3 0;
#X connect 10 1 12 1;
#X connect 11 0 1 0;
#X connect 12 0 10 0;
#X connect 13 0 5 0;
#X connect 13 1 12 0;
#X connect 14 0 4 1;
#X connect 15 0 12 1;
#X connect 15 1 14 0;
#X connect 16 0 17 0;
#X connect 16 1 8 1;
#X connect 17 0 4 0;
#X connect 18 0 2 0;
#X connect 18 1 5 1;
#X connect 18 2 11 0;