1
#N canvas 137 350 811 532 10;
2
#X obj 95 233 print UNSORTED;
5
#X text 314 87 any package-elements that are non-float will be interpreted
9
#X obj 56 467 print ASCENDING;
10
#X obj 37 377 sort -1;
11
#X obj 37 487 print DESCENDING;
12
#X text 278 297 creation : "sort [<dir>]";
13
#X text 457 310 dir < 0 :: descending sort;
14
#X text 456 297 dir >= 0 :: ascending sort;
15
#X text 460 328 dir defaults to ascending;
16
#N canvas 360 175 475 254 randompackage 0;
17
#X obj 37 190 pack 0 0 0 0 0 0 0 0 0 0 0;
18
#X obj 170 87 random 15;
19
#X obj 156 104 random 15;
20
#X obj 143 121 random 15;
21
#X obj 130 138 random 15;
22
#X obj 116 155 random 15;
23
#X obj 103 172 random 15;
24
#X obj 90 87 random 15;
25
#X obj 76 104 random 15;
26
#X obj 63 121 random 15;
27
#X obj 50 138 random 15;
28
#X obj 37 155 random 15;
30
#X obj 37 69 t b b b b b b b b b b b;
56
#X restore 37 195 pd randompackage;
59
#X floatatom 94 268 0 0 0 0 - - -;
60
#X text 128 270 direction;
61
#X obj 37 213 t l l l l;
63
#X obj 75 448 print SORTED;
64
#X text 237 23 shell-sort a package of floats;
65
#X text 553 16 part of zexy;
66
#X obj 81 402 print indicesD;
67
#X obj 93 357 print indicesA;
68
#X obj 72 177 print -----;
69
#X text 269 162 the second outlet gives the indices of the input data.