Implementation of lc53

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)))