Eric Dobson endobson

endobson / time.rkt

Last active August 29, 2015 14:02 — forked from samth/time.rkt

	#lang racket

	(define N 100000000)
	(define K 50000000)

	(for ((j 5))
	(time
	(for/fold ([c 0]) ([i (in-range N)] #:break (not c))
	(if (= i K)
	#f