File: list-shellsort.pd

package info (click to toggle)
pd-list-abs 0.1-3
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, sid
  • size: 756 kB
  • sloc: makefile: 289
file content (238 lines) | stat: -rw-r--r-- 5,503 bytes parent folder | download | duplicates (3)
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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
#N canvas 631 361 591 470 10;
#X obj 26 -25 inlet;
#X obj 26 296 outlet;
#N canvas 658 194 260 268 \$0-gap-loop 0;
#X obj 96 66 / 2;
#X obj 96 89 int;
#X obj 34 122 until;
#X obj 34 49 t b f;
#X obj 148 105 sel 0;
#X obj 96 142 t f f;
#X obj 59 159 f;
#X obj 34 26 inlet;
#X obj 59 183 outlet;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 2 0 6 0;
#X connect 3 0 2 0;
#X connect 3 1 0 0;
#X connect 4 0 2 1;
#X connect 5 0 6 1;
#X connect 5 1 4 0;
#X connect 6 0 0 0;
#X connect 6 0 8 0;
#X connect 7 0 3 0;
#X restore 95 150 pd \$0-gap-loop;
#X obj 49 65 list-len;
#N canvas 584 66 450 300 \$0-increment-loop 0;
#X obj 40 26 inlet;
#X obj 163 27 inlet;
#X obj 40 83 until;
#X obj 40 53 t b f;
#X obj 99 100 f;
#X obj 130 101 + 1;
#X obj 136 157 moses;
#X obj 214 175 t b;
#X obj 136 193 outlet;
#X connect 0 0 3 0;
#X connect 1 0 6 1;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 3 1 4 1;
#X connect 4 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 4 1;
#X connect 6 0 8 0;
#X connect 6 1 7 0;
#X connect 7 0 2 1;
#X restore 95 195 pd \$0-increment-loop;
#X obj 95 125 t f f;
#X obj 95 173 t f f;
#N canvas 147 172 708 735 \$0-test-swap-loop 0;
#X obj 102 40 inlet;
#X obj 319 46 inlet;
#X obj 102 63 -;
#X obj 101 444 list-idx;
#X obj 162 444 list-idx;
#X obj 304 124 +;
#X obj 101 494 >;
#X obj 101 518 sel 0 1;
#X obj 332 564 f;
#X obj 365 564 f;
#X obj 297 593 list-swap;
#X obj 297 563 list;
#X obj 427 646 list;
#X obj 102 159 until;
#X obj 164 222 moses 0;
#X obj 164 197 f;
#X obj 197 197 -;
#X obj 102 84 t b f;
#X obj 164 265 t b b;
#X obj 191 287 s \$0-stop-loop;
#X obj 165 126 r \$0-stop-loop;
#X obj 164 307 s \$0-bang-list;
#X obj 101 582 t b b;
#X obj 128 604 s \$0-stop-loop;
#X obj 101 625 s \$0-bang-list;
#X obj 427 576 r \$0-bang-list;
#X obj 427 669 outlet;
#X obj 277 499 t b b;
#X obj 102 180 t b b;
#X obj 102 381 list;
#X obj 102 400 t a a;
#X obj 448 599 r \$0-list-init;
#X obj 318 474 r \$0-list-init;
#X obj 123 331 r \$0-list-init;
#X text 316 25 gap;
#X obj 203 244 s \$0-idx;
#X obj 331 85 r \$0-idx;
#X obj 347 498 r \$0-idx;
#X obj 146 382 r \$0-idx;
#X obj 304 145 s \$0-idx+gap;
#X obj 380 531 r \$0-idx+gap;
#X obj 207 407 r \$0-idx+gap;
#X obj 466 620 r \$0-list-swap;
#X obj 297 621 s \$0-list-swap;
#X obj 137 355 r \$0-list-swap;
#N canvas 468 185 584 529 swap? 0;
#X obj 40 52 inlet;
#X obj 153 52 inlet;
#X obj 361 50 inlet;
#X obj 40 272 spigot 1;
#X obj 256 272 spigot;
#X obj 361 224 unpack 0 0;
#X msg 361 178 1 0;
#X msg 412 196 0 1;
#X obj 463 93 select 0;
#X obj 361 71 select asc desc;
#X obj 40 437 outlet;
#X obj 153 437 outlet;
#X obj 256 300 swap;
#X obj 153 271 spigot 1;
#X obj 317 273 spigot;
#X connect 0 0 3 0;
#X connect 0 0 4 0;
#X connect 1 0 13 0;
#X connect 1 0 14 0;
#X connect 2 0 9 0;
#X connect 3 0 10 0;
#X connect 4 0 12 0;
#X connect 5 0 3 1;
#X connect 5 0 13 1;
#X connect 5 1 4 1;
#X connect 5 1 14 1;
#X connect 6 0 5 0;
#X connect 7 0 5 0;
#X connect 8 0 6 0;
#X connect 8 1 7 0;
#X connect 9 0 6 0;
#X connect 9 1 7 0;
#X connect 9 2 8 0;
#X connect 12 0 10 0;
#X connect 12 1 11 0;
#X connect 13 0 11 0;
#X connect 14 0 12 1;
#X restore 101 471 pd swap?;
#X obj 164 470 r \$0-direction;
#X connect 0 0 2 0;
#X connect 1 0 2 1;
#X connect 1 0 5 1;
#X connect 1 0 16 1;
#X connect 2 0 17 0;
#X connect 3 0 45 0;
#X connect 4 0 45 1;
#X connect 5 0 39 0;
#X connect 6 0 7 0;
#X connect 7 0 22 0;
#X connect 7 1 27 0;
#X connect 7 2 22 0;
#X connect 8 0 10 1;
#X connect 9 0 10 2;
#X connect 10 0 11 1;
#X connect 10 0 43 0;
#X connect 11 0 10 0;
#X connect 12 0 26 0;
#X connect 13 0 28 0;
#X connect 14 0 18 0;
#X connect 14 1 35 0;
#X connect 15 0 16 0;
#X connect 15 0 14 0;
#X connect 16 0 15 1;
#X connect 17 0 13 0;
#X connect 17 1 15 1;
#X connect 18 0 21 0;
#X connect 18 1 19 0;
#X connect 20 0 13 1;
#X connect 22 0 24 0;
#X connect 22 1 23 0;
#X connect 25 0 12 0;
#X connect 27 0 11 0;
#X connect 27 1 9 0;
#X connect 27 1 8 0;
#X connect 28 0 29 0;
#X connect 28 1 15 0;
#X connect 29 0 30 0;
#X connect 30 0 3 0;
#X connect 30 1 4 0;
#X connect 31 0 12 1;
#X connect 32 0 11 1;
#X connect 33 0 29 1;
#X connect 36 0 5 0;
#X connect 37 0 8 1;
#X connect 38 0 3 1;
#X connect 40 0 9 1;
#X connect 41 0 4 1;
#X connect 42 0 12 1;
#X connect 44 0 29 1;
#X connect 45 0 6 0;
#X connect 45 1 6 1;
#X connect 46 0 45 2;
#X restore 95 221 pd \$0-test-swap-loop;
#X obj 26 274 list;
#X obj 49 103 sel 0 1;
#X obj 72 43 s \$0-list-init;
#X obj 99 242 r \$0-list-init;
#X obj 26 22 t b a a;
#X obj 26 -1 list-filter;
#N canvas 0 0 677 293 \$0-checknum 0;
#X obj 131 95 route float;
#X msg 131 116 1;
#X obj 205 149 print;
#X msg 205 119 list-sort: Warning: dropped a non-number from list;
#X obj 131 70 inlet;
#X obj 131 149 outlet;
#X connect 0 0 1 0;
#X connect 0 1 3 0;
#X connect 1 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 0 0;
#X restore 115 -1 pd \$0-checknum;
#X text 46 343 2008 Matt Barber;
#X obj 452 140 loadbang;
#X obj 387 52 inlet;
#X obj 387 201 list append \$1;
#X obj 387 171 t b a;
#X obj 387 229 s \$0-direction;
#X connect 0 0 13 0;
#X connect 2 0 6 0;
#X connect 3 0 9 0;
#X connect 4 0 7 0;
#X connect 5 0 2 0;
#X connect 5 1 4 1;
#X connect 6 0 4 0;
#X connect 6 1 7 1;
#X connect 7 0 8 1;
#X connect 8 0 1 0;
#X connect 9 2 5 0;
#X connect 11 0 8 1;
#X connect 12 0 8 0;
#X connect 12 1 3 0;
#X connect 12 2 10 0;
#X connect 13 0 12 0;
#X connect 13 1 14 0;
#X connect 14 0 13 1;
#X connect 16 0 18 0;
#X connect 17 0 19 0;
#X connect 18 0 20 0;
#X connect 19 0 18 0;
#X connect 19 1 18 1;