Skip to content

Instantly share code, notes, and snippets.

@pimeys
Created May 15, 2012 15:20
Show Gist options
  • Save pimeys/2702588 to your computer and use it in GitHub Desktop.
Save pimeys/2702588 to your computer and use it in GitHub Desktop.
Quicksort trace
> (require racket/trace)
> (load "quicksort.rkt")
> (trace qsort)
> (qsort '(5 4 3 2 1))
>(qsort '(5 4 3 2 1))
> (qsort '(4 3 2 1))
> >(qsort '(3 2 1))
> > (qsort '(2 1))
> > >(qsort '(1))
> > > (qsort '())
< < < '()
> > > (qsort '())
< < < '()
< < <'(1)
> > >(qsort '())
< < <'()
< < '(1 2)
> > (qsort '())
< < '()
< <'(1 2 3)
> >(qsort '())
< <'()
< '(1 2 3 4)
> (qsort '())
< '()
<'(1 2 3 4 5)
ANOTHER ONE
>(qsort '(3 5 2 0 9 10 7 5 2 5 1))
> (qsort '(2 0 2 1))
> >(qsort '(0 1))
> > (qsort '())
< < '()
> > (qsort '(1))
> > >(qsort '())
< < <'()
> > >(qsort '())
< < <'()
< < '(1)
< <'(0 1)
> >(qsort '(2))
> > (qsort '())
< < '()
> > (qsort '())
< < '()
< <'(2)
< '(0 1 2 2)
> (qsort '(5 9 10 7 5 5))
> >(qsort '())
< <'()
> >(qsort '(9 10 7 5 5))
> > (qsort '(7 5 5))
> > >(qsort '(5 5))
> > > (qsort '())
< < < '()
> > > (qsort '(5))
> > > >(qsort '())
< < < <'()
> > > >(qsort '())
< < < <'()
< < < '(5)
< < <'(5 5)
> > >(qsort '())
< < <'()
< < '(5 5 7)
> > (qsort '(10))
> > >(qsort '())
< < <'()
> > >(qsort '())
< < <'()
< < '(10)
< <'(5 5 7 9 10)
< '(5 5 5 7 9 10)
<'(0 1 2 2 3 5 5 5 7 9 10)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment