Учитывая строку различных символов и число n, сгенерируйте все упорядоченные комбинации с повторением, длиной от 1 до n, используя эти символы.

Другой способ определить это состоит в том, чтобы видеть данные символы как «пользовательские» цифры в базе (основание) числа символов, тогда программа должна сгенерировать все «числа» от 1 до n цифр в этой базе, однако ведущие "нули" тоже включены.

Комбинации должны быть упорядочены по длине (сначала 1 символ, затем 2 и т. Д.), Но они могут быть в любом порядке. Вы можете выбрать наиболее удобные способы обработки ввода и вывода. Самый короткий код выигрывает.

Примеры:

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 байтов ^SBCS

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

Попробуйте онлайн!

никогда не упускайте возможность использовать скан :)

запрашивает строку «цифр», а затем для n

спасибо @ Adám за сообщение о том, как включить ]boxTIO

Python 2, 56 байт

nэто максимальная длина и, sкак ожидается, будет список символов. Мне не ясно, являются ли n = 0 или пустой список символов допустимыми входными данными, но эта функция также обрабатывает их правильно.

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

J, 41 символ

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

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

APL (31)

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

Использование: левый аргумент - это строка, а правый аргумент - это число, например:

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

Выходные данные упорядочены по длине, но в группах длин они смещены на одну влево, это было проще всего.

Объяснение:

• ,/⍺∘{... }¨⍳⍵: для 1..⍵, примените функцию к ⍺ и объедините результаты вместе.
• (⍵⍴⍴⍺)⊤⍳⍵*⍨⍴⍺: для каждого числа от 1 до (⍵ = (текущая длина)) ^ (⍴⍺ = (количество символов)) преобразовать в базу ⍴⍺, используя ⍵ цифр.
• 1+: добавьте один, потому что массивы 1-индексированы.
• ⍺[... ]: использовать их как указатели в строке
• ↓⍉: поверните матрицу, чтобы «числа» находились в строках, а не в столбцах, а затем разбили матрицу по строкам.

Хаскель, 34 персонажа

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

Простое использование списка монады. Единственный реальный гольф - это использование mapMвместо более идиоматического (и более короткого), replicateMчто потребовало бы импорта Control.Monad.

Применение

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

Питон, 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]не может быть сокращено до, t+=[s]потому что L и T будут указывать на тот же список.

Входные данные: 'ab', 3

Вывод:

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

Mathematica 29 19 28

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

Применение

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 байт

x:"1G@Z^

Попробуйте это на MATL Online!

(MATL был создан после того, как этот вызов был опубликован, но я полагаю, что это нормально при мета-консенсусе в наши дни.)

(-1 байт благодаря @Luis Mendo.)

x - удалить строку ввода из стека (автоматически копирует его в буфер обмена G)

:" - неявный ввод числа n, цикл от 1 до n

1G - вставить обратно строку ввода из буфера обмена G в стек

@ - нажать текущий индекс итерации цикла

Z^- декартова сила: декартово произведение ввода с собой @число раз

Результаты декартовой мощности ( @-значные «числа» в заданной базе) накапливаются в стеке и неявно отображаются в конце.

Питон - 106

Простое, нетворческое решение. Если вы найдете существенные улучшения, пожалуйста, отправьте в качестве отдельного ответа.

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

Вход: "ab",3
Выход:

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

Питон, 100

Полученный из раствора @ 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

Входные данные: 'ab', 3

Вывод:

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

Perl 5+ -nlF -M5.010 -MList::Util+(uniq), 41 байт

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

Попробуйте онлайн!

-1 байт благодаря @Xcali !

Pyth, 6 байт

s^LQSE

Ожидается набор символов в качестве 1-го ввода, количество цифр в качестве 2-го. Байт можно было бы сохранить, если бы существовал однобайтовый метод для повторного доступа ко второму входу, но, увы ...

Попробуйте это онлайн здесь .

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 байта

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

Попробуйте онлайн!

Блок анонимного кода, который принимает строку и число и возвращает список строк.

PHP 180

Понятия не имею ... Мне лень.

<?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 ";}

Эрланг 110

Версия Y комбинатора (для оболочки):

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.

Эрланг 89 (118)

Версия модуля:

-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)].

Символы учитываются без обязательного учета (модуль и экспорт).

Рубин , 73 байта

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

Попробуйте онлайн!

Japt , 9 байт

Пояснения, чтобы следовать.

õ!àUçV)mâ

Попробуй это

õ_çV àZ â

Попробуй это

Желе , 6 байт

WẋŒpƤẎ

Попробуйте онлайн!

Передача функции, принимая список цифр в качестве первого аргумента и количество цифр в качестве второго. Сами по себе цифры могут быть любыми типами данных Jelly, но я использовал целые числа в ссылке TIO выше, потому что она дает лучший результат в автоматической обертке «function → full program».

объяснение

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

Декартово произведение эффективно дает нам все числа с заданным количеством цифр (в соответствии с каким префиксом мы работаем). Таким образом , мы в конечном итоге со списком списков комбинаций (сгруппированных по длине), и может выравниваться , что один уровень для того , чтобы получить список, не сгруппированных (но по - прежнему сортируются по длине, как этого требует вопрос, как и ẎБезразлично не меняйте относительный порядок элементов и Ƥсначала пытайтесь использовать более короткие префиксы).

05AB1E , 6 байтов

「˜Ùé

Попробуйте онлайн или проверьте все контрольные примеры .

Объяснение:

ã         # 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

6-байтовая альтернатива:

ПРИМЕЧАНИЕ. Гибкий вывод: выводит новый список для каждой длины, все на одной и той же линии печати.
Преобразование его в один список будет на 2 байта длиннее: Lv²yã`})( Попробуйте онлайн ).

Lv²yã?

Попробуйте онлайн или проверьте все контрольные примеры .

Объяснение:

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)

К (нгн / к) , 17 байт

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

Попробуйте онлайн!