Bu soru büyük ölçüde bu soruya dayanmaktadır , ancak bir takım ek zorluklar içermelidir.

Senin görevin

Bir dize alırken, tüm olası anagramlarını yazdıran bir program veya işlev yazmalısınız. Bu sorunun amacı için bir anagram, orijinal dize ile aynı karakteri içeren ancak orijinal dize olmayan bir dizedir. Bir altanagram, girilen bir dizenin bir alt dizisinin bir anagramıdır. Anagramların ve altanagramların gerçek kelimeler olması veya içermesi gerekmez.

Giriş

Herhangi bir standart giriş yöntemiyle herhangi bir uzunlukta> 0 olabilecek bir dizeyi kabul edebilirsiniz. Herhangi bir ASCII karakteri içerebilir.

Çıktı

Girilen dizgenin tüm olası anagramlarını ve altanagramlarını herhangi bir standart şekilde çıktılayabilirsiniz. Aynı dizeyi iki kez çıkarmamalı veya girdiye eşit bir dize çıkarmamalısınız.

Diğer Kurallar

Standart Loopholes'a izin verilmiyor

puanlama

Bu kod golf , en az bayt kazanır.

05AB1E , 7 bayt

Œ€œ˜Ù¹K

Girdiden bir dizeyi kabul eden ve yığın üzerinde dizelerin listesini bırakan bir işlev. Tam bir program olarak listenin bir temsili yazdırılır.

Çevrimiçi deneyin!

Nasıl?

        - push input
Π      - all substrings
 €œ     - for €ach: all permutations
   ˜    - flatten
    Ù   - de-duplicate
     ¹  - push 1st input onto top of stack
      K - pop a,b; push a without any b's (remove the copy of the input from the list)
        - as a full program: implicit print of the top of the stack

Brachylog (2), 7 bayt

{sp}ᶠdb

Çevrimiçi deneyin!

açıklama

{sp}ᶠdb
{  }ᶠ    Find all
  p        permutations of
 s         a substring of {the input}
     d   Remove duplicates (leaving the list otherwise in the same order)
      b  Remove the first (the input itself)

Jöle , 9 bayt

ẆŒ!€;/QḟW

Bir listeyi kabul eden ve girdinin kendisi dışındaki tüm farklı alt anagramların bir listesini döndüren monadik bir bağlantı.

Çevrimiçi deneyin! (altbilgi, yeni satırlarla birleştirerek elde edilen listeyi güzel bir şekilde yazdırır.)

Nasıl?

ẆŒ!€;/QḟW - Link: list of characters, s
Ẇ         - all contiguous sublists of s
 Œ!€      - all permutations for €ach sublist now a list of lists of lists)
     /    - reduce by:
    ;     -   concatenation (flattens the list by one level)
      Q   - de-duplicate (gets the unique entries)
        W - wrap s in a list (otherwise filtering will attempt to remove characters)
       ḟ  - filter discard from left if in right (remove the one equal to the input)

Pyth, 12

-{.n.pM.:Q)]

Çevrimiçi test .

         Q       # input
       .: )      # all substrings
    .pM          # all permutations of all substrings
  .n             # flatten
 {               # deduplicate
-          ]Q    # subtract (list of) (implicit) input

Japt , 10 bayt

à má c â Å

Çevrimiçi deneyin!

Ben kullanmak lazım à, áve âçok sırayla, tek cevap tüm. Ne tesadüf...

açıklama

 à má c â Å
Uà má c â s1  // Ungolfed
              // Implicit: U = input string
Uà            // Take all combinations of characters in the input string.
   má         // Map each combination to all of its permutations.
      c       // Flatten into a single array.
        â     // Uniquify; remove all duplicates.
          s1  // Remove the first item (the input) from the resulting array.
              // Implicit: output resulting array, separated by commas

Mathematica, 60 bayt

DeleteCases[""<>#&/@Permutations[c=Characters@#,Tr[1^c]],#]&

Permutationspermütasyonlar için kaç giriş değerinin kullanılacağını söyleyen isteğe bağlı bir sayısal argüman alır. Girdinin uzunluğunu verirsek, yinelemesiz girdinin tüm alt kümeleri için permütasyonlar oluşturur. Tek yapmamız gereken girişi kaldırmak.

Java 8, 313 312 306 bayt

import java.util.*;s->{Set l=new HashSet();for(int z=s.length(),i=0,j;i<z;i++)for(j=i;j<z;p("",s.substring(i,j+++1),l));l.remove(s);l.forEach(System.out::println);}void p(String p,String s,Set l){int n=s.length(),i=0;if(n<1)l.add(p);else for(;i<n;p(p+s.charAt(i),s.substring(0,i)+s.substring(i+++1,n),l));}

Cevabımın değiştirilmiş sürümü , burada p("",s,l);değiştirildifor(int z=s.length(),i=0,j;i<z;i++)for(j=i;j<z;p("",s.substring(i,j+++1),l));

Bağlantılı cevabımda @ OlivierGrégoire sayesinde -6 bayt .

Bu bölümün açıklaması:

Burada deneyin.

for(int l=s.length(),i=0,j;i<l;i++)
                               // Loop (1) from 0 to the length of the String (exclusive)
  for(j=i+1;j<=l;              //  Loop (2) from 1 to the length of the String (exclusive)
    p("",                      //   Call the permutation-method,
    s.substring(i,j+++1),l));  //   with a substring from `i` to `j` (inclusive)
                               //  End of loop (2) (implicit / single-line body)
                               // End of loop (1) (implicit / single-line body)

Perl 6 , 75 bayt

{unique(flat $_,.comb.combinations.skip».permutations.map(*».join)).skip}

Dene

Expanded:

{                    # bare block lambda with implicit parameter ｢$_｣

  unique(            # return each (sub)anagram once

    flat             # unstructure the following (List of Lists into flat List)
      $_,            # the input (so we can skip it at the end)

      .comb          # split the input into graphemes
      .combinations  # get all the combinations
      .skip\         # skip the first empty combination
      ».permutations # get all the permutations of each combination
      .map(*».join)  # join the inner permutations

  ).skip             # skip the first value (the input)
}