Bài tập

Mục tiêu của bạn, nếu bạn chọn chấp nhận nó, là viết một chương trình, đưa ra một chuỗi đầu vào (hoặc mảng ký tự), đưa ra mọi hoán vị có thể có của các chữ cái trong chuỗi đó. Tôi rất khó tính với đầu ra của mình, vì vậy nó nên được sắp xếp theo thứ tự abc, không có sự trùng lặp.

Thí dụ:

Đầu vào: buzz

Đầu ra:

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

Quy tắc

• Đây là môn đánh gôn nên mã ngắn nhất sẽ thắng.
• Không gian lưu trữ trên mỗi / bất kỳ dòng nào là ok
• Một dòng mới sau dòng cuối cùng được cho phép (nhưng không còn nữa)

Thạch , 5 byte

ṢŒ!QY

Hãy thử trực tuyến!

Giải trình

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

05AB1E ,  4  3 byte

Đã cập nhật, kể từ khi bản cập nhật œphá vỡ phiên bản cũ,
cũng lưu một byte theo đề xuất của Magic Octopus Urn .

œê»

Hãy thử trực tuyến!

Giải trình

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

MATL , 4 byte

Y@Xu

Hãy thử trực tuyến!

Giải trình

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

Python 3.5, 79 byte

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

Một chức năng lấy đầu vào là một danh sách các ký tự và đầu ra bằng cách in.

Đệ quy thực hiện mọi hoán vị riêng biệt bằng cách lấy từng ký tự tiếp theo có thể theo thứ tự abc ra khỏi các ký tự riêng biệt còn lại và nối nó với đầu ra trong tiến trình w. Sau đó, chúng tôi tái diễn với nhân vật này được loại bỏ. Sau khi đầu vào được làm trống, chúng tôi in w.

CJam , 5 byte

Cảm ơn @EriktheOutgolfer đã chỉnh sửa ( qthay vì r)

qe!N*

Hãy thử trực tuyến!

Giải trình

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

Pyth - 5 byte

jS{.p

Hãy thử trực tuyến tại đây .

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

Haskell, 46 byte

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

Lưu 2 byte nhờ nimi

J, 19 byte

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

Trường hợp thử nghiệm

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

Giải trình

Đây là một chuyến tàu 4 người:

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

Về cơ bản:

/:~@~.@:{~!@#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 byte

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]

Không quá tệ cho một ngôn ngữ không có tích hợp hoán vị ...

Python 3.5, 81 byte:

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

Thực sự ... 81 byte khi câu trả lời dài nhất tiếp theo là 48 byte ... thở dài . Chà, tôi sẽ thử chơi golf này nhiều nhất có thể, nhưng mẹo chơi golf vẫn được đánh giá rất cao.

Ngoài ra, đây là giải pháp ngắn nhất tôi có thể nhận được trong Python 2 với 86 byte :

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

Rõ ràng trong Python 2, [*...]trả về a Syntax Errorvà kể từ khi permutationstrả về itertools.permutations object at 0x..., cách ngắn nhất tiếp theo (mà tôi biết) là trích xuất duy nhất hoán vị đang sử dụng {''.join(i)for i in permutations(f)}mà flà chuỗi đầu vào.

Cuối cùng, lưu ý rằng đây là cả hai hàm lambda và do đó phải được gọi theo định dạng print(<Function Name>(<Input String>)).

Toán học, 34 23 byte

Print@@@Permutations@#&

Đầu vào phải là một danh sách các ký tự.

Giải trình

Permutations@

Tìm tất cả các hoán vị của đầu vào, được sắp xếp và không trùng lặp.

Print@@@

In chúng từng cái một.

Brachylog , 9 byte

:pfdo~@nw

Hãy thử trực tuyến!

Giải trình

: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 byte

Chuỗi làm đầu vào

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

Danh sách các ký tự làm đầu vào

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

Mở rộng

*\              # 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

Brachylog (v2), 5 byte

pᵘoẉᵐ

Hãy thử trực tuyến!

Tìm ᵘnique permutations của đầu vào, s ort họ, ᵐap ẉriteln (ghi bằng dòng mới) trên mảng đó.

Trăn 3, 77 85 byte

Bây giờ sắp xếp!

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

PowerShell v3 +, 171 byte

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 đã giới thiệu -Uniquecờ trênSort-Object lệnh ghép ngắn, do đó, nó ngắn hơn một vài byte so với phiên bản v2 dưới đây, vì Selecttrước tiên chúng ta không cần .

phiên bản v2, 178 byte:

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 không có bất kỳ hoán vị tích hợp nào, vì vậy tôi đã mượn mã của mình từ Prime Factors Buddies và điều chỉnh một chút để sử dụng ở đây.

Đây thực chất là ba phần, tôi sẽ mở rộng bên dưới.

param([char[]]$x)$a,$b=$x;$a=,$aĐưa đầu vào $x, biến nó thành một char-array, loại bỏ chữ cái đầu tiên $avà phần còn lại vào $b, sau đó tái diễn $athành một mảng với toán tử dấu phẩy.

while($b){$z,$b=$b;$a+=$a|%{0..($y=($c="$_").Length)|%{-join($c[0..$_]+$z+$c[++$_..$y])};"$z$c";"$c$z"}}Các vòng lặp thông qua các chữ cái còn lại ( $b), mỗi lần lặp lấy chữ cái tiếp theo và lưu nó vào $zvà để lại phần còn lại $b, sau đó nối $achuỗi vào kết quả gửi $aqua vòng lặp của chính nó - mỗi mục của $a(được lưu trữ tạm thời $c) được lặp lại riêng của nó .length, và sau đó $zđược chèn vào mọi vị trí, bao gồm cả chuẩn bị và nối thêm $z$cvà $c$z. Ví dụ, cho $c = '12'và $z = '3', điều này sẽ dẫn đến'132','312','123' việc được nối lại thành $a.

Phần cuối cùng $a|?{$_.length-eq$x.count}|select -u|sortlấy từng phần tử $avà sử dụng Where-Objectmệnh đề để chỉ lọc ra những phần tử có cùng độ dài với chuỗi đầu vào, sau đó selectchỉ các -umục nique và cuối cùng sortlà các phần tử theo thứ tự bảng chữ cái. Các chuỗi kết quả là tất cả còn lại trên đường ống và đầu ra thông qua ngầm Write-Outputxảy ra khi hoàn thành chương trình.

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 byte

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`

Trường hợp \nđại diện cho nhân vật dòng chữ mới. Câu trả lời của cổng @ ETHproduction để sử dụng chuỗi thay vì mảng. Đảo ngược đầu ra hoặc di chuyển dòng mới ở đầu, tiết kiệm 3 byte.

R, 113 byte

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

Đọc đầu vào từ stdin. Các permutegói được giả thiết được cài đặt để gọi allPermschức năng.

Sẽ thêm một lời giải thích khi tôi đi làm về.

Java 302 300 byte

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;}}

Mã thử nghiệm & mã hóa:

Hãy thử nó ở đây.

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);
    }
  }
}

Đầu vào: kiểm tra
Đầu ra:

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

Vợt 82 byte

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

Ung dung:

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

Kiểm tra:

(f "buzz")

Ouput:

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

Groovy, 69 byte

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

Ruby, 51 byte

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

Trên thực tế , 8 byte

Gợi ý chơi golf chào mừng! Hãy thử trực tuyến!

;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 byte

7 byte mã, +1 cho -ncờ.

SSUQPMa

Lấy một chuỗi làm đối số dòng lệnh. Hãy thử trực tuyến!

Máy quét của Pip phá vỡ các chữ cái viết hoa thành các khối hai chữ cái. Vì vậy, mã này là SS UQ PM a--ie SortString(UniQue(PerMutations(a))), với alà dòng lệnh arg. Các -nĐảm bảo cờ danh sách kết quả là newline-tách ra. Thats tất cả để có nó.

K (oK) , 14 byte

Dung dịch:

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

Hãy thử trực tuyến!

Giải trình:

Sử dụng hàm hoán vị tích hợp, prmđể tạo các hoán vị độ dài của đầu vào, áp dụng các hoán vị này cho đầu vào, sắp xếp theo thứ tự abc và sau đó lấy các giá trị riêng biệt.

?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 byte

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

Hãy thử trực tuyến!

Japt v2.0a0 -R, 5 byte

á â n

Thử nó

C ++ (gcc) , 132 128 byte

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

Hãy thử trực tuyến!

Ngao , 9 byte

p_D`Sq@~Q

Giải trình

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