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