pdkl-sieve.pd

#N canvas 620 432 796 560 12;
#X obj 296 228 inlet;
#X text 355 224 sieve-list;
#X obj 117 223 inlet;
#X obj 46 342 pdkl-drip \$1;
#X obj 46 367 t a b;
#X obj 161 443 spigot;
#X obj 146 505 pdkl-fill;
#X obj 117 248 t l b;
#X obj 146 530 outlet;
#X text 21 22 pdkl-sieve - let x-sized chunks of elements through;
#X text 123 50 defined by sieve-list (nonzero = let through);
#X text 174 223 input-list;
#X text 38 126 args: chunk size;
#X text 537 24 derek kwan 2017;
#X text 539 42 pdklist;
#X text 541 65 gpl v 3;
#X obj 269 316 list;
#X text 40 165 inlets: input-list \, sieve-list \, chunk size;
#X obj 476 225 inlet;
#X text 537 227 chunk size;
#X msg 321 430 0;
#X obj 267 379 pdkl-ddrip;
#X connect 0 0 16 1;
#X connect 2 0 7 0;
#X connect 3 0 4 0;
#X connect 3 2 6 1;
#X connect 4 0 5 0;
#X connect 4 1 21 0;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 7 0 3 0;
#X connect 7 1 6 2;
#X connect 7 1 16 0;
#X connect 16 0 21 1;
#X connect 18 0 3 1;
#X connect 20 0 5 1;
#X connect 21 0 5 1;
#X connect 21 2 20 0;