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

math.primes: commas look better.

db4
John Benediktsson 2015-07-14 17:35:52 -07:00
parent 240825b7ed
commit 6e9dfc86c3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/math/primes/primes.factor
View File

@ -9,10 +9,10 @@ IN: math.primes
<PRIVATE <PRIVATE
: look-in-bitmap ( n -- ? ) : look-in-bitmap ( n -- ? )
integer>fixnum $[ 8999999 sieve ] marked-unsafe? ; inline integer>fixnum $[ 8,999,999 sieve ] marked-unsafe? ; inline
: (prime?) ( n -- ? ) : (prime?) ( n -- ? )
dup 8999999 <= [ look-in-bitmap ] [ miller-rabin ] if ; dup 8,999,999 <= [ look-in-bitmap ] [ miller-rabin ] if ;
: simple? ( n -- ? ) : simple? ( n -- ? )
{ [ even? ] [ 3 divisor? ] [ 5 divisor? ] } 1|| ; { [ even? ] [ 3 divisor? ] [ 5 divisor? ] } 1|| ;