fbench.rkt

#lang racket/base
(require racket/future)
(define N 100000000)
(define v (for/vector #:length N ([i N]) i))

(define (sum-vec v)
  (for/sum ([i (in-vector v)]) i))

;(time (+ (sum-vec v) (sum-vec v)))
(define t1 (current-process-milliseconds))
(time (let ([n1 (future (lambda () (sum-vec v)))]
            [n2 (sum-vec v)])
        (+ (touch n1) n2)))
(define t2 (current-process-milliseconds))
(- t2 t1)