Skip to content

Instantly share code, notes, and snippets.

@samth

samth/flsum.rkt

Created April 7, 2014 15:51
Show Gist options
  • Save samth/10022915 to your computer and use it in GitHub Desktop.
Save samth/10022915 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
flsum.rkt
#lang typed/racket
(require syntax/parse/define)
(define-simple-macro (for/flsum x ... (c ...) b ... e)
(for/fold x ... ([s 0.0]) (c ...) b ... (+ s e)))
(time (for/flsum : Float ([i : Positive-Fixnum (in-range 1 100000001)]) (/ 1.0 i)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment