blob: f06a7dfc2dcf893471ee901ce21da0829de00a92 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
(.module:
[lux #*
["_" test (#+ Test)]
[abstract
[monad (#+ do)]
[\spec
[functor
["$." contravariant]]]]
[data
["." bit ("#\." equivalence)]]
[math
["." random]
[number
["." nat]]]]
[\\
["." / (#+ Hash)
[//
[equivalence (#+ Equivalence)]]]])
(def: #export test
Test
(do random.monad
[leftN random.nat
rightN random.nat
#let [hash (: (Equivalence (/.Hash Nat))
(implementation
(def: (= (^open "left\.") (^open "right\."))
(and (bit\= (left\= (left\hash leftN) (left\hash leftN))
(right\= (right\hash leftN) (right\hash leftN)))
(bit\= (left\= (left\hash rightN) (left\hash rightN))
(right\= (right\hash rightN) (right\hash rightN)))
(bit\= (left\= (left\hash leftN) (left\hash rightN))
(right\= (right\hash leftN) (right\hash rightN)))))))]]
(<| (_.covering /._)
($_ _.and
(_.for [/.functor]
($contravariant.spec hash nat.hash /.functor))
))))
|