#N canvas 307 51 904 931 12; #N canvas 0 50 450 250 (subpatch) 0; #X array array1 37 float 3; #A 0 -0.944118 -0.922007 -0.824092 -0.794199 -0.63429 -0.623393 -0.579422 -0.35391 -0.335908 -0.204815 -0.166074 -0.0423205 0.00559366 0.0136374 0.0464728 0.0975518 0.187641 0.238297 0.273431 0.28426 0.319719 0.329992 0.346391 0.349778 0.37429 0.44411 0.481049 0.578966 0.663914 0.687385 0.720241 0.722107 0.755434 0.859045 0.898911 0.921563 0.930147; #X coords 0 1 37 -1 200 140 1 0 0; #X restore 229 44 graph; #X obj 131 362 r quicksort; #X obj 519 94 array size array1; #X floatatom 519 118 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 519 142 - 1; #X msg 519 166 0 \$1; #X obj 139 539 <; #N canvas 1239 32 902 1043 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 496 703 unpack f f; #X obj 546 754 tabread array1; #X obj 426 804 f; #X obj 496 727 t b f; #X obj 544 830 tabwrite array1; #X obj 545 803 tabread array1; #X obj 426 830 tabwrite array1; #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 obj 528 577 realtime; #X obj 581 552 until; #X obj 528 627 select 1; #X obj 528 602 >= 100; #X text 490 375 THIS IS WHERE TABLE ELEMENTS ARE SWAPPED; #X text 494 396 BUT FIRST WE TRY TO BUSY WAIT 100mS; #X obj 496 452 t l b; #X obj 528 478 spigot; #X obj 528 502 t b b; #X obj 567 454 tgl 15 0 empty empty use_busy_wait 17 7 0 10 -262144 -1 -1 1 1; #X obj 528 651 s busyWaitDone; #X obj 613 527 r busyWaitDone; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 1 1 27 0; #X connect 1 1 30 1; #X connect 2 0 5 0; #X connect 3 0 70 0; #X connect 3 1 25 0; #X connect 3 1 30 0; #X connect 4 0 46 0; #X connect 6 0 7 0; #X connect 7 0 47 0; #X connect 8 0 7 1; #X connect 10 0 79 0; #X connect 11 0 14 0; #X connect 11 1 12 0; #X connect 11 1 15 1; #X connect 12 0 13 1; #X connect 13 0 17 0; #X connect 14 0 13 0; #X connect 14 1 16 0; #X connect 14 1 17 1; #X connect 16 0 15 0; #X connect 19 0 21 0; #X connect 20 0 19 0; #X connect 21 0 19 1; #X connect 21 0 22 0; #X connect 23 0 24 0; #X connect 25 0 19 1; #X connect 26 0 40 0; #X connect 27 0 26 1; #X connect 30 0 31 0; #X connect 31 0 2 0; #X connect 33 0 4 1; #X connect 35 0 48 0; #X connect 36 0 43 0; #X connect 37 0 43 1; #X connect 38 0 35 1; #X connect 40 0 26 1; #X connect 40 0 29 0; #X connect 41 0 26 0; #X connect 43 0 51 0; #X connect 46 0 52 0; #X connect 46 1 18 0; #X connect 47 0 62 0; #X connect 48 0 53 0; #X connect 48 1 42 0; #X connect 51 0 54 0; #X connect 52 0 6 0; #X connect 53 0 36 0; #X connect 54 0 56 0; #X connect 54 1 55 0; #X connect 54 1 39 0; #X connect 55 0 57 1; #X connect 55 0 23 1; #X connect 56 0 57 0; #X connect 57 0 58 0; #X connect 58 0 63 0; #X connect 58 1 60 0; #X connect 59 0 69 0; #X connect 60 0 23 0; #X connect 62 0 35 0; #X connect 62 1 34 0; #X connect 63 0 59 0; #X connect 63 1 72 0; #X connect 70 0 4 0; #X connect 71 0 70 1; #X connect 73 0 76 0; #X connect 74 0 73 1; #X connect 75 0 83 0; #X connect 76 0 75 0; #X connect 79 0 11 0; #X connect 79 1 80 0; #X connect 80 0 81 0; #X connect 81 0 74 0; #X connect 81 1 73 0; #X connect 82 0 80 1; #X connect 84 0 74 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+009; #X obj 58 279 tabwrite array1; #X obj 58 207 random 2e+009; #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 487 62 t b b; #X obj 491 500 r popStack; #X obj 519 191 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 227 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 250 227 array size array1; #X obj 491 575 route list; #X connect 1 0 51 0; #X connect 2 0 3 0; #X connect 3 0 5 0; #X connect 4 0 46 0; #X connect 5 0 6 0; #X connect 6 0 48 0; #X connect 7 0 64 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 52 0; #X connect 13 0 53 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 67 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 34 0 37 0; #X connect 36 0 34 0; #X connect 37 0 35 0; #X connect 41 0 15 0; #X connect 46 0 58 0; #X connect 46 1 2 0; #X connect 47 0 19 0; #X connect 49 0 61 1; #X connect 50 0 7 1; #X connect 51 0 62 0; #X connect 54 0 8 0; #X connect 55 0 57 0; #X connect 55 1 20 0; #X connect 56 0 54 1; #X connect 60 0 51 1; #X connect 61 0 7 0; #X connect 62 0 61 0; #X connect 62 1 63 0; #X connect 64 0 54 0; #X connect 65 0 66 0; #X connect 67 0 21 0; #X connect 67 0 55 0; #X connect 67 1 59 0;