Language: C C++ D Haskell Lua OCaml PHP Perl Plain Text Python Ruby Scheme Tcl ; pessimal algorithms and simplexity analysis (define (slowsort a i j) (when (< i j) (let ((m (quotient (+ i j) 2))) (slowsort a i m) (slowsort a (+ m 1) j) (when (> (vector-ref a m) (vector-ref a j)) (let ((t (vector-ref a m))) (vector-set! a m (vector-ref a j)) (vector-set! a j t))) (slowsort a i (- j 1))))) (define x (vector 4 6 7 1 5 2 3)) (display x) (newline) (slowsort x 0 6) (display x) (newline) Private [?] Run code Submit