#N canvas 307 85 904 715 12; #N canvas 0 50 450 250 (subpatch) 0; #X array array2 37 float 3; #A 0 -0.190123 -0.663766 0.951924 -0.0321829 0.77024 -0.457619 -0.91616 -0.0919912 0.921974 0.118624 0.835651 0.261139 -0.00958693 -0.436145 -0.959643 -0.21389 -0.216589 0.889177 0.597854 -0.0115907 0.660091 0.586646 -0.0563207 -0.911147 -0.000403523 -0.401973 0.517768 -0.0076586 0.669839 0.283543 0.233198 0.256606 -0.50375 -0.609377 0.944942 0.0609596 -0.269468; #X coords 0 1 37 -1 200 140 1 0 0; #X restore 229 44 graph; #X obj 131 362 r quicksort; #X obj 510 124 array size array1; #X floatatom 510 148 5 0 0 0 - - -; #X obj 487 42 bng 15 250 50 0 empty empty perform_quicksort 17 7 0 10 -257985 -1 -1; #X obj 510 172 - 1; #X msg 510 196 0 \$1; #X obj 139 539 <; #N canvas 378 85 902 715 partition 1; #X obj 309 34 inlet; #X obj 309 60 unpack f f; #X obj 422 245 tabread array1; #X obj 309 89 t b f; #X obj 185 256 until; #X obj 422 271 s pivotValue; #X obj 185 354 tabread array1; #X obj 185 406 <; #X obj 203 379 r pivotValue; #X text 574 186 i; #X obj 496 428 r swap; #X obj 746 804 f; #X obj 746 727 t b f; #X obj 217 304 s incrementI; #X obj 498 187 f; #X obj 498 159 r incrementI; #X obj 540 187 + 1; #X obj 540 212 s iIndex; #X obj 234 910 pack f f; #X obj 234 934 s swap; #X obj 517 131 - 1; #X obj 609 158 f; #X obj 628 102 + 1; #X text 685 157 j; #X obj 651 183 s jIndex; #X obj 422 195 +; #X obj 422 219 >> 1; #X text 520 270 pivot = A[floor((hi+lo)/2)]; #X obj 243 227 r stopILoop; #X obj 217 481 s stopILoop; #X obj 185 538 until; #X obj 185 638 tabread array1; #X obj 203 663 r pivotValue; #X obj 217 511 r stopJLoop; #X obj 241 766 s stopJLoop; #X obj 651 158 - 1; #X obj 609 130 r decrementJ; #X obj 217 587 s decrementJ; #X obj 185 690 >; #X text 223 406 while A[i] < pivot; #X text 223 690 while A[j] > pivot; #X obj 185 280 t b b; #X obj 185 430 select 0; #X obj 185 563 t b b; #X text 234 256 do; #X text 228 536 do; #X obj 185 714 select 0; #X obj 185 329 value iIndex; #X obj 185 613 value jIndex; #X obj 185 739 t b b; #X obj 234 794 value jIndex; #X obj 134 794 value iIndex; #X obj 173 827 >=; #X obj 173 851 select 1 0; #X obj 97 951 value jIndex; #X obj 234 885 value iIndex; #X text 290 932 swap A[i] with A[j]; #X obj 185 455 t b b; #X obj 97 890 t b b; #X text 612 77 j = hi + 1; #X text 501 108 i = lo - 1; #X obj 155 255 cnv 15 5 250 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 156 539 cnv 15 5 250 empty empty empty 20 12 0 14 -233017 -66577 0; #X text 81 35 partition(lo \, hi); #X obj 97 988 outlet; #X obj 128 199 until; #X obj 207 173 r stopOuterLoop; #X obj 115 921 s stopOuterLoop; #X text 490 375 THIS IS WHERE TABLE ELEMENTS ARE SWAPPED; #X obj 496 453 t l b; #X obj 838 478 f; #X obj 868 478 + 1; #X obj 856 428 r reset; #X msg 856 453 0; #X obj 838 503 * 100; #X obj 813 597 pipe; #X obj 746 597 pipe; #X obj 496 533 unpack f f; #X obj 563 727 tabread array1; #X obj 496 804 f; #X obj 496 727 t b f; #X obj 614 830 tabwrite array1; #X obj 614 803 tabread array1; #X obj 496 830 tabwrite array1; #X obj 746 830 tabwrite array2; #X obj 864 803 tabread array2; #X obj 864 830 tabwrite array2; #X obj 813 727 tabread array2; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 1 1 22 0; #X connect 1 1 25 1; #X connect 2 0 5 0; #X connect 3 0 65 0; #X connect 3 1 20 0; #X connect 3 1 25 0; #X connect 4 0 41 0; #X connect 6 0 7 0; #X connect 7 0 42 0; #X connect 8 0 7 1; #X connect 10 0 69 0; #X connect 11 0 84 0; #X connect 12 0 11 0; #X connect 12 1 84 1; #X connect 12 1 85 0; #X connect 14 0 16 0; #X connect 15 0 14 0; #X connect 16 0 14 1; #X connect 16 0 17 0; #X connect 18 0 19 0; #X connect 20 0 14 1; #X connect 21 0 35 0; #X connect 22 0 21 1; #X connect 25 0 26 0; #X connect 26 0 2 0; #X connect 28 0 4 1; #X connect 30 0 43 0; #X connect 31 0 38 0; #X connect 32 0 38 1; #X connect 33 0 30 1; #X connect 35 0 21 1; #X connect 35 0 24 0; #X connect 36 0 21 0; #X connect 38 0 46 0; #X connect 41 0 47 0; #X connect 41 1 13 0; #X connect 42 0 57 0; #X connect 43 0 48 0; #X connect 43 1 37 0; #X connect 46 0 49 0; #X connect 47 0 6 0; #X connect 48 0 31 0; #X connect 49 0 51 0; #X connect 49 1 50 0; #X connect 49 1 34 0; #X connect 50 0 52 1; #X connect 50 0 18 1; #X connect 51 0 52 0; #X connect 52 0 53 0; #X connect 53 0 58 0; #X connect 53 1 55 0; #X connect 54 0 64 0; #X connect 55 0 18 0; #X connect 57 0 30 0; #X connect 57 1 29 0; #X connect 58 0 54 0; #X connect 58 1 67 0; #X connect 65 0 4 0; #X connect 66 0 65 1; #X connect 69 0 77 0; #X connect 69 1 70 0; #X connect 70 0 71 0; #X connect 70 0 74 0; #X connect 71 0 70 1; #X connect 72 0 73 0; #X connect 73 0 70 1; #X connect 74 0 75 1; #X connect 74 0 76 1; #X connect 75 0 86 1; #X connect 75 0 87 0; #X connect 76 0 12 0; #X connect 77 0 76 0; #X connect 77 0 80 0; #X connect 77 1 75 0; #X connect 77 1 78 0; #X connect 77 1 81 1; #X connect 78 0 79 1; #X connect 79 0 83 0; #X connect 80 0 79 0; #X connect 80 1 82 0; #X connect 80 1 83 1; #X connect 82 0 81 0; #X connect 85 0 86 0; #X connect 87 0 11 1; #X restore 139 637 pd partition; #X obj 84 711 pack f f; #X obj 209 687 + 1; #X obj 137 686 r qsLo; #X msg 84 735 \$2 \$1; #X obj 209 711 pack f f; #X obj 262 687 r qsHi; #X obj 490 398 list; #X obj 490 422 s nextList; #X obj 515 375 r nextList; #X obj 516 527 r nextList; #X obj 491 550 list; #X obj 653 666 s nextList; #X obj 491 639 unpack f f; #X text 486 323 push args on stack; #X text 486 478 pop args from stack; #X obj 491 666 s qsLo; #X obj 558 666 s qsHi; #X obj 58 35 bng 15 250 50 0 empty empty randomize_array 17 7 0 10 -257985 -1 -1; #X obj 58 111 array size array1; #X obj 58 60 t b b; #X msg 90 85 0; #X obj 58 135 until; #X obj 58 159 f; #X obj 99 159 + 1; #X obj 58 183 t b f; #X obj 58 231 / 1e+09; #X obj 58 279 tabwrite array1; #X obj 58 207 random 2e+09; #X obj 58 255 - 1; #X text 172 538 lo < hi?; #X text 234 637 partition(lo \, hi); #X text 207 783 quicksort(p+1 \, hi); #X obj 490 349 r pushStack; #X text 60 869 https://en.wikipedia.org/wiki/Quicksort; #X text 216 561 partition and recurse \, else exit; #X text 128 338 quicksort(lo \, hi); #X text 52 783 quicksort(lo \, p); #X obj 491 500 r popStack; #X obj 510 221 s pushStack; #X obj 149 483 r qsLo; #X obj 164 508 r qsHi; #X obj 131 409 until; #X obj 84 760 s pushStack; #X obj 209 760 s pushStack; #X obj 139 613 list; #X obj 613 639 list split 2; #X obj 164 589 r qsArgList; #X obj 613 693 s qsArgList; #X obj 487 257 s quicksort; #X obj 587 601 s done; #X obj 163 386 r done; #X obj 131 508 f; #X obj 131 433 t b b; #X obj 163 457 s popStack; #X obj 139 563 select 1; #X floatatom 250 204 5 0 0 0 - - -; #X obj 491 575 route list; #X obj 487 62 t b b b; #X obj 533 94 s reset; #X obj 68 305 tabwrite array2; #X obj 265 270 array define -k array1 37; #A 0 -0.190123 -0.663766 0.951924 -0.0321829 0.77024 -0.457619 -0.91616 -0.0919912 0.921974 0.118624 0.835651 0.261139 -0.00958693 -0.436145 -0.959643 -0.21389 -0.216589 0.889177 0.597854 -0.0115907 0.660091 0.586646 -0.0563207 -0.911147 -0.000403523 -0.401973 0.517768 -0.0076586 0.669839 0.283543 0.233198 0.256606 -0.50375 -0.609377 0.944942 0.0609596 -0.269468; #X connect 1 0 50 0; #X connect 2 0 3 0; #X connect 3 0 5 0; #X connect 4 0 66 0; #X connect 5 0 6 0; #X connect 6 0 47 0; #X connect 7 0 63 0; #X connect 8 0 10 0; #X connect 8 0 9 0; #X connect 9 0 12 0; #X connect 10 0 13 0; #X connect 11 0 9 1; #X connect 12 0 51 0; #X connect 13 0 52 0; #X connect 14 0 13 1; #X connect 15 0 16 0; #X connect 17 0 15 1; #X connect 18 0 19 1; #X connect 19 0 65 0; #X connect 21 0 24 0; #X connect 21 1 25 0; #X connect 26 0 28 0; #X connect 27 0 30 0; #X connect 28 0 27 0; #X connect 28 1 29 0; #X connect 29 0 31 1; #X connect 30 0 31 0; #X connect 31 0 32 0; #X connect 31 0 33 0; #X connect 32 0 31 1; #X connect 33 0 36 0; #X connect 33 1 35 1; #X connect 33 1 68 1; #X connect 34 0 37 0; #X connect 36 0 34 0; #X connect 37 0 35 0; #X connect 37 0 68 0; #X connect 41 0 15 0; #X connect 46 0 19 0; #X connect 48 0 60 1; #X connect 49 0 7 1; #X connect 50 0 61 0; #X connect 53 0 8 0; #X connect 54 0 56 0; #X connect 54 1 20 0; #X connect 55 0 53 1; #X connect 59 0 50 1; #X connect 60 0 7 0; #X connect 61 0 60 0; #X connect 61 1 62 0; #X connect 63 0 53 0; #X connect 65 0 21 0; #X connect 65 0 54 0; #X connect 65 1 58 0; #X connect 66 0 57 0; #X connect 66 1 2 0; #X connect 66 2 67 0;