-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathls.split_last_as_pivot.pd
executable file
·258 lines (258 loc) · 6.56 KB
/
ls.split_last_as_pivot.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
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
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
#N canvas 188 252 1393 776 12;
#X text 349 49 nums: 48 a 57;
#X obj 378 342 list store;
#X text 503 25 A -> 65;
#X text 503 37 Z -> 90;
#X text 503 51 a -> 97;
#X text 503 62 z -> 122;
#X text 167 541 0: both args are numbers \;;
#X text 160 554 -1: pivot is char \, current val is number;
#X text 167 568 1: pivot is number \, current val is char;
#X text 167 582 2: pivot is char \, current val is char;
#N canvas 246 153 1419 818 compare_float_and_symbols 0;
#X obj 751 44 inlet;
#X obj 751 66 route float symbol;
#X msg 836 133 1;
#X msg 868 133 2;
#X msg 900 133 0;
#X obj 784 174 s \$0-pivot_type;
#X obj 550 49 inlet;
#X obj 550 71 route float symbol;
#X msg 551 144 1;
#X msg 583 144 2;
#X msg 615 144 0;
#X obj 551 170 s \$0-thisval_type;
#X text 1000 423 0: both args are numbers \;;
#X text 993 436 -1: pivot is char \, current val is number;
#X text 1000 450 1: pivot is number \, current val is char;
#X obj 576 425 expr if(($f2==2)&&($f1==1) \, -1 \, if(($f2==1)&&($f1==2)
\, 1 \, if(($f2==2)&&($f1==2) \, 2 \, if(($f2==1)&&($f1==1) \, 0 \,
100))));
#X text 1000 464 2: pivot is char \, current val is char;
#X obj 476 461 sel 0 -1 1 2;
#X obj 986 402 r \$0-pivot_type;
#X obj 576 403 r \$0-thisval_type;
#N canvas 0 23 624 510 float_and_float 0;
#X obj 36 39 inlet;
#X obj 169 115 v \$0-pivot_float;
#X obj 36 115 v \$0-currval_float;
#X obj 36 83 t b b;
#X obj 36 139 <=;
#X obj 36 163 sel 1 0;
#X msg 36 260 append \$1;
#X msg 346 261 append \$1;
#X obj 346 238 v \$0-currval_float;
#X obj 36 237 v \$0-currval_float;
#X obj 346 284 outlet;
#X obj 36 284 outlet;
#X connect 0 0 3 0;
#X connect 1 0 4 1;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 3 1 1 0;
#X connect 4 0 5 0;
#X connect 5 0 9 0;
#X connect 5 1 8 0;
#X connect 6 0 11 0;
#X connect 7 0 10 0;
#X connect 8 0 7 0;
#X connect 9 0 6 0;
#X restore 576 580 pd float_and_float;
#X obj 752 247 v \$0-pivot_float;
#X obj 762 224 v \$0-pivot_symbol_as_float;
#X obj 762 202 list fromsymbol;
#X obj 477 202 list fromsymbol;
#X obj 477 224 v \$0-currval_symbol_as_float;
#X obj 467 247 v \$0-currval_float;
#X obj 576 557 sel 0;
#X obj 576 462 s \$0-compare_proc;
#X obj 576 509 r \$0-compare_proc;
#X obj 699 602 s \$0-list_right;
#X obj 576 603 s \$0-list_left;
#X obj 896 174 v \$0-pivottype;
#X obj 467 98 t b f;
#X obj 751 96 t b f;
#X obj 795 97 t b symbol;
#X obj 510 98 t b symbol;
#X connect 0 0 1 0;
#X connect 1 0 34 0;
#X connect 1 1 35 0;
#X connect 1 2 4 0;
#X connect 2 0 5 0;
#X connect 2 0 32 0;
#X connect 3 0 5 0;
#X connect 3 0 32 0;
#X connect 4 0 5 0;
#X connect 4 0 32 0;
#X connect 6 0 7 0;
#X connect 7 0 33 0;
#X connect 7 1 36 0;
#X connect 7 2 10 0;
#X connect 8 0 11 0;
#X connect 9 0 11 0;
#X connect 10 0 11 0;
#X connect 15 0 17 0;
#X connect 15 0 28 0;
#X connect 18 0 15 1;
#X connect 19 0 15 0;
#X connect 20 0 31 0;
#X connect 20 1 30 0;
#X connect 23 0 22 0;
#X connect 24 0 25 0;
#X connect 27 0 20 0;
#X connect 29 0 27 0;
#X connect 33 0 8 0;
#X connect 33 1 26 0;
#X connect 34 0 2 0;
#X connect 34 1 21 0;
#X connect 35 0 3 0;
#X connect 35 1 23 0;
#X connect 36 0 9 0;
#X connect 36 1 24 0;
#X restore 378 406 pd compare_float_and_symbols;
#X obj 821 444 outlet;
#X obj 772 444 outlet;
#X obj 721 444 outlet;
#X obj 721 348 r \$0-output_finally;
#N canvas 0 23 1439 482 finally 1;
#X obj 134 301 r \$0-list_left;
#X obj 357 304 r \$0-list_right;
#X obj 134 325 list store;
#X obj 357 328 list store;
#X obj 575 345 outlet;
#X obj 357 352 outlet;
#X obj 134 352 outlet;
#X obj 575 289 v \$0-pivot_float;
#X obj 595 238 v \$0-pivot_symbol_as_float;
#X obj 575 192 v \$0-pivot_type;
#X obj 575 215 sel 1 2 0;
#X obj 595 261 list tosymbol;
#X obj 213 325 r \$0-resetoutlists;
#X obj 434 328 r \$0-resetoutlists;
#X obj 228 32 inlet;
#X obj 1101 201 r \$0-list_left;
#X obj 892 201 r \$0-list_right;
#X obj 1101 225 list store;
#X obj 892 225 list store;
#X obj 1158 408 outlet;
#X obj 892 366 outlet;
#X obj 1180 225 r \$0-resetoutlists;
#X obj 969 225 r \$0-resetoutlists;
#X obj 1101 254 list length;
#X obj 892 253 list length;
#X obj 1069 345 + 1;
#X obj 892 309 pack 0 0;
#X msg 892 333 \$2 \$1;
#X msg 1214 403 0 \$1;
#X obj 718 325 f;
#X obj 718 348 outlet;
#X obj -95 352 list store;
#X obj -16 352 r \$0-resetoutlists;
#X obj -91 322 list trim;
#X obj -92 298 list prepend append;
#X obj -287 320 list trim;
#X obj -288 296 list prepend prepend;
#X obj 227 61 t b b b b b b b;
#X obj -95 375 outlet;
#X obj 1068 45 inlet;
#X obj 1162 345 pack 0 0;
#X obj 1162 313 f;
#X obj 1051 372 f;
#X obj 1051 396 +;
#X obj 1102 276 t f f b f;
#X obj 922 283 t f b;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 6 0;
#X connect 2 0 36 0;
#X connect 3 0 5 0;
#X connect 3 0 34 0;
#X connect 7 0 4 0;
#X connect 7 0 31 1;
#X connect 8 0 11 0;
#X connect 9 0 10 0;
#X connect 10 0 7 0;
#X connect 10 1 8 0;
#X connect 11 0 4 0;
#X connect 11 0 31 1;
#X connect 12 0 2 1;
#X connect 13 0 3 1;
#X connect 14 0 37 0;
#X connect 15 0 17 0;
#X connect 16 0 18 0;
#X connect 17 0 23 0;
#X connect 18 0 24 0;
#X connect 21 0 17 1;
#X connect 22 0 18 1;
#X connect 23 0 28 0;
#X connect 23 0 44 0;
#X connect 24 0 45 0;
#X connect 25 0 42 1;
#X connect 26 0 27 0;
#X connect 27 0 20 0;
#X connect 29 0 30 0;
#X connect 31 0 38 0;
#X connect 32 0 31 1;
#X connect 33 0 31 0;
#X connect 34 0 33 0;
#X connect 35 0 31 0;
#X connect 36 0 35 0;
#X connect 37 0 31 0;
#X connect 37 1 2 0;
#X connect 37 2 3 0;
#X connect 37 3 9 0;
#X connect 37 4 29 0;
#X connect 37 5 18 0;
#X connect 37 6 17 0;
#X connect 39 0 41 1;
#X connect 40 0 19 0;
#X connect 41 0 40 0;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 26 1;
#X connect 44 0 29 1;
#X connect 44 1 25 0;
#X connect 44 2 41 0;
#X connect 44 3 40 1;
#X connect 45 0 26 0;
#X connect 45 1 42 0;
#X restore 721 371 pd finally;
#X obj 358 432 s \$0-output_finally;
#X obj 358 278 t b b l l b;
#X obj 492 278 s \$0-resetoutlists;
#X obj 355 159 inlet;
#X obj 457 343 r \$0-resetoutlists;
#X obj 571 312 ls.last;
#X obj 445 312 ls.butlast;
#X obj 378 365 ls.iter;
#X obj 993 443 outlet;
#X obj 944 443 outlet;
#X obj 880 427 outlet;
#X obj 665 443 outlet;
#X obj 377 215 t l b;
#X obj 787 147 inlet;
#X msg 787 173 \$1;
#X text 883 404 ajustar!;
#X connect 1 0 23 0;
#X connect 14 0 15 0;
#X connect 15 0 27 0;
#X connect 15 1 13 0;
#X connect 15 2 12 0;
#X connect 15 3 11 0;
#X connect 15 4 26 0;
#X connect 15 5 25 0;
#X connect 15 6 24 0;
#X connect 17 0 16 0;
#X connect 17 1 1 0;
#X connect 17 2 22 0;
#X connect 17 3 21 0;
#X connect 17 4 18 0;
#X connect 19 0 28 0;
#X connect 20 0 1 1;
#X connect 21 0 10 1;
#X connect 22 0 1 1;
#X connect 23 0 10 0;
#X connect 28 0 17 0;
#X connect 28 1 18 0;
#X connect 29 0 30 0;
#X connect 30 0 15 1;