2012-04-19 18:14:31 -04:00
|
|
|
! Copyright (C) 2012 John Benediktsson
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license
|
|
|
|
|
|
|
|
|
|
USING: combinators.short-circuit grouping kernel math
|
|
|
|
|
math.primes sequences ;
|
|
|
|
|
|
|
|
|
|
IN: math.primes.twins
|
|
|
|
|
|
|
|
|
|
: twin-primes-upto ( n -- seq )
|
2013-03-24 04:10:08 -04:00
|
|
|
primes-upto 2 clump [ first2 - abs 2 = ] filter ;
|
2012-04-19 18:14:31 -04:00
|
|
|
|
|
|
|
|
: twin-primes? ( x y -- ? )
|
|
|
|
|
{ [ - abs 2 = ] [ nip prime? ] [ drop prime? ] } 2&& ;
|
