1 ! Copyright (C) 2020 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors kernel random random.mersenne-twister
4 reservoir-sampling tools.test ;
5 IN: reservoir-sampling.tests
11 { sampled V{ 1 2 1005 1004 } }
14 123 <mersenne-twister> [
16 V{ 1 2 3 4 } clone >>sampled
18 1001 over reservoir-sample
19 1002 over reservoir-sample
20 1003 over reservoir-sample
21 1004 over reservoir-sample
22 1005 over reservoir-sample
23 1006 over reservoir-sample
24 1007 over reservoir-sample