sort.rkt

#lang racket/base

(define N 10000000)

(unless (fixnum? (* 100 N)) (error 'fail))

(require futures-sort racket/fixnum racket/vector)

(define fxv (for/fxvector #:length N
                          ([_ (in-range N)])
                          (random (* 10 N))))

(define fxv2 (fxvector-copy fxv))

(define v (for/vector #:length N
                          ([_ (in-range N)])
                          (random (* 10 N))))

(define v2 (vector-copy v))
(define v3 (vector-copy v))

(collect-garbage)

(define (try k)
  (collect-garbage)
  (define fxv (fxvector-copy fxv2))
  (parameterize ([futures-sort-parallel-depth k])
    (printf "k: ~s\n" k)
    (time (fxvector-futures-sort! fxv))))

(define (tryv k)
  (collect-garbage)
  (define v (vector-copy v2))
  (parameterize ([futures-sort-parallel-depth k])
    (printf "k: ~s\n" k)
    (time (vector-futures-sort! v))))

(try 0)
(try 1)
(try 2)
(try 3)
(try 4)
(try 8)
(try 16)

(tryv 0)
(tryv 1)
(tryv 2)
(tryv 3)
(tryv 4)
(tryv 8)
(tryv 16)

'classic
(time (vector-sort! v3 <))