project-euler.508: ranges

diff --git a/extra/project-euler/508/508.factor b/extra/project-euler/508/508.factor
index 7263685db4000f3f599b3e9f7680097bbdbb35f3..869650005668e83c587dce012394d9bba48ced7a 100644 (file)
--- a/extra/project-euler/508/508.factor
+++ b/extra/project-euler/508/508.factor
@@ -50,7 +50,7 @@ MEMO:: fab ( a b -- n )
 MEMO:: B ( P Q R S -- n )
     Q P - S R - * 5000 <
     [
-        P Q [a..b] R S [a,b] [ fab ] cartesian-map [ sum ] map-sum
+        P Q [a..b] R S [a..b] [ fab ] cartesian-map [ sum ] map-sum
     ]
     [
         S 2 / floor neg R 2 / ceiling neg P 2 / ceiling Q 2 / floor B