extra/random/lagged-fibonacci/lagged-fibonacci-tests.factor

   1 ! Copyright (C) 2009 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: fry kernel math.functions random random.lagged-fibonacci
   4 sequences specialized-arrays.instances.double tools.test ;
   5 IN: random.lagged-fibonacci.tests
   6
   7 [ t ] [
   8     3 <lagged-fibonacci> [
   9         1000 [ random-float ] double-array{ } replicate-as
  10         999 swap nth 0.860072135925293 -.01 ~
  11     ] with-random
  12 ] unit-test
  13
  14 [ t ] [
  15     3 <lagged-fibonacci> [
  16         [
  17             1000 [ random-float ] double-array{ } replicate-as
  18         ] with-random
  19     ] [
  20         3 seed-random [
  21             1000 [ random-float ] double-array{ } replicate-as
  22         ] with-random =
  23     ] bi
  24 ] unit-test