Deskripsi tantangan

"Gangguan" dari urutan adalah permutasi di mana tidak ada elemen yang muncul di posisi aslinya. Misalnya ECABDadalah kekacauan ABCDE, tetapi CBEDAtidak:

ABCDE
 | |   <- B and D are in their orignal positions
CBEDA

Dengan diberi urutan, hasilkan kekacauan acak.

Catatan

• Anda dapat mengambil string sebagai input atau array / daftar elemen (integer, karakter, objek ...)

• Alih-alih mengembalikan objek baru, Anda dapat memodifikasi yang sudah ada dengan menukar elemen-elemennya

• Setiap kekacauan harus memiliki probabilitas yang sama untuk dihasilkan

• Anda dapat mengasumsikan bahwa ada lebih dari satu elemen dalam urutan dan tidak ada yang muncul lebih dari sekali

CJam , 14 byte

q:X{mr_X.=:|}g

Cobalah online!

Terus mengocok input sampai kekacauan.

Penjelasan

q:X   e# Read input and store it in X.
{     e# While the condition at the end of the loop is truthy...
  mr  e#   Shuffle the string.
  _X  e#   Duplicate it and push the input.
  .=  e#   Element-wise equality check.
  :|  e#   Reduce OR over the list, gives something truthy if any character
      e#   remained in its original position.
}g

Jelly , 6 byte

Ẋ=³S$¿

Cobalah online!

Penjelasan

Ẋ    ¿    Shuffle the given list while this is nonzero for it:
    $       A two-step process:
 =³           Element-wise equality of it and L (the original list)...
   S          Sum the ones in this binary array.

Jonathan Allan menyimpan satu byte.

Python, 85 byte

Mengubah daftar yang diteruskan (diizinkan oleh meta dan dalam pertanyaan).

from random import*
def D(l):
 o=l[:]
 while any(x==y for x,y in zip(o,l)):shuffle(l)

Coba online di sini!

ES6 (Javascript), 71, 69 byte

Input dan output adalah array, harus bekerja dengan semua jenis elemen (string, angka, dll), selama mereka dapat dibandingkan dengan "==".

Golf

F=s=>(r=[...s]).sort(_=>Math.random()-.5).some((e,i)=>s[i]==e)?F(s):r

Uji

F=s=>(r=[...s]).sort(_=>Math.random()-.5).some((e,i)=>s[i]==e)?F(s):r

F(['A','B','C','D'])
Array [ "D", "C", "A", "B" ]

F(['A','B','C','D'])
Array [ "D", "A", "B", "C" ]

F(['A','B','C','D'])
Array [ "C", "D", "B", "A" ]

F(['A','B','C','D'])
Array [ "D", "C", "B", "A" ]

F(['A','B','C','D'])
Array [ "C", "D", "B", "A" ]

Cuplikan Interaktif

F=s=>(r=[...s]).sort(_=>Math.random()-.5).some((e,i)=>s[i]==e)?F(s):r

function G() {
    console.log(F(T.value.split``).join``); 
}

<input id=T value="ABCDEF"><button id=G onclick="G()">GENERATE</button>

Perl 6 , 33 byte

{first (*Zne$_).all,.pick(*)xx *}

Lambda yang mengambil daftar bilangan bulat atau karakter sebagai input, dan mengembalikan daftar baru.

Jika harus mendukung daftar nilai arbitrer , neharus diganti dengan !eqv(+2 byte).

( Cobalah online. )

Penjelasan:

• { }: Mendefinisikan lambda.
• .pick(*): Menghasilkan acak acak dari daftar input.
• .pick(*) xx *: Membuat urutan tak terbatas malas dari pengocokan tersebut.
• (* Zne $_).all: Sebuah lambda yang zip dua daftar (argumennya *, dan argumen lambda luar $_) dengan neoperator (kesetaraan string negatif), menghasilkan daftar boolean, dan kemudian membuat allpersimpangan untuk mengelompokkannya ke satu negara boolean.
• first PREDICATE, SEQUENCE: Mengambil elemen pertama dari urutan permutasi tak terbatas kami yang memenuhi tes "kekacauan".

Brachylog , 19 18 15 13 byte

@~.:?z:#da;?&

Cobalah online!

Penjelasan

@~.                Output is a shuffle of the input
  .:?z             Zip the output with the input
      :#da         All couples of integers of the zip must be different
          ;      Or
           ?&      Call recursively this predicate with the same input

Perl 6 , 45 byte

{(@^a,{[.pick(*)]}...{none @a Zeqv@$_})[*-1]}

{(@^a,{[.pick(*)]}...{!sum @a Zeqv@$_})[*-1]}

Cobalah

Input adalah Array apa pun.

Diperluas:

{
  (

    @^a,          # declare parameter, and seed sequence generator

    {             # lambda with implicit parameter ｢$_｣
      [           # store into an array
        .pick(*)  # shuffle ｢$_｣
      ]
    }

    ...           # keep generating the sequence until

    {
      none        # none
      @a          # of the outer blocks input
      Z[eqv]      # is zip equivalent
      @$_         # with the current value being tested
    }

  )[ * - 1 ]      # return the last value
}

MATL, 7 byte

Ini adalah terjemahan dari pos Oktaf saya (dan mirip dengan beberapa kiriman lainnya di sini). Saya memposting posting MATL pertama saya kemarin (CNR crack), jadi saya kira ini tidak optimal, tapi itu yang terbaik yang saya dapatkan sejauh ini.

Sejujurnya, saya tidak sepenuhnya yakin tdiperlukan di sana, tapi itu satu-satunya cara saya bisa membuatnya bekerja. Ini digunakan sehingga saya bisa membandingkan input pengguna (diambil dengan G), dengan permutasi acak. Saya akan berpikir saya bisa membandingkan keduanya tanpa itu, tapi ...?

Bagaimanapun, ini dia:

`Z@tG=a

`          % Loop
 Z@        % Random permutation of input
   t       % Duplicating the stack
    G      % Paste from clipboard G (user input)
     =     % Comparing the random permutation with the input (retrieved from clipboard)
      a    % any(input == random permutation)
           % Implicit end and display

Cobalah online!

Sebenarnya , 13 byte

;;WX╚│♀=ΣWX)X

Cobalah online!

Penjelasan:

;;WX╚│♀=ΣWX)X
;;             make two copies of input
  WX╚│♀=ΣW     while top of stack is truthy:
   X             discard top of stack
    ╚            shuffle array
     │           duplicate entire stack
      ♀=         compare corresponding elements in shuffled and original for equality
        Σ        sum (truthy if any elements are in the same position, else falsey)
          X)X  discard everything but the derangement

Oktaf, 56 55 byte

x=input('');while any(x==(y=x(randperm(nnz(x)))));end,y

Kita harus menggunakan input('')karena ini bukan fungsi. Juga, karena saya dapat memilih untuk memiliki input sebagai string, kita dapat menggunakan trik itu nnz(x)==numel(x).

Penjelasan:

x=input('')            % Self-explanatory
while any(x==y)        % Loop until x==y has only 0s (i.e. no elements are equal)
y=x(randperm(nnz(x)))  % Continue to shuffle the indices and assign x(indices) to y
end                    % End loop
y                      % Display y

Terima kasih kepada Luis karena memperhatikan bahwa input dapat berupa string, jadi saya dapat menggunakan nnzalih-alih numelmenghemat dua byte.

MATL, 13 byte

Ini adalah upaya bersama dari @LuisMendo dan saya. Berbeda dengan banyak jawaban lain di sini, yang satu ini bersifat deterministik dalam arti bahwa ia tidak mengambil sampel permutasi acak sampai mendapat derangement, tetapi ia menghasilkan semua derangement dan memilih satu secara acak.

Y@tG-!Af1ZrY)

Cobalah secara Online!

Penjelasan

Y@tG-!Af1ZrY)
Y@             generate all permutatoins
  t            create a duplicate
   G-!A        find the (logical) indices of all valid derangements (where no character of the string is in the same position as the original string)
       f       convert logical to linear indices
        1Zr    choose one of those indices randomly
           Y)  get the derangement (from the ones we generated earlier) at this index

Pyth - 10 9 byte

Ini terus mengocok input sementara salah satu karakter sama dengan karakter pada indeks mereka di input.

.WsqVHQ.S

Cobalah online di sini .

.W           Iterate while
 s           Sum, this is works as any() on a boolean list
  qV         Vectorized equality
   H         The lambda variable for the check step
   Q         The input
 .S          Shuffle
  (Z)        Lambda variable, implicit
 (Q)         Start .W with input, implicit

Mathematica, 57 byte

#/.x_:>RandomChoice@Select[Permutations@x,FreeQ[#-x,0]&]&

Fungsi yang tidak disebutkan namanya mengambil daftar whatevers sebagai input dan keluaran daftar. Setelah menghasilkan semua permutasi #input x, kami hanya menyimpan yang set #-xelemen-perbedaan tidak mengandung a 0; lalu kita membuat pilihan acak (seragam) dari set itu.

PHP, 85 byte

for($a=$b=str_split($argv[1]);array_diff_assoc($a,$b)!=$a;)shuffle($b);echo join($b);

Menyalin argumen string ke dua array, mengocok salah satunya hingga perbedaan di antara keduanya (juga membandingkan indeks elemen) sama dengan yang lainnya. Jalankan dengan -r.

R, 59 byte

z=x=1:length(y<-scan(,""));while(any(x==z))z=sample(x);y[z]

Membaca daftar elemen ke STDIN, mengambil panjang daftar dan mulai rentang pengambilan sampel dari 1 hingga panjang, hingga menemukan yang tidak berbagi tempat dengan daftar yang dipesan. Kemudian cetak daftar itu.

Bertanya-tanya , 32 byte

f\@[/>#I zip#=[#0a\shuf#0]?f a?a

Pemakaian:

f\@[/>#I zip#=[#0a\shuf#0]?f a?a];f[1 2 3 4 5]

Penjelasan

Lebih mudah dibaca:

f\@[
  some #I zip #= [#0; a\ shuf #0]
    ? f a
    ? a
]

Fungsi rekursif f. Apakah perbandingan elemen antara fdaftar input dan dan versi daftar input yang dikocok. Jika perbandingan menghasilkan nilai yang sama, maka fdisebut pada daftar shuffled. Jika tidak, kami cukup mengembalikan daftar yang dikocok.

Ruby, 67 byte

def f a
while (a.zip(o=a.shuffle).map{|x,y|x-y}.index 0);end
o
end

Oktaf, 54 53 byte

@(a)((p=perms(a))(L=!any(p==a,2),:))(randi(sum(L)),:)

Hasilkan semua permutasi adan pilih secara acak baris yang tidak memiliki elemen umum a.

Catatan: Secara tidak sengaja sama dengan @flawr MATL answer!

Clojure, 94 90 79 byte

#(let[s(shuffle %)](if(not(some(fn[[x y]](= x y))(map vector % s)))s(recur %)))

-4 byte dengan mengubah kondisional di dalam reduksi menjadi and, dan inlining done?.

-11 byte dengan mengonversi reduksi menjadi some.

WOOT! Kalahkan PHP.

Metode brute-force. Mengacak daftar saat tidak valid. Ini selesai cepat bodoh mengingat ini adalah metode brute force yang tidak melakukan apa pun untuk mencegah duplikat mencoba. Itu menemukan 1000 dearangments dari daftar elemen 1000 dalam waktu kurang dari satu detik.

Tidak Disatukan:

(defn dearang [ls]
  (let [s (shuffle ls)
        bad? (some (fn [[x y]] (= x y))
                (map vector ls s))]
    (if (not bad?) s (recur ls))))

Clojure, 56 byte

#(let[s(shuffle %)](if((set(map = % s))true)(recur %)s))

Perhatikan bahwa string tidak dapat dikocok, harus melewati seqatau vec.

Awalnya saya mencoba #(first(remove(fn[s]((set(map = % s))true))(iterate shuffle %)))tetapirecur pendekatannya memang lebih pendek dari iterate.

Ajaibnya adalah (set(map = % s))mengembalikan seperangkat false, set true atau set true dan false. Ini dapat digunakan sebagai fungsi, jika mengandung truemaka jawabannya adalah true, jika tidak palsu nil. =dengan senang hati mengambil dua argumen input, tidak perlu membungkusnya dengan sesuatu.

((set [false]) true)
nil

Mungkin ada cara yang lebih pendek untuk memeriksa apakah ada nilai yang benar?

APL, 11 byte.

Dengan string dalam argumen yang benar:

⍵[⍋(⍴⍵)?⍴⍵]

Penjelasan

ρ⍵ mendapatkan panjang (atau bentuk) dari argumen yang benar.

?mengembalikan array acak (⍴⍵)dari angka-angka ini.

⍋ mengembalikan urutan mereka untuk memastikan tidak ada duplikat.

⍵[..] mewakili bermacam-macam string secara acak menggunakan indeks ini.