chose/extra/list-abs/list-unique.pd

#N canvas 197 380 791 465 10;
#X obj 131 240 list-find;
#X obj 309 270 t a;
#X obj 217 269 list prepend;
#X obj 131 187 t a a;
#X obj 217 240 list;
#X obj 131 162 list-drip;
#X obj 109 315 list;
#X obj 109 105 t b a b;
#X text 156 314 result list;
#X text 108 412 2007 Frank Barknecht;
#X obj 217 196 < 1;
#X obj 217 217 select 1;
#X obj 233 76 inlet;
#X obj 109 72 inlet;
#X obj 109 343 outlet;
#X text 235 53 number of allowed repetitions (default 1);
#X text 84 51 list to uniquify;
#X text 355 232 If current item is found less often than the allowed
number of repetitions (default 1) \, then store it in [list-find] and
in result list. Else discard it.;
#X obj 254 240 t b b;
#X connect 0 1 10 0;
#X connect 1 0 2 1;
#X connect 2 0 1 0;
#X connect 2 0 0 1;
#X connect 2 0 6 1;
#X connect 3 0 0 0;
#X connect 3 1 4 1;
#X connect 4 0 2 0;
#X connect 5 0 3 0;
#X connect 6 0 14 0;
#X connect 7 0 6 0;
#X connect 7 1 5 0;
#X connect 7 2 18 0;
#X connect 10 0 11 0;
#X connect 11 0 4 0;
#X connect 12 0 10 1;
#X connect 13 0 7 0;
#X connect 18 0 2 0;
#X connect 18 1 2 1;