Завдання

Ваша мета, якщо ви вирішите прийняти це, - написати програму, яка з урахуванням рядка введення (або масиву символів) видає всі можливі перестановки літер у цьому рядку. Я витончений зі своїм результатом, тому його слід сортувати за алфавітом, без дублікатів.

Приклад:

Вхід: buzz

Вихід:

buzz
bzuz
bzzu
ubzz
uzbz
uzzb
zbuz
zbzu
zubz
zuzb
zzbu
zzub

Правила

• Це код-гольф, тому найкоротший код виграє.
• Пробіли на кожному / будь-якому рядку в порядку
• Один новий рядок після останнього рядка дозволений (але не більше)

Желе , 5 байт

ṢŒ!QY

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

Пояснення

Ṣ         Sort
 Œ!       All permutations
   Q      Unique
    Y     Join by linefeeds

05AB1E ,  4  3 байти

Оновлено, оскільки оновлення œзламало стару версію,
яка також зберегла байт, як запропонував Magic Octopus Urn .

œê»

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

Пояснення

œ     # get all permutations of input
 ê    # sort and remove duplicates
  »   # join list by newlines

MATL , 4 байти

Y@Xu

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

Пояснення

Y@    % Implicit input. Push 2D array of all permutations, each on a row, sorted
Xu    % Unique rows. Implicitly display

Python 3,5, 79 байт

def f(s,w=''):
 s or print(w)
 for c in sorted({*s}):t=s*1;t.remove(c);f(t,w+c)

Функція, яка приймає введення як список символів та виводить друк.

Рекурсивно робить кожну окрему перестановку, виводячи кожен можливий наступний символ в алфавітному порядку з решти окремих символів і додаючи його до результату, який виконується w. Потім ми повторюємо видалення цього символу. Як тільки введення спорожняється, ми друкуємо w.

CJam , 5 байт

Дякуємо @EriktheOutgolfer за виправлення ( qзамість r)

qe!N*

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

Пояснення

q        e# Read input as a string
 e!      e# Unique permutations, sorted
   N*    e# Join by newline. Implicitly display

Pyth - 5 байт

jS{.p

Спробуйте його онлайн тут .

j        Join. Implictly joins on newlines.
 S       Sort
  {      Uniquify
   .p    All permutations, implicitly run on input.

Haskell, 46 байт

import Data.List;unlines.sort.nub.permutations

2 байти збережено завдяки німі

J, 19 байт

/:~@~.@:{~!@#A.&i.#

Тестовий випадок

   f =: /:~@~.@:{~!@#A.&i.#
   f 'buzz'
buzz
bzuz
bzzu
ubzz
uzbz
uzzb
zbuz
zbzu
zubz
zuzb
zzbu
zzub

Пояснення

Це 4-поїзд:

                     /- ~ --- /:
               /- @ -^- ~.
  /- ~ --- @: -^- {
  |
  |            /- !
--<     /- @ --^- #
  |     |
  \-----<      /- A.
        >- & --^- i.
        \- #

В основному:

/:~@~.@:{~!@#A.&i.#
          !  A.&     get permutations
           @#   i.#  of range (0..length)
        {~           map indices to chars in string
      @:             then
    ~.               unique
   @                 then
/:~                  sort

JavaScript (Firefox 30+), 129 124 байт

f=(a,i=-1)=>a[1]?[for(x of a.sort())if(a.indexOf(x)==++i)f([...a.slice(0,i),...a.slice(i+1)]).replace(/^/gm,x)].join`
`:a[0]

Не надто погано для мови без вбудованих перестановок ...

Python 3,5, 81 байт:

from itertools import*;lambda i:'\n'.join(sorted({*map(''.join,permutations(i))}))

Дійсно ... 81 байт, коли наступна найдовша відповідь - 48 байт ... зітхання . Що ж, я спробую цей гольф більше, наскільки я можу, але поради щодо гольфу все ще дуже цінуються.

Крім того, ось найкоротше рішення, яке я міг отримати в Python 2 на 86 байт :

from itertools import*;lambda f:'\n'.join(sorted({''.join(i)for i in permutations(f)}))

Мабуть, в Python 2 [*...]повертає a Syntax Error, а оскільки permutationsповертається itertools.permutations object at 0x..., наступним найкоротшим способом (що я знаю) вилучення унікальних перестановок є використання {''.join(i)for i in permutations(f)}де fвхідного рядка.

Нарешті, зауважте, що це обидві лямбда-функції, і тому їх потрібно викликати у форматі print(<Function Name>(<Input String>)).

Математика, 34 23 байти

Print@@@Permutations@#&

Вхід повинен містити список символів.

Пояснення

Permutations@

Знайдіть усі перестановки введення, відсортовані та без дублікатів.

Print@@@

Роздрукуйте їх по черзі.

Брахілог , 9 байт

:pfdo~@nw

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

Пояснення

:pf         Find all outputs of p - Permute with the main Input as input
   d        Remove Duplicates
    o       Order
     ~@n    Concatenate into a single string with linebreaks as separator
        w   Write to STDOUT

Perl 6 ,  49  44 байт

Рядок як вхід

*.comb.permutations.sort».join.squish.map: *.put

Список символів як введення

*.permutations.sort».join.squish.map: *.put

Розширено

*\              # Whatever lambda
# .comb\        # split into a list of characters
.permutations\  # returns a list of lists
.sort\
».join\         # join the second level lists
.squish\        # remove adjacent repeated values
.map: *.put     # print each on its own line

Брахілог (v2), 5 байт

pᵘoẉᵐ

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

Знайдіть ᵘnique pермутації введення, s ort їх, ᵐap ẉriteln (запишіть з нового рядка) над цим масивом.

Python 3, 77 85 байт

Тепер сортування!

import itertools as i
for a in sorted(set(i.permutations(input()))):print("".join(a))

PowerShell v3 +, 171 байт

param([char[]]$x)$a,$b=$x;$a=,$a;while($b){$z,$b=$b;$a+=$a|%{0..($y=($c="$_").Length)|%{-join($c[0..$_]+$z+$c[++$_..$y])};"$z$c";"$c$z"}}$a|?{$_.length-eq$x.count}|sort -u

PowerShell v3 представив -Uniqueпрапор на Sort-Objectcmdlet, тому він на кілька байтів коротший, ніж нижченаведена версія v2, оскільки нам не потрібноSelect .

версія v2, 178 байт:

param([char[]]$x)$a,$b=$x;$a=,$a;while($b){$z,$b=$b;$a+=$a|%{0..($y=($c="$_").Length)|%{-join($c[0..$_]+$z+$c[++$_..$y])};"$z$c";"$c$z"}}$a|?{$_.length-eq$x.count}|select -u|sort

У PowerShell немає вбудованих перестановок, тому я запозичив свій код у Prime Factors Buddies і трохи підкоригував його для використання тут.

Це, по суті, три частини, які я розкрию нижче.

param([char[]]$x)$a,$b=$x;$a=,$aЗаймає введення $x, charпередає його як- масив, знімає першу букву в, $aа решту - $b, а потім переглядає $aяк масив із оператором коми.

while($b){$z,$b=$b;$a+=$a|%{0..($y=($c="$_").Length)|%{-join($c[0..$_]+$z+$c[++$_..$y])};"$z$c";"$c$z"}}Проведіть цикл через інші літери ( $b), кожна ітерація приймає наступний лист і зберігає його в нього, $zа решту залишає в ньому $b, а потім об'єднує масив на $aрезультат надсилання $aчерез його власний цикл - кожен елемент $a(тимчасово зберігається в $c) перекидається на його власне .length, а потім $zвставляється у кожну позицію, включаючи попереднє додавання та додавання до $z$cта $c$z. Наприклад, для $c = '12'і $z = '3', це призведе до '132','312','123'об'єднання назад у $a.

Кінцева частина $a|?{$_.length-eq$x.count}|select -u|sortзаймає кожен елемент $aта використовує Where-Objectпункт для фільтрації лише тих, які мають ту саму довжину, що і вхідна рядок, потім selects лише -unique елементи і, нарешті, sorts в алфавітному порядку. Отримані рядки залишаються на конвеєрі, а вихід через неявні Write-Outputвідбувається після завершення програми.

PS C:\Tools\Scripts\golfing> .\alphabetically-permute-a-string.ps1 'PPCG'
CGPP
CPGP
CPPG
GCPP
GPCP
GPPC
PCGP
PCPG
PGCP
PGPC
PPCG
PPGC

JavaScript (ES6), 119 байт

f=(s,t=[...s].sort().join``,p=``)=>t?t.replace(/./g,(c,i)=>t.indexOf(c)==i?f(s,t.slice(0,i)+t.slice(i+1),p+c):``):p+`\n`

Де \nпредставляє буквальний символ нового рядка. Порт відповіді @ ETHproduction використовувати рядки замість масивів. Зворотний результат або переміщення нижньої лінії на початок економить 3 байти.

R, 113 байт

x=scan(,"");cat(sort(unique(apply(matrix(x[permute:::allPerms(l<-length(x))],,l),1,paste,collapse=""))),sep="\n")

Читає дані від stdin. Передбачається, що permuteпакет встановлений для виклику allPermsфункції.

Додамо пояснення, коли я повернуся з роботи додому.

Java 302 300 байт

import java.util.*;class M{public static void main(String[]a){for(Object s:p(new TreeSet(),"",a[0]))System.out.println(s);}static Set p(Set l,String p,String s){int n=s.length(),i=0;if(n>1)for(;i<n;p(l,p+s.charAt(i),s.substring(0,i)+s.substring(++i,n)));else if(!l.contains(p+=s))l.add(p);return l;}}

Невикористаний і тестовий код:

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

import java.util.*;
class M{
  static Set p(Set l, String p, String s){
    int n = s.length(),
        i = 0;
    if(n > 1){
      for(; i < n; p(l, p + s.charAt(i), s.substring(0, i) + s.substring(++i, n)));
    } else if(!l.contains(p+=s)){
      l.add(p);
    }
    return l;
  }

  public static void main(String[] a){
    for(Object s : p(new TreeSet(), "", a[0])){
      System.out.println(s);
    }
  }
}

Вхід: тест
Вихід:

estt
etst
etts
sett
stet
stte
test
tets
tset
tste
ttes
ttse

Ракетка 82 байти

(sort(remove-duplicates(map list->string(permutations(string->list s)))) string<?)

Безголівки:

(define(f s)
 (sort
  (remove-duplicates
   (map
    list->string
    (permutations
     (string->list s))))
  string<?))

Тестування:

(f "buzz")

Вихід:

'("buzz" "bzuz" "bzzu" "ubzz" "uzbz" "uzzb" "zbuz" "zbzu" "zubz" "zuzb" "zzbu" "zzub")

Groovy, 69 байт

{(it as List).permutations().unique().sort().each{println it.join()}}

Рубі, 51 байт

->s{puts s.chars.permutation.map(&:join).uniq.sort}

Actually, 8 bytes

Golfing suggestions welcome! Try it online!

;l@╨♂Σ╔i

Ungolfing

     Implicit input s.
;l   Get len(s).
@╨   Get all len(s)-length permutations of s.
♂Σ   Sum them all back into strings.
╔    uniq() the list of strings.
i    Flatten the list of strings.
     Implicit print the stack, separated by newlines.

Pip, 8 bytes

7 bytes of code, +1 for -n flag.

SSUQPMa

Takes a string as a command-line argument. Try it online!

Pip's scanner breaks runs of uppercase letters into two-letter chunks. So this code is SS UQ PM a--i.e. SortString(UniQue(PerMutations(a))), with a being the command-line arg. The -n flag ensures the result list is newline-separated. That's all there is to it.

K (oK), 14 bytes

Solution:

?x@<x@:prm@#x:

Try it online!

Explanation:

Use the built-in permutation function, prm, to generate permutations of length of the input, apply these permutations to the input, sort alphabetically and then take distinct values.

?x@<x@:prm@#x: / the solution
            x: / store input as x
           #   / count length of x
       prm@    / apply (@) function prm
    x@:        / apply indices to x and save result back into x
   <           / indices to sort ascending
 x@            / apply to x
?              / take distint

Perl 5 -MList::Util=uniq -F, 68 bytes

$"=',';@b=sort@F;map{say if"@b"eq join$",sort/./g}uniq glob"{@b}"x@b

Try it online!

Japt v2.0a0 -R, 5 bytes

á â n

Try it

C++ (gcc), 132 128 bytes

#include<bits/stdc++.h>
using namespace std;int main(){string s;for(cin>>s;cout<<s<<endl,next_permutation(s.begin(),s.end()););}

Try it online!

Clam, 9 bytes

p_D`Sq@~Q

Explanation

          - Implicit Q = first input
p         - Print...
 _        - Sorted ascending value (alphabetical order)
  D       - Distinct from...
   `Sq    - Joined (map(q=>q.join(""))
      @~Q - Permutations of Q