blob: f593c39c2b0003a717c1aa591303f33c643b8653 (
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
(load "../common")
(mtest
(random-state-get-vec (make-random-state #b'' 0))
#(740765398 1304255849 3309840409 338361566 4155223728 1162561521
4236628653 446542199 639181595 1801947880 2890206840 2695457564
2292665861 3251351234 2171649709 704313206 0)
(random-state-get-vec (make-random-state #b'FF' 0))
#(4278190080 1304255849 3309840409 338361566 4155223728 1162561521
4236628653 446542199 639181595 1801947880 2890206840 2695457564
2292665861 3251351234 2171649709 704313206 0)
(random-state-get-vec (make-random-state #b'FFFF' 0))
#(4294901760 1304255849 3309840409 338361566 4155223728 1162561521
4236628653 446542199 639181595 1801947880 2890206840 2695457564
2292665861 3251351234 2171649709 704313206 0)
(random-state-get-vec (make-random-state #b'FFFFFF' 0))
#(4294967040 1304255849 3309840409 338361566 4155223728 1162561521
4236628653 446542199 639181595 1801947880 2890206840 2695457564
2292665861 3251351234 2171649709 704313206 0)
(random-state-get-vec (make-random-state #b'FFFFFFFF' 0))
#(4294967295 1304255849 3309840409 338361566 4155223728 1162561521
4236628653 446542199 639181595 1801947880 2890206840 2695457564
2292665861 3251351234 2171649709 704313206 0)
(random-state-get-vec (make-random-state #b'FFFFFFFFFF' 0))
#(4294967295 4278190080 3309840409 338361566 4155223728 1162561521
4236628653 446542199 639181595 1801947880 2890206840 2695457564
2292665861 3251351234 2171649709 704313206 0)
(random-state-get-vec (make-random-state (make-buf (* 4 16) #xff) 0))
#(4294967295 4294967295 4294967295 4294967295 4294967295 4294967295
4294967295 4294967295 4294967295 4294967295 4294967295 4294967295
4294967295 4294967295 4294967295 4294967295 0)
(random-state-get-vec (make-random-state (make-buf (* 5 16) #xff) 0))
#(4294967295 4294967295 4294967295 4294967295 4294967295 4294967295
4294967295 4294967295 4294967295 4294967295 4294967295 4294967295
4294967295 4294967295 4294967295 4294967295 0))
(mtest
(random-state-get-vec (make-random-state 0 0))
#(740765398 1304255849 3309840409 338361566 4155223728 1162561521
4236628653 446542199 639181595 1801947880 2890206840 2695457564
2292665861 3251351234 2171649709 704313206 0)
(random-state-get-vec (make-random-state #xFF 0))
#(255 1304255849 3309840409 338361566 4155223728 1162561521 4236628653
446542199 639181595 1801947880 2890206840 2695457564 2292665861
3251351234 2171649709 704313206 0)
(random-state-get-vec (make-random-state #xFFFF 0))
#(65535 1304255849 3309840409 338361566 4155223728 1162561521 4236628653
446542199 639181595 1801947880 2890206840 2695457564 2292665861
3251351234 2171649709 704313206 0)
(random-state-get-vec (make-random-state #xFFFFFF 0))
#(16777215 1304255849 3309840409 338361566 4155223728 1162561521
4236628653 446542199 639181595 1801947880 2890206840 2695457564
2292665861 3251351234 2171649709 704313206 0)
(random-state-get-vec (make-random-state #xFFFFFFFF 0))
#(4294967295 1304255849 3309840409 338361566 4155223728 1162561521
4236628653 446542199 639181595 1801947880 2890206840 2695457564
2292665861 3251351234 2171649709 704313206 0)
(random-state-get-vec (make-random-state #xFFFFFFFFFF 0))
#(4294967295 255 3309840409 338361566 4155223728 1162561521 4236628653
446542199 639181595 1801947880 2890206840 2695457564 2292665861
3251351234 2171649709 704313206 0)
(random-state-get-vec (make-random-state (expt 2 (* 8 4 16)) 0))
#(740765398 1304255849 3309840409 338361566 4155223728 1162561521
4236628653 446542199 639181595 1801947880 2890206840 2695457564
2292665861 3251351234 2171649709 704313206 0)
(random-state-get-vec (make-random-state (pred (expt 2 (* 8 4 16))) 0))
#(4294967295 4294967295 4294967295 4294967295 4294967295 4294967295
4294967295 4294967295 4294967295 4294967295 4294967295 4294967295
4294967295 4294967295 4294967295 4294967295 0)
(random-state-get-vec (make-random-state (pred (expt 2 (* 8 4 17))) 0))
#(4294967295 4294967295 4294967295 4294967295 4294967295 4294967295
4294967295 4294967295 4294967295 4294967295 4294967295 4294967295
4294967295 4294967295 4294967295 4294967295 0))
(mtest
(random-state-get-vec (make-random-state
#(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)))
#(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
(random-state-get-vec (make-random-state
#(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17)))
#(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17)
(random-state-get-vec (make-random-state
#(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17) 10))
#(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17))
|
