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

fix typo in fooify-test

erg 2006-12-14 19:38:48 +00:00
parent d03f46e784
commit 9e705d5599
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
apps/random-tester/random-tester2.factor
View File

@ -103,8 +103,7 @@ w1 wordbank set-global
: databank : databank
{ {
! V{ } H{ } V{ 3 } { 3 } { } "" "asdf" ! V{ } H{ } V{ 3 } { 3 } { } "" "asdf"
pi pi 1/0. -1/0. 0/0. [ ]
1/0. -1/0. 0/0. [ ]
f t "" 0 0.0 3.14 2 -3 -7 20 3/4 -3/4 1.2/3 3.5 f t "" 0 0.0 3.14 2 -3 -7 20 3/4 -3/4 1.2/3 3.5
C{ 2 2 } C{ 1/0. 1/0. } C{ 2 2 } C{ 1/0. 1/0. }
} ; } ;
@ -149,6 +148,7 @@ err off
: run-random-tester2 : run-random-tester2
100000000000000 [ 6 3 random-test ] times ; 100000000000000 [ 6 3 random-test ] times ;
! A worthwhile test that has not been run extensively ! A worthwhile test that has not been run extensively
1000 [ drop gensym ] map "syms" set 1000 [ drop gensym ] map "syms" set
@ -159,5 +159,5 @@ err off
2000 random-int >quotation 2000 random-int >quotation
over set-word-def over set-word-def
100 random-int zero? [ code-gc ] when 100 random-int zero? [ code-gc ] when
compile fooify ; compile fooify-test ;