diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2020-10-07 06:39:32 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2020-10-07 06:39:32 -0700 |
| commit | dbdb940ab6c624820f295a1ee419fecbce075b86 (patch) | |
| tree | a09010c95c5ac04104832b487d9b215b77f490d7 /tests/013/well512a.tl | |
| parent | 21e158606061246c7fcabb07b18bc5bc2f001054 (diff) | |
| download | txr-dbdb940ab6c624820f295a1ee419fecbce075b86.tar.gz txr-dbdb940ab6c624820f295a1ee419fecbce075b86.tar.bz2 txr-dbdb940ab6c624820f295a1ee419fecbce075b86.zip | |
random: add tests validating WELL512a.
* tests/013/well512a.tl: New file.
* tests/013/well512a.expected: New file.
Diffstat (limited to 'tests/013/well512a.tl')
| -rw-r--r-- | tests/013/well512a.tl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/013/well512a.tl b/tests/013/well512a.tl new file mode 100644 index 00000000..3f238925 --- /dev/null +++ b/tests/013/well512a.tl @@ -0,0 +1,8 @@ +(let ((rs (make-random-state #(#x01010101 #x11111111 #x22222222 #x33333333 + #x44444444 #x55555555 #x66666666 #x77777777 + #x88888888 #x99999999 #xAAAAAAAA #xBBBBBBBB + #xCCCCCCCC #xDDDDDDDD #xEEEEEEEE #xFFFFFFFF + 0))) + (mod (expt 2 32))) + (for ((i 0)) ((< i 16)) ((inc i)) + (pprinl (rand mod rs)))) |