mirror of
https://github.com/google-deepmind/deepmind-research.git
synced 2026-05-10 05:17:46 +08:00
Laurent Orseau
14 lines
198 B
Racket
14 lines
198 B
Racket
#lang racket/base
|
|
|
|
(require rackunit
|
|
satore/misc)
|
|
|
|
(define-counter num 0)
|
|
(check-equal? num 0)
|
|
(++num)
|
|
(check-equal? num 1)
|
|
(++num 3)
|
|
(check-equal? num 4)
|
|
(reset-num!)
|
|
(check-equal? num 0)
|