steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.cardinality: adding some tests.

char-rename
John Benediktsson 2017-01-04 14:16:58 -08:00
parent dc3ee923ca
commit 5376587fb3
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
extra/math/cardinality/cardinality-tests.factor Normal file
View File

@ -0,0 +1,14 @@
USING: kernel layouts literals math math.cardinality
math.functions random sequences tools.test ;
${ fixnum-bits } [ 0 trailing-zeros ] unit-test
{ 0 } [ 0b1 trailing-zeros ] unit-test
{ 1 } [ 0b10 trailing-zeros ] unit-test
{ 2 } [ 0b100 trailing-zeros ] unit-test
{ 3 } [ 0b1000 trailing-zeros ] unit-test
{ t } [
10 [
10,000 [ random-units 10 estimate-cardinality ] [ / ] bi
] replicate [ 1.0 0.10 ~ ] all?
] unit-test