DouKaku?

2個以上のリストlist1, list2, list3...が与えられたときに、 その複数個のリストの中の要素を一つずつとりだして組にする方法の全通りのリストを返すコードを書いてください。

Pythonで表現すると下のようになります。

>>> c = CrossProduct([1,2,3,4], "abc")
>>> list(c.all())
[[1, 'a'], [1, 'b'], [1, 'c'], [2, 'a'],
 [2, 'b'], [2, 'c'], [3, 'a'], [3, 'b'],
 [3, 'c'], [4, 'a'], [4, 'b'], [4, 'c']]

>>> c = CrossProduct([0, 1], "ab", ["Foo", "Bar"])
>>> list(c.all())
[[0, 'a', 'Foo'], [0, 'a', 'Bar'], [0, 'b', 'Foo'], [0, 'b', 'Bar']
 [1, 'a', 'Foo'], [1, 'a', 'Bar'], [1, 'b', 'Foo'], [1, 'b', 'Bar']]

順番はこの通りでなくても構いません。返すものはリストと書きましたが、 なんらかの「一度に全部をメモリ上に作成しないリスト状のモノ」がある言語ではそちらを使う方がおすすめです。 数値や文字列を一つのリストに混在させるのがやっかいな言語では整数のリストに限定しても構いません。

このお題はZIGOROuさんとのやりとりにヒントを得て作りました。 (しまった、先にブログで公開されてしまった→Yet Another Hackadelic - 直積の導出と考えうる全ての値を網羅したハッシュの生成)

追記：サンプル出力が間違っていたのでoceanさんの解答を使って出力し直しました。

リストの要素の組合せを返す動詞「{」があります。
数値だけ、文字だけの場合は、簡単ですが、数値と
文字、文字列を混在させようとすると、めんどうになります。

   CrossProduct 1 2 3;6 7 8
1 6
1 7
1 8
2 6
2 7
2 8
3 6
3 7
3 8
   CrossProduct 'abc';'de'
ad
ae
bd
be
cd
ce
   CrossProduct (<<"0(1 2 3)),(<<"0'abc')
+-+-+
|1|a|
+-+-+
|1|b|
+-+-+
|1|c|
+-+-+
|2|a|
+-+-+
|2|b|
+-+-+
|2|c|
+-+-+
|3|a|
+-+-+
|3|b|
+-+-+
|3|c|
+-+-+
   CrossProduct(<<"0(0 1)),(<<"0'ab'),(<'Foo';'Bar')
+-+-+---+
|0|a|Foo|
+-+-+---+
|0|a|Bar|
+-+-+---+
|0|b|Foo|
+-+-+---+
|0|b|Bar|
+-+-+---+
|1|a|Foo|
+-+-+---+
|1|a|Bar|
+-+-+---+
|1|b|Foo|
+-+-+---+
|1|b|Bar|
+-+-+---+

1

CrossProduct=.>&,&{