From 8ec8cdfffa9b77345f5086337a3f52a4a0254cff Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 24 Mar 2013 01:10:08 -0700 Subject: [PATCH] math.primes.twins: Use clump here. --- extra/math/primes/twins/twins.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/math/primes/twins/twins.factor b/extra/math/primes/twins/twins.factor index 449dfadf6f..ba06ce9225 100644 --- a/extra/math/primes/twins/twins.factor +++ b/extra/math/primes/twins/twins.factor @@ -7,7 +7,7 @@ math.primes sequences ; IN: math.primes.twins : twin-primes-upto ( n -- seq ) - primes-upto 2 [ first2 - abs 2 = ] filter ; + primes-upto 2 clump [ first2 - abs 2 = ] filter ; : twin-primes? ( x y -- ? ) { [ - abs 2 = ] [ nip prime? ] [ drop prime? ] } 2&& ;