sequences: add cartesian-each, cartesian-map, cartesian-product words to eliminate...

[factor.git] / extra / project-euler / 029 / 029.factor

diff --git a/extra/project-euler/029/029.factor b/extra/project-euler/029/029.factor
index 73773e1887d146ab5e83b77e0883b64e03d0cb75..31be1a566b5bc09e847438bfc68f996d5f74fe89 100644 (file)
--- a/extra/project-euler/029/029.factor
+++ b/extra/project-euler/029/029.factor
@@ -29,7 +29,7 @@ IN: project-euler.029
 ! --------
 
 : euler029 ( -- answer )
-    2 100 [a,b] dup cartesian-product [ first2 ^ ] map prune length ;
+    2 100 [a,b] dup [ ^ ] cartesian-map concat prune length ;
 
 ! [ euler029 ] 100 ave-time
 ! 704 ms ave run time - 28.07 SD (100 trials)