-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathpdkl-reduce2.pd
66 lines (66 loc) · 1.66 KB
/
pdkl-reduce2.pd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
#N canvas 240 339 716 575 12;
#X obj 455 33 inlet;
#X obj 231 18 inlet;
#X text 13 126 INLETS:;
#X text 9 150 input/reduce insert;
#X text 11 223 OUTLETS:;
#X text 10 245 output/reduce send;
#X text 551 30 pdklist;
#X text 555 53 gpl v 3;
#X text 550 7 Derek Kwan 2017;
#X obj 235 124 list split 2, f 23;
#X obj 449 509 outlet;
#X text 167 97 peel off first two for binop;
#X obj 286 174 list;
#X obj 248 239 list split 1;
#X obj 237 306 list prepend, f 32;
#X text 501 103 get accumulated;
#X text 503 128 request next elt;
#X text 295 198 rest of list;
#X text 170 228 next elt;
#X obj 277 500 outlet;
#X obj 335 266 t b b, f 15;
#X text 443 284 last round: let results out;
#X obj 449 466 spigot 1;
#X obj 465 379 f;
#X msg 495 354 0;
#X msg 437 350 1;
#X obj 510 415 == 0;
#X text 542 305 and close reduce send;
#X text 245 43 input;
#X text 374 7 reduce insert;
#X text 507 497 reduce send;
#X text 198 483 output;
#X obj 239 429 pdkl-fill, f 34;
#X obj 236 67 t a b b, f 28;
#X obj 453 70 t b a a;
#X obj 222 151 t a a;
#X msg 198 368 \$1;
#X text 15 5 PDKL-REDUCE2 - list reducer;
#X text 20 27 (but keeps track of steps);
#X connect 0 0 34 0;
#X connect 1 0 33 0;
#X connect 9 0 35 0;
#X connect 9 1 12 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 13 1 12 1;
#X connect 13 2 20 0;
#X connect 14 0 22 0;
#X connect 20 0 32 1;
#X connect 20 1 25 0;
#X connect 22 0 10 0;
#X connect 23 0 26 0;
#X connect 24 0 23 0;
#X connect 25 0 23 0;
#X connect 26 0 22 1;
#X connect 32 0 19 0;
#X connect 33 0 9 0;
#X connect 33 1 24 0;
#X connect 33 2 32 2;
#X connect 34 0 12 0;
#X connect 34 1 14 1;
#X connect 34 2 32 0;
#X connect 35 0 22 0;
#X connect 35 1 36 0;
#X connect 36 0 32 0;