anagramsとタグ付けされた17の質問があるにもかかわらず、この質問はまだありません。

あなたのタスク

文字列を受け取ったときに、可能なすべてのアナグラムを出力するプログラムまたは関数を作成する必要があります。この質問の目的上、アナグラムは元の文字列と同じ文字を含む文字列ですが、元の文字列の正確なコピーではありません。アナグラムは、実際の単語である必要はありません。

入力

任意の標準入力方法で、文字列（長さ> 0）を受け入れることができます。ASCII文字を含めることができます。

出力

入力された文字列のすべての可能なアナグラムを標準的な方法で出力できます。同じ文字列を2回出力したり、入力と同じ文字列を出力したりしないでください。

その他の規則

標準の抜け穴は許可されていません

得点

これはcode-golfで、最小バイトが勝ちます。

05AB1E、3 バイト

œÙ¦

スタックに、アナグラムのリストを最上部に（そして唯一のアイテムとして）残す関数。完全なプログラムとして、そのリストの表現を印刷します。

オンラインでお試しください！

どうやって？

    - push input
œ   - pop and push a list of all permutations (input appears at the head)
 Ù  - pop and push a list of unique items (sorted by first appearance)
  ¦ - pop and push a dequeued list (removes the occurrence of the input)
    - As a full program: implicit print of the top of the stack

Ruby、45バイト

->x{(x.chars.permutation.map(&:join)-[x])|[]}

オンラインでお試しください！

組み込みを持っているにもかかわらず、「置換」という言葉は本当に長いです:(

MATL、7バイト

tY@1&X~

オンラインでお試しください！

説明

t     % Implicitly input a string, say of length n. Duplicate
Y@    % All permutations. May contain duplicates. Gives a 2D char array of 
      % size n!×n with each permutation in a row
1&X~  % Set symmetric difference, row-wise. Automatically removes duplicates.
      % This takes the n!×n char array and the input string (1×n char array)
      % and produces an m×n char array containing the rows that are present 
      % in exactly one of the two arrays
      % Implicitly display

pyth、8 4

-{.p

オンラインテスト。

  .pQ     # all permutations of the (implicit) input string
 {        # de-duplicate
-    Q    # subtract (implicit) input

Japt、6バイト

á â kU

オンラインでお試しください！

説明

 á â kU
Uá â kU   // Ungolfed
          // Implicit: U = input string
Uá        // Take all permutations of U.
   â      // Remove duplicates.
     kU   // Remove U itself from the result.
          // Implicit: output resulting array, separated by commas

Haskell、48 40バイト

import Data.List
a=tail.nub.permutations

オンラインでお試しください！

Leoのtailヒントのおかげで8バイト節約されました。

CJam、8バイト

l_e!\a-p

オンラインでお試しください！

説明

l    e# Read string from input
_    e# Duplicate
e!   e# Unique permutations. Gives a list of strings
\    e# Swap
a    e# Wrap in a singleton array
-    e# Set difference. This removes the input string
p    e# Pretty print the list

Mathematica、47バイト

Drop[StringJoin/@Permutations[Characters@#],1]&

ゼリー、4 バイト

Œ!QḊ

文字のリストを受け取り、文字のリストのリストを返すモナドリンク-入力と等しくないすべての個別のアナグラム。

オンラインでお試しください！（フッターは、リストを改行で結合して印刷するプログラムを形成し、それ以外の場合は破壊された表現を回避します）。

どうやって？

Œ!QḊ - Link: list of characters     e.g. "text"
Œ!   - all permutations of the list      ["text","tetx","txet","txte","ttex","ttxe","etxt","ettx","extt","extt","ettx","etxt","xtet","xtte","xett","xett","xtte","xtet","ttex","ttxe","tetx","text","txte","txet"]
  Q  - de-duplicate                      ["text","tetx","txet","txte","ttex","ttxe","etxt","ettx","extt","xtet","xtte","xett"]
   Ḋ - dequeue (the first one = input)          ["tetx","txet","txte","ttex","ttxe","etxt","ettx","extt","xtet","xtte","xett"]

Python 3、85 76 63バイト

関数として、文字列を文字のリストとして返します（許可されていることを教えてくれた@ pizzapants184に感謝します）。

from itertools import*
lambda z:set(permutations(z))-{tuple(z)}

機能として：

from itertools import*
lambda z:map("".join,set(permutations(z))-{tuple(z)})

完全なプログラムとして85バイト：

from itertools import*
z=input()
print(*map("".join,set(permutations(z))-{tuple(z)}))

（ 'a'、 'b'、 'c'）として文字列を出力できる場合は、少し減らすことができます（確かではありません）。

Java 8、245 239 237バイト

import java.util.*;s->{Set l=new HashSet();p("",s,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,n),l));}

@OlivierGrégoireのおかげで-6バイト。

典型的な冗長なJava ..多くの<10バイトの回答が表示されますが、ここでは200バイト以上です。XD

説明：

ここで試してみてください。

import java.util.*;         // Required import for the Set and HashSet

s->{                        // Method (1) with String parameter and no return-type
  Set l=new HashSet();      //  Set to save all permutations in (without duplicates)
  p("",s);                  //  Determine all permutations, and save them in the Set
  l.remove(s);              //  Remove the input from the Set
  l.forEach(                //  Loop over the Set
    System.out::println);   //   And print all the items
}                           // End of method (1)

// This method will determine all permutations, and save them in the Set:
void p(String p,String s,Set l){
  int n=s.length(),         //  Length of the first input String
      i=0;                  //  And a temp index-integer
  if(n<1)                   //  If the length is 0:
    l.add(p);               //   Add the permutation input-String to the Set
  else                      //  Else:
    for(;i<n;               //   Loop over the first input-String
      p(                    //    And do a recursive-call with:
        p+s.charAt(i),      //     Permutation + char
        s.substring(0,i)+s.substring(++i,n),l)
                            //     Everything except this char
      );                    //   End of loop
}                           // End of method (2)

Perl 6の、 39の  38バイト

*.comb.permutations».join.unique[1..*]

それを試してみてください

*.comb.permutations».join.unique.skip

それを試してみてください

拡大

*               # WhateverCode lambda (this is the parameter)
.comb           # split into graphemes
.permutations\  # get all of the permutations
».join          # join each of them with a hyper method call
.unique         # make sure they are unique
.skip           # start after the first value (the input)

C ++、142バイト

#include<algorithm>
void p(std::string s){auto b=s;sort(begin(s),end(s));do if(s!=b)puts(s.data());while(next_permutation(begin(s),end(s)));}

食べない

#include <algorithm>

void p(std::string s)
{
    auto b = s;                    // use auto to avoid std::string
    sort(begin(s), end(s));        // start at first permutation
    do
      if (s != b)                  // only print permutation different than given string
        puts(s.data());
    while (next_permutation(begin(s), end(s))); // move to next permutation
}

K（oK）、13バイト

解決：

1_?x@prm@!#x:

オンラインでお試しください！

説明：

評価は右から左に実行されます。

1_?x@prm@!#x: / the solution
           x: / store input in variable x
          #   / count length of x, #"abc" => 3
         !    / range, !3 => 0 1 2
     prm@     / apply (@) function permutations (prm) to range
   x@         / apply (@) these pumuted indixes back to original input
  ?           / return distinct values
1_            / drop the first one (ie the original input)

JavaScript（ES6）、101バイト

私の過去の回答から採用。

S=>(R=new Set,p=(s,m='')=>s[0]?s.map((_,i)=>p(a=[...s],m+a.splice(i,1))):R.add(m),_=p([...S]),[...R])

f=
S=>(R=new Set,p=(s,m='')=>s[0]?s.map((_,i)=>p(a=[...s],m+a.splice(i,1))):R.add(m),_=p([...S]),[...R])


console.log(
  f('ABC'),
  f('ABCD'),
  f('ABCC'),
  f('AABBC')
)

Perl 5、89 + 2（-F）= 91バイト

$,=$_;$"=",";map{say if!$k{$_}++&&$,ne$_&&(join"",sort@F)eq join"",sort/./g}glob"{@F}"x@F

オンラインでお試しください！