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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Doug Coleman 2008-09-09 19:31:35 -05:00
parent e3b67a2b20 6d62a34ba0
commit 0507f99a36
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/random/blum-blum-shub/blum-blum-shub-tests.factor
View File

@ -8,14 +8,14 @@ IN: blum-blum-shub.tests
] unit-test ] unit-test
[ 887708070 ] [ [ 70576473 ] [
T{ blum-blum-shub f 590695557939 811977232793 } clone [ T{ blum-blum-shub f 590695557939 811977232793 } clone [
32 random-bits 32 random-bits
little-endian? [ <uint> reverse *uint ] unless little-endian? [ <uint> reverse *uint ] unless
] with-random ] with-random
] unit-test ] unit-test
[ 5726770047455156646 ] [ [ 5570804936418322777 ] [
T{ blum-blum-shub f 590695557939 811977232793 } clone [ T{ blum-blum-shub f 590695557939 811977232793 } clone [
64 random-bits 64 random-bits
little-endian? [ <ulonglong> 4 group [ reverse ] map concat *ulonglong ] unless little-endian? [ <ulonglong> 4 group [ reverse ] map concat *ulonglong ] unless

2
unfinished/regexp2/regexp2.factor
View File

@ -29,7 +29,7 @@ IN: regexp2
: matches? ( string regexp -- ? ) : matches? ( string regexp -- ? )
dupd match dupd match
[ [ length ] [ range-length 1- ] bi* = ] [ drop f ] if* ; [ [ length ] [ length>> 1- ] bi* = ] [ drop f ] if* ;
: match-head ( string regexp -- end ) match length>> 1- ; : match-head ( string regexp -- end ) match length>> 1- ;

2
unfinished/regexp2/traversal/traversal.factor
View File

@ -18,7 +18,7 @@ TUPLE: dfa-traverser
matches ; matches ;
: <dfa-traverser> ( text regexp -- match ) : <dfa-traverser> ( text regexp -- match )
[ dfa-table>> ] [ traversal-flags>> ] bi [ dfa-table>> ] [ dfa-traversal-flags>> ] bi
dfa-traverser new dfa-traverser new
swap >>traversal-flags swap >>traversal-flags
swap [ start-state>> >>current-state ] keep swap [ start-state>> >>current-state ] keep