extra/math/primes/twins/twins.factor

   1 ! Copyright (C) 2012 John Benediktsson
   2 ! See https://factorcode.org/license.txt for BSD license
   3
   4 USING: combinators.short-circuit grouping kernel math
   5 math.primes sequences ;
   6
   7 IN: math.primes.twins
   8
   9 : twin-primes-upto ( n -- seq )
  10     primes-upto 2 clump [ first2 - abs 2 = ] filter ;
  11
  12 : twin-primes? ( x y -- ? )
  13     { [ - abs 2 = ] [ nip prime? ] [ drop prime? ] } 2&& ;