pdkl-find.pd

#N canvas 615 337 837 474 12;
#X obj 489 319 outlet;
#X obj 297 38 inlet;
#X obj 300 146 t a a;
#X obj 480 39 inlet;
#X obj 300 122 pdkl-ddrip 1 0;
#X obj 480 63 sel 1 0;
#X obj 297 235 list;
#X obj 297 259 list trim;
#X obj 294 73 t b l;
#X obj 300 313 outlet;
#X obj 377 318 outlet;
#X obj 385 275 f;
#X obj 442 127 t b b;
#X text 240 349 matching elt;
#X text 370 353 elt num;
#X text 483 345 comparator output;
#X text 549 76 comparator input;
#X text 347 40 input;
#X text 9 17 pdkl-find;
#X text 14 39 find first elt matching comparator;
#X text 14 62 (else bang);
#X text 21 94 inlets: input \, comparator ipt;
#X text 13 131 outlets: matching elt \, eltnum;
#X text 66 158 comparator output;
#X text 703 67 pdklist;
#X text 707 90 gpl v 3;
#X text 702 44 Derek Kwan 2019;
#X connect 1 0 8 0;
#X connect 2 0 0 0;
#X connect 2 1 6 1;
#X connect 3 0 5 0;
#X connect 4 0 2 0;
#X connect 4 1 11 1;
#X connect 4 2 9 0;
#X connect 5 0 12 0;
#X connect 5 1 4 0;
#X connect 6 0 7 0;
#X connect 7 0 9 0;
#X connect 8 0 4 0;
#X connect 8 1 4 1;
#X connect 11 0 10 0;
#X connect 12 0 6 0;
#X connect 12 1 11 0;