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 tools.test specialized-arrays alien.c-types ;
5 SPECIALIZED-ARRAY: double
6 IN: random.lagged-fibonacci.tests
10 1000 [ random-float ] double-array{ } replicate-as
11 999 swap nth 0.860072135925293 -.01 ~
16 3 <lagged-fibonacci> [
18 1000 [ random-float ] double-array{ } replicate-as
22 1000 [ random-float ] double-array{ } replicate-as