soegaard · November 17, 2012 12:47
diff --git a/lc53.rkt b/lc53.rkt
 #lang racket/base

 (define m (- (expt 2 32) 5))
 (define a (- (expt 2 32) 333333333))

 (define rand
  (let ([xn 1])
    (λ ()
      (set! xn (modulo (* a xn) m))
      xn)))

 (build-list 20 (λ(+) (rand)))
	#lang racket/base

	(define m (- (expt 2 32) 5))
	(define a (- (expt 2 32) 333333333))

	(define rand
	(let ([xn 1])
	(λ ()
	(set! xn (modulo (* a xn) m))
	xn)))

	(build-list 20 (λ(+) (rand)))