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

math.primes.twins: Use clump here.

db4
Doug Coleman 2013-03-24 01:10:08 -07:00
parent 33a4117787
commit 8ec8cdfffa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/math/primes/twins/twins.factor
View File

@ -7,7 +7,7 @@ math.primes sequences ;
IN: math.primes.twins
: twin-primes-upto ( n -- seq )
primes-upto 2 <clumps> [ first2 - abs 2 = ] filter ;
primes-upto 2 clump [ first2 - abs 2 = ] filter ;
: twin-primes? ( x y -- ? )
{ [ - abs 2 = ] [ nip prime? ] [ drop prime? ] } 2&& ;