Враховуючи набір букв, виведіть усі рядки з цих літер. (Це зірка Клейна у наборі.) Наприклад, для {'a','b'}струн:

'', 'a', 'b', 'aa', 'ab', 'ba', 'bb', 'aaa', 'aab', ...

Введення: Непорожня колекція різних літер a..z. Це можуть бути символи або односимвольні рядки.

Вихідні дані: Усі рядки з цих літер у будь-якому порядку, без повторів. Ви можете використовувати списки знаків як рядки.

Це нескінченний список, тому ви можете вивести його за допомогою:

• Завічно працює все більше і більше рядків. Ці рядки можуть бути записані у будь-якому плоскому розділеному форматі, тобто вони можуть вказати, де закінчується кожна рядок, але рядки не поділяються на групи.
• Приймаючи число nяк введення та виведення перших nрядків у будь-якому плоскому розділеному форматі
• Поступаючись кожній струні по черзі від об'єкта-генератора
• Виробляючи нескінченний предмет

Будьте впевнені, що ваш метод врешті-решт видає кожну рядок у виводі, оскільки можна створити нескінченно багато рядків із набору, при цьому ніколи не потрапляючи до деяких рядків.

Ви не можете вивести його

• Вироблення даного nрядкаn
• Надання оракулу членства, який вирішує, чи належить заданий рядок до набору

Вбудовані дозволені, але я прошу виборців звернути увагу на відповіді, які реалізують операцію самі над тими, які здебільшого покладаються на вбудований.

var QUESTION_ID=74273,OVERRIDE_USER=20260;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/74273/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

Пітон 2, 53 56

-3 після усвідомлення того, що yield xможе бути використаний як вираз.

def f(s):yield'';[(yield w+c)for w in f(s)for c in s]

Haskell, 24 байти

f s=[]:[b:a|a<-f s,b<-s]

Створює нескінченний список.

*Main> f "abc"
["","a","b","c","aa","ba","ca","ab","bb","cb","ac","bc","cc","aaa","baa","caa","aba","bba","cba",…

JavaScript (ES6), 61 байт

function*g(s){yield'';for(let r of g(s))for(c of s)yield c+r}

Порт генератора Python @ feersum. letНеобхідно. Збережіть 2 байти за допомогою розуміння масиву (невдала пропозиція ES7, але працює у Firefox 30-57):

function*g(s){yield'';[for(r of g(s))for(c of s)yield c+r]}

Альтернативна версія для 73 байтів, яка повертає перші nелементи, отримані вищевказаним генератором:

(s,n)=>Array(n).fill('').map(g=(r,i)=>i--?g(r+s[i%l],i/l|0):r,l=s.length)

Математика, 32 31 байт

Do[Echo/@#~Tuples~n,{n,0,∞}]&

Редагувати:

CatsAreFluffy зішкребв один байт.

Perl, 39 37 35 байт

(Спочатку описується старша версія. У кінці нова коротша програма)

Включає +3 для -alp

Виконати з набором символів на STDIN, наприклад perl -alp kleene.pl <<< "a b c"

kleene.pl (ця версія становить 34 + 3 байти):

$#a=$"=","}for(@a){push@a,<{@F}$_>

Додайте +2 для -F(крапка неявна, -aякщо між вхідними символами немає пробілів, або -6 (лише @a=""раніше }), якщо ми вже ставимо коси між символами на STDIN

Пояснення:

Ці -alpпараметри ефективно зробити код:

BEGIN { $/ = "\n"; $\ = "\n"; }
LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
    our @F = split(' ', $_, 0);
    $#a = $" = ',';
}
foreach $_ (@a) {
    use File::Glob ();
    push @a, glob('{' . join($", @F) . '}' . $_);
}

Як ви бачите, <>в perl використовується не тільки для readline, але й може робити глобальний стиль оболонки (адже в древніх perls це було реалізовано за допомогою виклику shell).

Наприклад, <{a,b}{1,2}>буде розширено до"a1","a2","b1","b2"

Отже, якщо у нас є елементи, @Fнам просто потрібно додати коми між ними. Типовим символом між інтерполяцією є пробіл, який зберігається в спеціальній змінній $". Тож налаштування $"на ,перетвориться "{@F}"на {a,b}if @F=qw(a b)(глобуси розширюються як рядки)

Насправді мені б дуже хотілося циклічно щось подібне glob"{@F}"x$n++, але я постійно стикався з проблемою, що перший порожній рядок не генерується, і всі обхідні способи, які я знайшов, зробили код занадто довгим.

Отже, ще однією важливою частиною цього коду є те, що якщо ви використовуєте forцикл через масив, ви можете фактично натиснути на нього додаткові елементи під час циклу, і цикл також підбере ці нові елементи. Отже, якщо в циклі ми знаходимося, наприклад, в елементі "ab", то <{@F}$_>розширимося до того, <{a,b}ab>що в списку стає контекстом ("aab", "bab"). Так що, якщо я штовхаю їх на @aте рядки протяжної вліво стають доступними занадто

Все, що мені ще потрібно зробити, це прострочити цикл із порожньою рядком. Це робиться за допомогою $#a = 0( ,у числовому контексті стає 0), що призводить до того, що перший і єдиний елемент @aстане undef, який буде вести себе як ""коли я його використовую

Поліпшення

Насправді, роблячи тести на це пояснення, я знайшов короткий спосіб використовувати зростаючий глобус, який належним чином обробляє перший порожній запис. Запустити як perl -ap kleene0.pl <<< "a b"(тому додайте 2 байти для -ap)

kleene0.pl (ця версія 33 + 2 байти):

$"=",";print<$z,>;$z.="{@F}";redo

Всі ці рішення зберігатимуть все більше і більше виходу в пам'яті, і це призведе до відмови програми через деякий час. Ви також можете використовувати глобуси Perl для лінивого покоління, використовуючи їх у скалярному контексті, але це робить програми довшими ....

Піта, 7

<s^LzQQ

Спробуйте тут

Це обчислює декартовий добуток вводу з кожним числом з 0..n-1, приєднується до них, а потім зберігає лише перше n. Це вичерпає час в Інтернеті для чисел чи рядків, які значно перевищують 3-4.

Крім того, щоб отримати нескінченний вихід, подивіться на відповідь Якубе .

Желе, 8 6 байт

⁷³p$Ȯ¿

Це монадичне посилання, яке приймає алфавіт і друкує нескінченний список рядків. Спробуйте в Інтернеті!

Як це працює

⁷³p$Ȯ¿    Monadic link. Argument: A (alphabet)

⁷         Set the return value to '\n'.
     ¿    While loop.
            Condition:
    Ȯ         Print the current return value and return it (always truthy).
            Body:
   $          Combine the two links to the left into a single, monadic link.
 ³              Yield A.
  p             Perform the Cartesian product of A and the current return value,
                updating the return value in the process.

Альтернативна версія, 6 байт (неконкурентна)

R’ḃL}ị

Це діадичне посилання, яке приймає алфавіт та потрібну кількість рядків як лівий та правий аргументи відповідно.

Я вважаю цю версію неконкурентоспроможною, оскільки вона використовує біективну базову конверсію, яка була реалізована після того, як цей виклик був пісочницею. Спробуйте в Інтернеті!

Як це працює

R’ḃL}ị    Dyadic link. Arguments: n (integer), A (alphabet)

R         Range; yield [1, ..., n].
 ’        Decrement; yield [0, ..., n-1].
   L}     Yield l, the length of A.
  ḃ       Convert every i in [0, ..., n-1] to bijective base l.
     ị    For each array of digits, retrieve the corresponding characters of A.

Python 2, 89 84 83 байт

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

CJam, 16 10 байт

Завдяки jimmy23013 за збереження 6 байт.

N{eam*_o}h

Введення - це один аргумент командного рядка на символ. Вихід - один рядок у кожному рядку.

Спробуйте в Інтернеті! (Але вбий його негайно ...)

Пояснення

N      e# Push [\n]. At each step this array will contain all strings of length N,
       e# each followed by a linefeed.
{      e# Infinite loop...
  ea   e#   Read command-line arguments.
  m*   e#   Cartesian product: pairs each letter with each string in the list.
  _o   e#   Output all the strings of the current length.
}h

Pyth, 7 байт

.V0j^zb

Альтернатива @fry. Ця програма читає рядок і продовжує друкувати рядки до нескінченності.

Пояснення:

.V0      for b in (0 to infinity):
    ^zb     compute all strings of length b consisting of the input alphabet
   j        print each one on a separate line

Крім того, наступне також буде працювати. Трохи більше хакі.

u
M^zH7

Хаскелл, 33 байти

k u=do s<-[0..];mapM(\_->u)[1..s]

Для іспиту k "xyz"- це нескінченний список["","x","y","z","xx","xy","xz","yx","yy","yz","zx","zy","zz","xxx",...]

MATL , 10 байт

0cD`G@Z^DT

Спробуйте в Інтернеті! Але не залишайте його довго працювати, щоб уникнути великих обчислювальних навантажень на сервер.

Програма відображає рядки динамічно, кожен рядок в іншому рядку.

0cD             % force display of a newline to represent the empty string
   `      T     % infinite do-while loop
    G           % push input, or nothing if no input has been taken yet
     @          % push iteration. Gives 1, 2,... in each iteration
      Z^        % Cartesian power. In the first iteration takes input implicitly 
       D        % display

Пітон 3, 95

from itertools import*
def f(x,l=0):
 while 1:print(*combinations_with_replacement(x*l,l));l+=1

Чому функції itertools повинні мати такі довгі назви.

Ruby, 65 60 байт

->a{n=-1;loop{puts a.repeated_permutation(n+=1).map &:join}}

Такі довгі вбудовані назви ...

Пайк ( фіксує 31), 10 9 байт

=blR.fbtp

Пояснення:

=b         -    set characters for base conversion to eval_or_not(input())
  l        -   len(^)
   R      -  [^, eval_or_not(input()]
    .f    - first_n(^)
      b   -    conv_base(^)
       t  -   ^[-1]
        p -  print(^)

Скала, 69

def f[A](s:Set[A]):Stream[List[A]]=Nil#::f(s).flatMap(x=>s.map(_::x))

Ледачі потоки досить приємні для подібних речей.

Japt, 50 40 34 28 байт

V²o ®s1+Ul)£UgXnH)¯X¦0}Ãâ ¯V

Введення є "string", number of items. Вихід сортується за довжиною, потім зворотним порядком алфавіту. Перевірте його онлайн!

Як це працює

V²  o ®   s1+Ul)£  UgXnH)¯  X¦ 0}Ã â ¯  V
Vp2 o mZ{Zs1+Ul)mX{UgXnH)s0,X!=0}} â s0,V

Vp2 o      // Create the range [0..V²).
mZ{     }  // Map each item Z in this range to:
Zs1+Ul)    //  Take the base-(1+U.length) representation of Z.
mX{     }  //  Map each char X in this to:
XnH        //   Parse X as a base-32 number.
Ug   )     //   Take the char at index -^ in U.
s0,X!=0    //   If X is 0, slice it to an empty string.
â          // Uniquify the result.
s0,V       // Slice to the first V items.

Ця версія займає деякий час, якщо ви хочете зробити більше 100 предметів. Якщо ви хочете більш швидкої версії, спробуйте цю 32-байтну :

V*2 o ms1+Ul)f@!Xf'0î£UgXnH}ïV

Кориця гумка, 6 байт

0000000: 6801 301c e74b                           h.0..K

Не конкуруючий, оскільки Коричнева жуйка була зроблена після цього виклику.

Спробуйте в Інтернеті (TIO обмежує вихід).

Пояснення

hСтавить Cinnamon Gum в форматі і режим генерації . Решта рядка декомпресується до [%s]*. %sПотім замінюються на вході, і генератор створюються , який виводить всі можливі рядки , відповідні регулярний вираз.

05AB1E , 9 байт

g<∞*εÅв¦J

Спробуйте в Інтернеті!

g             # length of the input
 <            # - 1
  ∞           # infinite list [1, 2, 3, …]
   *          # multiply each by the length-1
    ε         # for each:
     Åв       #  custom base conversion, using the input as the list of digits
       ¦      #  chop off the first digit
        J     #  join the rest to a string

Пітон, 55 байт

s=input();l=['']
for x in l:print x;l+=[x+c for c in s]

Це довше, ніж 53-байтне рішення feersum , але воно ілюструє інший метод з друкованим виводом. Список lоновлюється під час його перегляду, додаючи кожен односимвольний суфікс кожного прочитаного рядка.

Використовувати однаково довго map:

s=input();l=['']
for x in l:print x;l+=map(x.__add__,s) 

Таку ж довжину можна виконати і в Python 3, втративши значок print()та зберегти його, розпакувавши вхід.

s,*l=input(),''
for x in l:print(x);l+=[x+c for c in s]

Zsh , 31 байт

f(){<<<${(F)a};a=($^a$^@);f $@}

Спробуйте в Інтернеті!

Роздрукуйте масив, а потім зафіксуйте аргументи перед повторним повторенням. Незважаючи на включення назви функції, цей байт коротший, ніж ітеративна версія:

for ((;;))<<<${(F)a}&&a=($^a$^@)