Minor typo in solution for PE problem 49

2009-04-02 12:10:51 -04:00 · 2009-04-02 12:10:51 -04:00 · 59145c0672
parent 5405f530b9
commit 59145c0672
1 changed files with 1 additions and 1 deletions
--- 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 ;