73 lines
1.5 KiB
Factor
73 lines
1.5 KiB
Factor
! Copyright (C) 2010 Jon Harper.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: tools.test combinators.random combinators.random.private ;
|
|
IN: combinators.random.tests
|
|
|
|
[ 1 ] [ 1 [ 1 ] [ 2 ] ifp ] unit-test
|
|
[ 2 ] [ 0 [ 1 ] [ 2 ] ifp ] unit-test
|
|
|
|
[ 3 ]
|
|
[ { { 0 [ 1 ] }
|
|
{ 0 [ 2 ] }
|
|
{ 1 [ 3 ] }
|
|
[ 4 ]
|
|
} casep ] unit-test
|
|
|
|
[ 4 ]
|
|
[ { { 0 [ 1 ] }
|
|
{ 0 [ 2 ] }
|
|
{ 0 [ 3 ] }
|
|
[ 4 ]
|
|
} casep ] unit-test
|
|
|
|
[ 1 1 ] [ 1 {
|
|
{ 1 [ 1 ] }
|
|
{ 0 [ 2 ] }
|
|
{ 0 [ 3 ] }
|
|
[ 4 ]
|
|
} casep ] unit-test
|
|
|
|
[ 1 4 ] [ 1 {
|
|
{ 0 [ 1 ] }
|
|
{ 0 [ 2 ] }
|
|
{ 0 [ 3 ] }
|
|
[ 4 ]
|
|
} casep ] unit-test
|
|
|
|
[ 2 ] [ 0.7 {
|
|
{ 0.3 [ 1 ] }
|
|
{ 0.5 [ 2 ] }
|
|
[ 2 ] } (casep) ] unit-test
|
|
|
|
[ { { 1/3 [ 1 ] }
|
|
{ 1/3 [ 2 ] }
|
|
{ 1/3 [ 3 ] } } ]
|
|
[ { [ 1 ] [ 2 ] [ 3 ] } call-random>casep ] unit-test
|
|
|
|
[ { { 1/2 [ 1 ] }
|
|
{ 1/4 [ 2 ] }
|
|
{ 1/4 [ 3 ] } } ]
|
|
[ { { 1/2 [ 1 ] }
|
|
{ 1/2 [ 2 ] }
|
|
{ 1 [ 3 ] } } direct>conditional ] unit-test
|
|
|
|
[ { { 1/2 [ 1 ] }
|
|
{ 1/4 [ 2 ] }
|
|
{ [ 3 ] } } ]
|
|
[ { { 1/2 [ 1 ] }
|
|
{ 1/2 [ 2 ] }
|
|
{ [ 3 ] } } direct>conditional ] unit-test
|
|
|
|
[ f ] [ { { 0.6 [ 1 ] }
|
|
{ 0.6 [ 2 ] } } good-probabilities? ] unit-test
|
|
[ f ] [ { { 0.3 [ 1 ] }
|
|
{ 0.6 [ 2 ] } } good-probabilities? ] unit-test
|
|
[ f ] [ { { -0.6 [ 1 ] }
|
|
{ 1.4 [ 2 ] } } good-probabilities? ] unit-test
|
|
[ f ] [ { { -0.6 [ 1 ] }
|
|
[ 2 ] } good-probabilities? ] unit-test
|
|
[ t ] [ { { 0.6 [ 1 ] }
|
|
[ 2 ] } good-probabilities? ] unit-test
|
|
[ t ] [ { { 0.6 [ 1 ] }
|
|
{ 0.4 [ 2 ] } } good-probabilities? ] unit-test
|