extra/random/blum-blum-shub/blum-blum-shub-tests.factor

   1 USING: kernel math tools.test namespaces random
   2 random.blum-blum-shub alien.c-types sequences splitting
   3 grouping ;
   4 IN: blum-blum-shub.tests
   5
   6 { 887708070 } [
   7     T{ blum-blum-shub f 590695557939 811977232793 } clone random-32*
   8 ] unit-test
   9
  10
  11 { 887708070 } [
  12     T{ blum-blum-shub f 590695557939 811977232793 } clone [
  13         32 random-bits
  14     ] with-random
  15 ] unit-test
  16
  17 { 3812677130378646276 } [
  18     T{ blum-blum-shub f 590695557939 811977232793 } clone [
  19         64 random-bits
  20     ] with-random
  21 ] unit-test
  22
  23 { 3716213681 }
  24 [
  25     T{ blum-blum-shub f 200352954495 846054538649 } clone 100 over [
  26         random-32* drop
  27     ] curry times
  28     random-32*
  29 ] unit-test