1001コメント317KB

〓 Mathematica 2 〓

■ このスレッドは過去ログ倉庫に格納されています

0751１３２人目の素数さん

05/02/02 12:14:45

>>740
Outer使え。

Gen[n_] := Flatten[Outer[List, Sequence @@ Table[{0, 1}, {n}]], n - 1]

Gen[5]

■ このスレッドは過去ログ倉庫に格納されています