Dengan serangkaian karakter yang berbeda, dan angka n, buat semua kombinasi berurut dengan pengulangan, dengan panjang 1 hingga n, menggunakan karakter tersebut.

Cara lain untuk mendefinisikannya adalah dengan melihat karakter yang diberikan sebagai digit "kustom" di pangkalan (radix) dari jumlah karakter, maka program harus menghasilkan semua "angka" dengan 1 hingga n digit di pangkalan itu, namun, memimpin "Nol" juga disertakan.

Kombinasi harus dipesan berdasarkan panjangnya (1 karakter pertama, kemudian 2, dll), tetapi selain itu mereka dapat dalam urutan apa pun. Anda dapat memilih cara yang paling mudah untuk menangani input dan output. Kode terpendek menang.

Contoh:

ab, 3-> a,b,aa,ab,ba,bb,aaa,aab,aba,baa,abb,bab,bba,bbb
0123456789, 2->0,1,2,3,4,5,6,7,8,9,00,01,...,09,10,11,...,99

APL (Dyalog Unicode) , 13 byte ^SBCS

⊃,/,¨∘.,\⎕⍴⊂⍞

Cobalah online!

jangan pernah melewatkan kesempatan untuk menggunakan pemindaian :)

meminta string "digit" dan kemudian untuk n

terima kasih @ Adám karena memberi tahu saya cara mengaktifkan ]boxdi TIO

Python 2, 56 byte

nadalah panjang maksimum dan sdiharapkan menjadi daftar karakter. Tidak jelas bagi saya apakah n = 0 atau daftar karakter kosong adalah input yang valid, tetapi fungsi ini juga menanganinya dengan benar.

f=lambda s,n:n*s and s+[x+c for x in f(s,n-1)for c in s]

J, 41 char

   f=.}:@;@({@(,&(<',')@(]#<@[))"1 0>:@i.@])

   'ab' f 3
a,b,aa,ab,ba,bb,aaa,aab,aba,abb,baa,bab,bba,bbb

APL (31)

{,/⍺∘{↓⍉⍺[1+(⍵⍴⍴⍺)⊤⍳⍵*⍨⍴⍺]}¨⍳⍵}

Penggunaan: argumen kiri adalah string dan argumen kanan adalah angka, seperti:

    'ab'{,/⍺∘{↓⍉⍺[1+(⍵⍴⍴⍺)⊤⍳⍵*⍨⍴⍺]}¨⍳⍵}3
b  a  ab  ba  bb  aa  aab  aba  abb  baa  bab  bba  bbb  aaa  

Outputnya dipesan berdasarkan panjang, tetapi dalam grup panjang mereka digeser satu ke kiri, ini paling mudah.

Penjelasan:

• ,/⍺∘{... }¨⍳⍵: for 1..⍵, terapkan fungsi untuk ⍺ dan gabungkan hasilnya bersama-sama.
• (⍵⍴⍴⍺)⊤⍳⍵*⍨⍴⍺: untuk setiap angka dari 1 hingga (⍵ = (panjang saat ini)) ^ (⍴⍺ = (jumlah karakter)), konversikan ke basis ⍴⍺ menggunakan ⍵ digit.
• 1+: tambahkan satu karena array 1-diindeks.
• ⍺[... ]: gunakan ini sebagai indeks ke dalam string
• ↓⍉: putar matriks, jadi 'angka' ada di baris, bukan di kolom, lalu pisahkan matriks dengan baris.

Haskell, 34 karakter

x%n=do k<-[1..n];mapM(\_->x)[1..k]

Penggunaan langsung daftar monad. Satu-satunya golf nyata adalah penggunaan mapMalih-alih yang lebih idiomatis (dan lebih pendek) replicateMyang akan membutuhkan impor Control.Monad.

Pemakaian

> "ab" % 3
["a","b","aa","ab","ba","bb","aaa","aab","aba","abb","baa","bab","bba","bbb"]

Python, 97 94

from itertools import*
s,n=input()
L=t=[]
exec"t=t+[s];L+=map(''.join,product(*t));"*n
print L

t=t+[s]tidak dapat disingkat menjadi t+=[s]karena L dan t akan menunjuk ke daftar yang sama.

Memasukkan: 'ab', 3

Keluaran:

['a', 'b', 'aa', 'ab', 'ba', 'bb', 'aaa', 'aab', 'aba', 'abb', 'baa', 'bab', 'bb
a', 'bbb']

Mathematica 29 19 28

Join@@(i~Tuples~#&/@Range@n)

Pemakaian

i={a, 4, 3.2};n=3;

Join@@(i~Tuples~#&/@Range@n)

{{a}, {4}, {3.2}, {a, a}, {a, 4}, {a, 3.2}, {4, a}, {4, 4}, {4, 3.2}, { 3.2, a}, {3.2, 4}, {3.2, 3.2}, {a, a, a}, {a, a, 4}, {a, a, 3.2,, {a, 4, a}, { a, 4, 4}, {a, 4, 3.2}, {a, 3.2, a}, {a, 3.2, 4}, {a, 3.2, 3.2}, {4, a, a}, {4, a, 4}, {4, a, 3.2}, {4, 4, a}, {4, 4, 4}, {4, 4, 3.2}, {4, 3.2, a}, {4, 3.2, 4}, {4, 3.2, 3.2}, {3.2, a, a}, {3.2, a, 4}, {3.2, a, 3.2}, {3.2, 4, a}, {3.2, 4, 4} , {3.2, 4, 3.2}, {3.2, 3.2, a}, {3.2, 3.2, 4}, {3.2, 3.2, 3.2}}

MATL, 9 8 byte

x:"1G@Z^

Cobalah di MATL Online!

(MATL dibuat setelah tantangan ini diposting, tetapi saya percaya itu tidak masalah dengan meta konsensus hari ini.)

(-1 byte, terima kasih kepada @Luis Mendo.)

x - hapus input string dari stack (secara otomatis menyalinnya ke clipboard G)

:" - input implisit dari angka n, loop dari 1 ke n

1G - Tempel kembali string input dari clipboard G pada stack

@ - dorong indeks iterasi loop saat ini

Z^- cartesian power: produk cartesian input dengan sendirinya @beberapa kali

Hasil daya kartesian ( @-digit "angka" di dasar yang diberikan) diakumulasikan pada stack dan secara implisit ditampilkan di akhir.

Python - 106

Solusi langsung dan tidak kreatif. Jika Anda menemukan peningkatan yang signifikan, silakan kirim sebagai jawaban terpisah.

s,n=input()
l=len(s)
for i in range(1,n+1):
 for j in range(l**i):t='';x=j;exec't+=s[x%l];x/=l;'*i;print t

Input: "ab",3
Keluaran:

a
b
aa
ba
ab
bb
aaa
baa
aba
bba
aab
bab
abb
bbb

Python, 100

Berasal dari solusi @ aditsu .

s,n=input()
L=len(s)
i=0
while i<n:i+=1;j=0;exec"x=j=j+1;t='';exec't+=s[x%L];x/=L;'*i;print t;"*L**i

Memasukkan: 'ab', 3

Keluaran:

b
a
ba
ab
bb
aa
baa
aba
bba
aab
bab
abb
bbb
aaa

Perl 5 + -nlF -M5.010 -MList::Util+(uniq), 41 byte

$,=$"=",";say grep/./,uniq glob"{,@F}"x<>

Cobalah online!

-1 byte terima kasih kepada @Xcali !

Pyth, 6 byte

s^LQSE

Mengharapkan set karakter sebagai input 1, jumlah digit sebagai 2. Byte dapat disimpan jika ada metode byte tunggal untuk berulang kali mengakses input ke-2, tetapi sayangnya ...

Cobalah online di sini .

s^LQSE   Implicit: Q=input 1, E=evaluate next input
    SE   Range [1,2,...,E]
 ^LQ     Perform repeated cartesian product of Q for each element of the above
s        Flatten

Perl 6 , 33 byte

{flat [\X~] '',|[$^a.comb xx$^b]}

Cobalah online!

Blok kode anonim yang mengambil string dan angka dan mengembalikan daftar string.

PHP 180

Saya tidak tahu ... Saya merasa malas.

<?php $f=fgetcsv(STDIN);$l=strlen($f[1]);$s=str_split($f[1]);for($i=1;$i<=$f[0];$i++)for($j=0;$j<pow($l,$i);$j++){$o="";$x=$j;for($q=0;$q<$i;$q++){$o.=$s[$x%$l];$x/=$l;}echo"$o ";}

Erlang 110

Versi kombinator Y (untuk shell):

fun(X, N)->F=fun(_,_,0)->[[]];(G, X, Y)->[[A|B]||A<-X,B<-G(G,X,Y-1)]end,[V||Y<-lists:seq(1,N),V<-F(F,X,Y)]end.

Erlang 89 (118)

Versi modul:

-module(g).
-export([g/2]).
h(_,0)->[[]];h(X,N)->[[A|B]||A<-X,B<-h(X,N-1)].
g(X,N)->[V||Y<-lists:seq(1,N),V<-h(X,Y)].

Karakter dihitung tanpa pembukuan wajib (modul dan ekspor).

Ruby , 73 byte

->s,n{(1..n).flat_map{|i|[*s.chars.repeated_permutation(i)]}.map(&:join)}

Cobalah online!

Japt , 9 byte

Penjelasan untuk diikuti.

õ!àUçV)mâ

Cobalah

õ_çV àZ â

Cobalah

Jelly , 6 byte

WẋŒpƤẎ

Cobalah online!

Pengajuan fungsi, mengambil daftar digit sebagai argumen pertama dan jumlah digit sebagai argumen kedua. Digit itu sendiri dapat berupa tipe data Jelly apa pun, tetapi saya menggunakan bilangan bulat di tautan TIO di atas karena menghasilkan output yang paling baik dalam pembungkus otomatis “function → full program” Jelly.

Penjelasan

WẋŒpƤẎ                      (called with arguments, e.g. [1,2,5], 3)
Wẋ       Make {argument 2} copies of {argument 1}  (e.g. [[1,2,5],[1,2,5],[1,2,5])
    Ƥ    For each prefix:                          (e.g. 1-3 copies of [1,2,5])
  Œp       take Cartesian product of its elements
     Ẏ   Flatten one level

Produk Cartesian secara efektif memberi kita semua angka dengan jumlah digit tertentu (sesuai dengan awalan yang sedang kita kerjakan). Jadi kita berakhir dengan daftar daftar kombinasi (dikelompokkan berdasarkan panjang), dan dapat meratakan yang satu tingkat untuk mendapatkan daftar yang tidak dikelompokkan (tapi yang masih diurutkan oleh panjang, sebagai pertanyaan memerlukan, sebagai Ẏdoesn dapat mengubah urutan relatif elemen dan Ƥmencoba awalan yang lebih pendek terlebih dahulu).

05AB1E , 6 byte

「˜Ùé

Cobalah secara online atau verifikasi semua kasus uji .

Penjelasan:

ã         # Cartesian product of the second input repeated the first input amount of times
          #  i.e. 3 and 'ab' → ['aaa','aab','aba','abb','baa','bab','bba','bbb']
 €Œ       # Take all the substrings for each of those results
          #  i.e. 'aba' → ['a','ab','aba','b','ba','a']
   ˜      # Flatten the list of lists
    Ù     # Remove all duplicated values
     é    # Sort the list by length

Alternatif 6-byte:

CATATAN: Keluaran fleksibel: Menampilkan daftar baru untuk setiap panjang, semua pada jalur cetak yang sama.
Mengubahnya ke daftar tunggal akan menjadi 2 byte lebih lama: Lv²yã`})( Coba online ).

Lv²yã?

Cobalah secara online atau verifikasi semua kasus uji .

Penjelasan:

Lv        # Loop `y` in the range [1, integer_input]
  ²yã     #  Take the second input and create an `y` times repeated cartesian product of it
          #   i.e. y=2 and 'ab' → ['aa','ab','ba','bb']
     ?    #  Print this list (without new-line)

K (ngn / k) , 17 byte

{,/(,/,'/:)\x#,y}

Cobalah online!