cartesian-product - 计算 Factor 中两个序列的笛卡尔积

Question

我才刚刚开始涉足 Factor .我想计算两个序列的笛卡尔积:

{ 1 2 3 }
{ 8 9 }

我想看到的是一系列的序列:

{ { 1 8 } { 1 9 } { 2 8 } { 2 9 } { 3 8 } { 3 9 } }

当我使用 cartesian-product 词时，我得到了一系列序列的序列:

{ { { 1 8 } { 1 9 } } { { 2 8 } { 2 9 } } { { 3 8 } { 3 9 } } }

我也试过 [ 2array ] cartesian-map，但我得到了同样的结果。最后，我尝试了 [ 2array ] cartesian-each，但我将每一对单独压入堆栈。至少它是平坦的，但我希望它们都在一个阵列中。

我该怎么做？

Answer 1

我不确定是否有一个现有的库方法可以做到这一点(我自己刚刚开始)，但你可以通过编写 cartesian-product 来做到这一点与 append和 reduce :

--- Data stack:
{ "a" "b" "c" }
{ 1 2 3 4 } 
( scratchpad ) cartesian-product { } [ append ] reduce .
{
    { "a" 1 }
    { "a" 2 }
    { "a" 3 }
    { "a" 4 }
    { "b" 1 }
    { "b" 2 }
    { "b" 3 }
    { "b" 4 }
    { "c" 1 }
    { "c" 2 }
    { "c" 3 }
    { "c" 4 }
}