;3.6
(define (new-rand x)
(define seed 0)
(cond ((eq? x 'generate) (rand-update seed))
((eq? x 'reset) (lambda (y) (set! seed y)))
(else (display 'ERROR))))
3.6
最新推荐文章于 2024-05-28 15:20:59 发布
;3.6
(define (new-rand x)
(define seed 0)
(cond ((eq? x 'generate) (rand-update seed))
((eq? x 'reset) (lambda (y) (set! seed y)))
(else (display 'ERROR))))