random-instance
This commit is contained in:
parent
e780417355
commit
0003516d9d
|
@ -14,7 +14,8 @@
|
||||||
check-property*
|
check-property*
|
||||||
check-property
|
check-property
|
||||||
reject-test
|
reject-test
|
||||||
==>)
|
==>
|
||||||
|
random-instance)
|
||||||
|
|
||||||
(require racket/match)
|
(require racket/match)
|
||||||
(require rackunit)
|
(require rackunit)
|
||||||
|
@ -130,3 +131,6 @@
|
||||||
|
|
||||||
(define-syntax-rule (==> precondition expr)
|
(define-syntax-rule (==> precondition expr)
|
||||||
(if (not precondition) (reject-test) expr))
|
(if (not precondition) (reject-test) expr))
|
||||||
|
|
||||||
|
(define (random-instance e)
|
||||||
|
(from-nat e (random-index e)))
|
||||||
|
|
Loading…
Reference in New Issue