fork download 
  1. (define-syntax compile-time
  2.   (λ (stx)
  3.     (datum->syntax stx
  4.                    (for/sum ((n 100000000)) n))))
  5.  
  6. (define run-time
  7.   (λ ()
  8.     (for/sum ((n 100000000)) n)))
  9.  
  10. (time (displayln (compile-time)))
  11.  
  12. (time (displayln (run-time)))
Success #stdin #stdout 6.56s 97216KB
comments (?)
stdin 
Standard input is empty
stdout 
4999999950000000
cpu time: 0 real time: 0 gc time: 0
4999999950000000
cpu time: 3164 real time: 3164 gc time: 0
https://ideone.com/UUFOb7
language:
Racket (racket 7.0)
created:
7 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!