cartesian-product - Factor での 2 つのシーケンスのデカルト積の計算

Question

Factorに手を出し始めたところです。2 つのシーケンスのデカルト積を計算したい:

{ 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ましたが、各ペアが別々にスタックにプッシュされます。少なくともフラットですが、それらをすべて 1 つの配列にまとめたいと思います。

どうすればいいですか？

Answer 1

これを行う既存のライブラリメソッドがあるかどうかはわかりませんが（自分で始めたばかりです）、andで構成cartesian-productすることで実行できます：appendreduce

--- 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 }
}

Answer 2

flatten1から使用sequences.extras:

IN: scratchpad { 1 2 3 } { 8 9 } cartesian-product flatten1 .
{ { 1 8 } { 1 9 } { 2 8 } { 2 9 } { 3 8 } { 3 9 } }