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

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

diff --git a/extra/project-euler/common/common.factor b/extra/project-euler/common/common.factor
index 48520ef56528f4dd17e5f45925f0a00ac461d876..895eba4deb66ccc067158d2022cf6e89c9ae2b6e 100644 (file)
--- a/extra/project-euler/common/common.factor
+++ b/extra/project-euler/common/common.factor
@@ -68,9 +68,6 @@ PRIVATE>
 : alpha-value ( str -- n )
     >lower [ CHAR: a - 1 + ] map-sum ;
 
-: cartesian-product ( seq1 seq2 -- seq1xseq2 )
-    [ [ 2array ] with map ] curry map concat ;
-
 : mediant ( a/c b/d -- (a+b)/(c+d) )
     2>fraction [ + ] 2bi@ / ;