Bir harf kümesi göz önüne alındığında, bu harflerden yapılan tüm dizeleri çıkar. (Bu, kümenin Kleene yıldızı .) Örneğin {'a','b'}, dizgiler:

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

Giriş: Boş olmayan farklı harflerden oluşan bir koleksiyon a..z. Bunlar karakter veya tek karakterli dizeler olabilir.

Çıktı: Bu harflerdeki tüm dizeler, herhangi bir sırayla, tekrarlar olmadan. Karakter listelerini dizeler olarak kullanabilirsiniz.

Bu sonsuz bir listedir;

• Sonsuza dek koşuyor, daha fazla karakter dizisi yazıyor. Bu dizeler herhangi bir düz ayrılmış biçimde yazılabilir, yani her dizenin nerede bittiğini söyleyebilirsiniz, ancak dizeler gruplara bölünmez.
• Sayı nolarak giriş almak ve nherhangi bir düz ayrılmış biçimde ilk dizeleri çıkarmak
• Her dizgeyi sırayla bir jeneratör nesnesinden elde etmek
• Sonsuz bir nesne üretmek

Metodunuzun sonunda çıktıdaki her dizgiyi ürettiğinden emin olun, çünkü setten sonsuz sayıda dizge üretip asla dizgelere ulaşamazsınız.

Şunları değil çıkışı kendisini tarafından

• nVerilen inci dizinin üretilmesin
• Belirli bir dizenin kümeye ait olup olmadığına karar veren bir üyelik oracle

Yerleşiklere izin verilir, ancak seçmenlerden operasyonu kendilerine uygulayan ve çoğunlukla yerleşik olanlara cevap verenlere dikkat etmelerini istiyorum.

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>

Python 2, 53 56

-3 farkettikten sonra yield xbunun bir ifade olarak kullanılabileceğini söyledi.

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

Haskell, 24 bayt

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

Sonsuz bir liste üretir.

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

JavaScript (ES6), 61 bayt

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

@ Feersum'un Python jeneratörünün limanı. letGereklidir. Dizi anlama özelliğini kullanarak 2 bayttan tasarruf edin (başarısız ES7 teklifi, ancak Firefox 30-57'de çalışır):

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

nYukarıdaki jeneratör tarafından üretilen ilk elemanları döndüren 73 baytlık alternatif versiyon :

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

Mathematica, 32 31 Bayt

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

Düzenle:

CatsAreFluffy bir bayttan sıyrıldı.

Perl, 39 37 35 bayt

(Önce eski bir sürümü anlatır. Yeni kısa program sonundadır)

İçin +3 içerir -alp

STDIN'de bir karakter kümesiyle çalıştırın, örn. perl -alp kleene.pl <<< "a b c"

kleene.pl (bu sürüm 34 + 3 bayttır):

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

İçin +2 ekleyin -F( -agiriş karakterleri arasında boşluk yoksa boşluk bırakın veya STDIN üzerindeki karakterler arasına virgül koyarsak -6 (yalnızca @a=""önce }) bırakın

Açıklama:

-alpSeçenekler etkin bir kod olun:

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

<>Perl'de görebileceğiniz gibi sadece okuma çizgisi için kullanılmaz, aynı zamanda kabuk tarzı globbing de yapabilir (aslında eski perls'te kabuk çağrılarak uygulanır).

Örneğin <{a,b}{1,2}>genişleyecek"a1","a2","b1","b2"

Öyleyse içindeki öğelere @Fsahipsek , aralarına virgül eklememiz gerekir. Enterpolasyon için varsayılan ara karakter, özel değişkende saklanan boşluktur $". Ayar Yani $"için ,dönecek "{@F}"içine {a,b}eğer @F=qw(a b)(Neználkovo dize olarak genişletmek)

Aslında böyle bir şeyle döngü yapmak isterdim glob"{@F}"x$n++, ancak ilk boş satırın üretilemediği sorununa devam ettim ve bulduğum tüm geçici çözümler kodu çok uzun zamandır yaptı.

Bu nedenle, bu kodun diğer bir önemli kısmı ise, forbir dizi üzerinde döngü yapmak için bir döngü kullanırsanız , döngü boyunca fazladan elemanlar zorlayabilirsiniz ve döngü de bu yeni öğeleri alır. Dolayısıyla, eğer döngüde örneğin elementindeyiz "ab", o <{@F}$_>zaman <{a,b}ab>liste içeriğinin ne olacağı genişleyecektir ("aab", "bab"). Bu yüzden eğer bunları bastırırsam @a, bir tane sola doğru uzatılmış teller de kullanılabilir duruma gelir

Yapmam gereken tek şey, döngüyü boş bir dize ile doldurmak. Bu $#a = 0( ,sayısal bağlamda olur 0) kullanılarak yapılır ve bu ilk ve tek elemanın ben kullandığım zamanki @agibi davranacak şekilde tanımlanmamasına neden olur.""

Gelişme iyilesme duzelme ilerleme

Aslında bu açıklama için testler yaparak, ilk boş girişi düzgün bir şekilde idare eden büyüyen bir küre kullanmanın kısa bir yolunu buldum. Farklı çalıştır perl -ap kleene0.pl <<< "a b"(böylece için 2 bayt ekleyin -ap)

kleene0.pl (bu sürüm 33 + 2 bayttır):

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

Tüm bu çözümler bellekteki çıktının gittikçe daha fazla olmasını sağlayacak ve programın bir süre sonra başarısız olmasına neden olacaktır. Perl globlarını tembel üretimi için skaler bağlamda kullanarak da kullanabilirsiniz, ancak bu programları daha uzun hale getirir ....

Pyth, 7

<s^LzQQ

Burada dene

Bu, girişin kartezyen ürününü her sayıyla 0..n-1onlardan hesaplar , birleştirir ve sonra yalnızca ilkini tutar n. Bu, 3-4'ten daha büyük sayılar veya dizgiler için çevrimiçi olarak zaman aşımına uğrar.

Alternatif olarak, sonsuz çıktı almak için Jakube'nin cevabına bakın .

Jöle, 8 6 bayt

⁷³p$Ȯ¿

Bu, bir alfabe kabul eden ve sonsuz bir dize listesi basan monadik bir bağlantıdır. Çevrimiçi deneyin!

Nasıl çalışır

⁷³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.

Alternatif sürüm, 6 bayt (rakipsiz)

R’ḃL}ị

Bu, sırasıyla bir alfabeyi ve istenen sayı dizisini sırasıyla sol ve sağ argüman olarak kabul eden çift yönlü bir bağlantıdır.

Bu sürümün rekabetsiz olduğunu düşünüyorum, çünkü bu zorluğun doldurulmasından sonra uygulanmış olan bijektif temel dönüşümünü kullanıyor. Çevrimiçi deneyin!

Nasıl çalışır

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 bayt

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 bayt

6 byte tasarruf ettiğin için jimmy23013'e teşekkürler.

N{eam*_o}h

Giriş, karakter başına bir komut satırı argümanıdır. Çıktı, her satırdaki bir dizedir.

Çevrimiçi deneyin! (Ama hemen öldür ...)

açıklama

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 bayt

.V0j^zb

Kızartmaya alternatif. Bu program bir dize okur ve sonsuza kadar dizeleri yazdırmaya devam eder.

Açıklama:

.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

Alternatif olarak aşağıdakiler de işe yarayacaktır. Yine de biraz daha hack.

u
M^zH7

Haskell, 33 bayt

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

Sınav k "xyz"için, sonsuz liste["","x","y","z","xx","xy","xz","yx","yy","yz","zx","zy","zz","xxx",...]

MATL , 10 bayt

0cD`G@Z^DT

Çevrimiçi deneyin! Ancak sunucuda büyük işlem yükü oluşmasını önlemek için uzun süre çalışmasına izin vermeyin.

Program, dizeleri dinamik olarak, her biri farklı bir satırda görüntüler.

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

Python 3, 95

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

Neden itertools fonksiyonlarında bu kadar uzun isimler olmalı?

Ruby, 65 60 bayt

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

Bu kadar uzun yerleşik isimler ...

Pyke (işlem 31), 10 9 bayt

=blR.fbtp

Açıklama:

=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(^)

Scala, 69

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

Tembel akışlar bu tür şeyler için oldukça iyi.

Japt, 50 40 34 28 bayt

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

Girdi olduğunu "string", number of items. Çıktı uzunluğa göre sıralanır, ardından ters alfabe sıralaması Çevrimiçi test edin!

Nasıl çalışır

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'den fazla öğe yapmak istiyorsanız bu sürüm biraz zaman alır. Daha hızlı bir sürüm istiyorsanız, bu 32 bayt olanını deneyin :

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

Tarçınlı Sakız, 6 bayt

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

Rekabet etmedi, çünkü Tarçın Sakızı bu mücadeleden sonra yapıldı.

Çevrimiçi deneyin (TIO çıkışı sınırlar).

açıklama

hİçinde Tarçın Gum koyar format ve üretme modu . İpin geri kalanı için dekompresyon yapar [%s]*. Daha %ssonra giriş ile değiştirilir ve regex ile eşleşen tüm olası dizeleri çıkaran bir jeneratör oluşturulur.

05AB1E , 9 bayt

g<∞*εÅв¦J

Çevrimiçi deneyin!

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

Python, 55 bayt

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

Bu, feersum'un 53 baytlık çözümünden daha uzundur , ancak basılı farklı bir yöntem göstermektedir. Liste l, yinelenirken okunan her dizenin her bir karakter sonekini ekleyerek güncellenir.

Kullanımı eşit derecede uzun map:

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

Aynı uzunluk Python 3'te yapılabilir, bir karakterini kaybedebilir print()ve girişi açarak bir tanesini kaydedebilirsiniz .

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

Zsh , 31 bayt

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

Çevrimiçi deneyin!

Diziyi yazdırın, ardından özyinelemeden önce değişkenleri sıkıştırın. İşlev adını dahil etmesine rağmen, bu yinelemeli sürümden bir bayt daha kısadır:

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