From 59145c06721394869ad933555ec14f48d0d69433 Mon Sep 17 00:00:00 2001
From: Aaron Schaefer <aaron@elasticdog.com>
Date: Thu, 2 Apr 2009 12:10:51 -0400
Subject: [PATCH] Minor typo in solution for PE problem 49

---
 extra/project-euler/049/049.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/project-euler/049/049.factor b/extra/project-euler/049/049.factor
index 2fa51fa221..15dd7ed6d2 100644
--- a/extra/project-euler/049/049.factor
+++ b/extra/project-euler/049/049.factor
@@ -43,7 +43,7 @@ HINTS: count-digits fixnum ;
 
 : potential-sequences ( -- seq )
     1000 9999 primes-between
-    collect-permutations [ length 3 > ] filter ;
+    collect-permutations [ length 3 >= ] filter ;
 
 : arithmetic-terms ( m n -- seq )
     2dup [ swap - ] keep + 3array ;