入力としてリストと数字を受け取り、数字の長さで可能なすべての組み合わせを生成するコードを作成します。たとえば、リスト{0,1}と番号2の場合：

00
01
10
11

プログラムでは、 {0,0,0,0,0,1,1,5,5}のように、リスト内で2回以上文字を期待する必要はありません。

リストの順序で、組み合わせを並べ替えて印刷してください。

リスト{0,1}と数字5（私のコードの一部によって生成され、勝つには長すぎます）：

00000
00001
00010
00011
00100
00101
00110
00111
01000
01001
01010
01011
01100
01101
01110
01111
10000
10001
10010
10011
10100
10101
10110
10111
11000
11001
11010
11011
11100
11101
11110
11111

しかし、リスト{1,0}と番号2の場合：

11
10
01
00

ご覧のとおり、逆順リストは逆順を意味します。

構造を見てみましょう、それは木のようなものです。

これはコードゴルフなので、バイト単位の最短コードが勝ちです！

ゼリー、1 バイト

ṗ

TryItOnline

デカルトパワー組み込みアトム。左引数がアイテム、右引数がカウントのダイアディックリンクとして、または第1引数がアイテム、第2引数がカウントの完全なプログラムとして。

Haskell、20バイト

(mapM id.).replicate

使用例：

*Main> ( (mapM id.).replicate )  2 "01" 
["00","01","10","11"]
*Main> ( (mapM id.).replicate )  2 "10" 
["11","10","01","00"]

replicate作るn第2パラメータのコピーをしてmapM id組み合わせを構築します。Btw mapM idは、と同じですがsequence、1バイト少なくなります。

MATL、2バイト

Z^

デカルトパワービルトイン...

オンラインでお試しください！

Pyth、2バイト

^F

フォームlist,numberへの入力を受け取り、リストのリストを印刷するプログラム。

テストスイート

使い方

^F   Program. Input: Q
^FQ  Implicit input fill
 F   Fold
^    repeated Cartesian power
  Q  over Q
     Implicitly print

Perl 6、15バイト

{[X] @^a xx$^b}

説明：

{[X] @^a xx$^b}

{             } # bare block lambda

     @^a        # declare first parameter as Positional
           $^b  # declare second parameter
         xx     # list repeat ｢@a｣, ｢$b｣ times

# at this point given ｢ (0,1), 5 ｣
# ((0 1) (0 1) (0 1) (0 1) (0 1))

 [ ]            # list reduce
  X             #    using cross meta-operator

# results in a list of lists
# ((0 0 0 0 0)
#  (0 0 0 0 1)
#  (0 0 0 1 0)
#  (0 0 0 1 1)
#  (0 0 1 0 0)
#  (0 0 1 0 1)
#  ...
#  (1 1 1 1 1))

say {[X] $^a xx$^b}( (0,1), 2 ); # ((0 0) (0 1) (1 0) (1 1))
say {[X] $^a xx$^b}( (1,0), 2 ); # ((1 1) (1 0) (0 1) (0 0))
say {[X] $^a xx$^b}( (0,1,2), 2 );
# ((0 0) (0 1) (0 2) (1 0) (1 1) (1 2) (2 0) (2 1) (2 2))

put {[X] $^a xx$^b}( (0,1), 5 )».join;
# 00000 00001 00010 00011 00100 00101 00110 00111 01000 01001 01010 01011 01100 01101 01110 01111 10000 10001 10010 10011 10100 10101 10110 10111 11000 11001 11010 11011 11100 11101 11110 11111

JavaScript（Firefox 30 +）、55バイト

f=(a,n)=>n?[for(b of a)for(c of f(a,n-1))[b,...c]]:[[]]

JavaScriptでこれを行うには、再帰が最善の方法であると確信しています。

Perl、30バイト

28バイトのコード+ -nlフラグ。

$"=",";say for glob"{@F}"x<>

実行するには：

perl -alE '$"=",";say for glob"{@F}"x<>' <<< "1 0
2"

入力を数値のリストとして取得することは、Perlにとって論理的だと思います。ただし、ファンタジーを許可し、（質問に示されているように）ブラケットとコンマを使用して入力を取得する場合、20バイトまで減らすことができます。

perl -nlE 'say for glob$_ x<>' <<< "{1,0}
2"

説明： glob Perlの最初の目的は、ファイル名をリストおよび反復することですが、引数に中括弧が含まれている場合、各括弧グループの1つの要素で構成される組み合わせを生成します。
-a入力をスペースで自動分割し、結果を@F配列内に配置します。
$"リストの区切り文字です。文字列内のリストの要素の間に挿入される区切り文字です。それをに設定し,、"{@F"}プロデュースします{.,.}（@F0と1が含まれる場合）。
次にx、文字列の繰り返し演算子があります（そして<>1行の入力を取得します）。
最後に、say for生成されたリストを反復処理しglob、要素を出力します。

Mathematica、6バイト

Tuples

ゼリーよりもさらに悪い:(

使用法

Tuples[{0, 1}, 5]

{{0, 0, 0, 0, 0}, {0, 0, 0, 0, 1}, {0, 0, 0, 1, 0}, {0, 0, 0, 1, 1}, {0, 0, 1, 0, 0}, {0, 0, 1, 0, 1}, {0, 0, 1, 1, 0}, {0, 0, 1, 1, 1}, {0, 1, 0, 0, 0}, {0, 1, 0, 0, 1}, {0, 1, 0, 1, 0}, {0, 1, 0, 1, 1}, {0, 1, 1, 0, 0}, {0, 1, 1, 0, 1}, {0, 1, 1, 1, 0}, {0, 1, 1, 1, 1}, {1, 0, 0, 0, 0}, {1, 0, 0, 0, 1}, {1, 0, 0, 1, 0}, {1, 0, 0, 1, 1}, {1, 0, 1, 0, 0}, {1, 0, 1, 0, 1}, {1, 0, 1, 1, 0}, {1, 0, 1, 1, 1}, {1, 1, 0, 0, 0}, {1, 1, 0, 0, 1}, {1, 1, 0, 1, 0}, {1, 1, 0, 1, 1}, {1, 1, 1, 0, 0}, {1, 1, 1, 0, 1}, {1, 1, 1, 1, 0}, {1, 1, 1, 1, 1}}

Python、57バイト

from itertools import*
lambda o,n:list(product(*([o]*n)))

repl.it

オブジェクトのリストoとカウントを取得しn、組み合わせのリストを返す名前のない関数。

ピュアバッシュ、36

printf -vv %$2s
eval echo ${v// /$1}

コマンドラインパラメータによる入力-リストは、中括弧で囲まれたコンマ区切りリストです。例：

./elemcombo.sh "{0,1}" 2

入力リストは引用符で囲む必要があることに注意してください。これにより、呼び出しシェルはそれを早めに展開しません。

イデオネ。

R、53 45バイト

function(x,n)rev(expand.grid(rep(list(x),n)))

オンラインでお試しください！

rev 要求された正確なソート順（実際には問題に不可欠ではないようです）に準拠するためにあり、5バイトを追加します。

ラケット123バイト

(let p((s "")(l(map number->string(sort l <))))
(if(= n(string-length s))(displayln s)(for((i l))(p(string-append s i)l))))

ゴルフをしていない：

(define(f l n)
  (let loop ((s "")
             (l (map number->string (sort l <))))
    (if (= n (string-length s))
        (displayln s)
        (for ((i l))
          (loop (string-append s i) l)))))

テスト：

(f '(0 1) 2)
(f '(0 1) 3)
(f '(0 1) 5)

出力：

00
01
10
11

000
001
010
011
100
101
110
111

00000
00001
00010
00011
00100
00101
00110
00111
01000
01001
01010
01011
01100
01101
01110
01111
10000
10001
10010
10011
10100
10101
10110
10111
11000
11001
11010
11011
11100
11101
11110
11111

PHP、109バイト

for($o=$a=array_slice($argv,2);--$argv[1];$o=$c,$c=[])foreach($a as$n)foreach($o as$s)$c[]=$n.$s;print_r($o);

最初の引数として長さを取り、その他の引数としてリストを取ります。
次のように使用します：

php -r "for($o=$a=array_slice($argv,2);--$argv[1];$o=$c,$c=[])foreach($a as$n)foreach($o as$s)$c[]=$n.$s;print_r($o);" 5 0 1

長さ0を要求された場合、「メモリ不足」致命的エラーが発生します。

05AB1E、2 1 バイトの

ã

-1バイトのおかげで @Enigmaの。

オンラインでお試しください。

として入力 number\nlist、リストのリストとして出力します。

説明：

     # Implicit input `a`, `b`
ã    # Take the Cartesian product of list `b` repeated `a` times