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

remove dependency on contr-bmath

cvs
Doug Coleman 2006-01-27 19:31:50 +00:00
parent 01d9faa5fa
commit 133793ced1
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/random-tester/load.factor
View File

@ -1,8 +1,6 @@
USING: kernel parser sequences words compiler ; USING: kernel parser sequences words compiler ;
IN: scratchpad IN: scratchpad
"contrib/math/utils.factor" run-resource
{ {
"utils" "utils"
"random" "random"

8
contrib/random-tester/random-tester.factor
View File

@ -1,5 +1,5 @@
USING: kernel math sequences namespaces errors hashtables words arrays parser USING: kernel math sequences namespaces errors hashtables words arrays parser
compiler syntax lists io math-contrib ; compiler syntax lists io ;
USING: inspector prettyprint ; USING: inspector prettyprint ;
USING: optimizer compiler-frontend compiler-backend inference ; USING: optimizer compiler-frontend compiler-backend inference ;
IN: random-tester IN: random-tester
@ -67,10 +67,10 @@ IN: random-tester
: float>x ( float -- x ) : float>x ( float -- x )
{ {
1+ 1- >bignum >digit >fixnum abs absq arg 1+ 1- >bignum >digit >fixnum abs absq arg
cis conjugate cos cosec cosech ceiling cis conjugate cos cosec cosech
cosh cot coth double>bits exp float>bits imaginary cosh cot coth double>bits exp float>bits floor imaginary
log neg next-power-of-2 quadrant real sec log neg next-power-of-2 quadrant real sec
sech sgn sin sinh sq sqrt tan tanh sech sgn sin sinh sq sqrt tan tanh truncate
} ; } ;
: complex>x : complex>x

2
contrib/random-tester/random.factor
View File

@ -1,5 +1,5 @@
USING: kernel math sequences namespaces errors hashtables words arrays parser USING: kernel math sequences namespaces errors hashtables words arrays parser
compiler syntax lists io math-contrib ; compiler syntax lists io ;
USING: inspector prettyprint ; USING: inspector prettyprint ;
USING: optimizer compiler-frontend compiler-backend inference ; USING: optimizer compiler-frontend compiler-backend inference ;
IN: random-tester IN: random-tester

4
contrib/random-tester/utils.factor
View File

@ -1,10 +1,12 @@
USING: kernel math sequences namespaces errors hashtables words arrays parser USING: kernel math sequences namespaces errors hashtables words arrays parser
compiler syntax lists io math-contrib ; compiler syntax lists io ;
USING: optimizer compiler-frontend compiler-backend inference USING: optimizer compiler-frontend compiler-backend inference
inspector prettyprint ; inspector prettyprint ;
IN: random-tester IN: random-tester
: nth-rand ( seq -- elem ) [ length random-int ] keep nth ;
! HASHTABLES ! HASHTABLES
: random-hash-entry ( hash -- key value ) hash>alist nth-rand first2 ; : random-hash-entry ( hash -- key value ) hash>alist nth-rand first2 ;