;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
;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))))
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
扫一扫
