[plt-dev] Racket web page

On Wed, May 26, 2010 at 10:35 AM, engineer <engineer at alum.mit.edu> wrote:
> I think the time func is a useful tool to show off.
>
> Maybe use the time func to compare 2 sort algos?
> Or to show that a particular algorithm is order n-squared or log-n...

Except for the fact that time, time-apply and plot are all a bit
bothersome to use. Their interfaces aren't that polished.

(define xs (for/list ([i (in-range 0 1000000 50000)]) i))
(define ys (for/list ([x xs])
             (collect-garbage)
             (call-with-values
              (lambda () (time-apply sort (list (build-list x (lambda
(i) (random))) <)))
              (compose second list))))
(require plot)
(plot (points (map vector xs ys))
      #:x-min 0 #:x-max (apply max xs) #:y-min 0 #:y-max (apply max ys))