Bir diziyi 0-nherşey dahil her sayı ile doldurmalısınız . Hiçbir sayı tekrarlanmamalıdır. Ancak rastgele sırada olmaları gerekir.

kurallar

Tüm standart kod golf kuralları ve standart boşluklar yasaklanmıştır

Dizi, rastgele rasgele oluşturulmalıdır. Her olası permütasyon eşit olasılıkta olmalıdır.

Giriş

n metadaki G / Ç yayınında izin verilen herhangi bir şekilde.

Çıktı

Sayı dizisi 0-nkapsayıcıdan karıştırıldı .

Perl 6 , 14 bayt

{pick *,0..$_}

Dene

Expanded:

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

  pick      # choose randomly without repeats
    *,      # Whatever (all)
    0 .. $_ # Range from 0, to the input (inclusive)
}

05AB1E , 3 bayt

Ý.r

Çevrimiçi deneyin!

Ý   # Make a list from 0 to input
 .r # Shuffle it randomly

Pyth, 3 bayt

.Sh

gösteri

.Sshuffle. Bu örtülü bir giriş tamsayı atmalarını naralığına [0, 1, ..., n-1]. holduğunu +1, ve giriş örtülü olarak alınır.

R , 16 bayt

sample(0:scan())

den okur stdin. samplegiriş vektörünün rastgele örnekleri (sahte) rastgele bir dizi döndürür.

Çevrimiçi deneyin!

Jöle , 3 bayt

0rẊ

Çevrimiçi deneyin!

açıklama şu:

0rẊ 
0r  Inclusive range 0 to input.
  Ẋ Shuffle.
    Implicit print.

Alternatif çözüm, 3 bayt

‘ḶẊ

Açıklama:

‘ḶẊ
‘   Input +1
 Ḷ  Range 0 to argument.
  Ẋ Shuffle.

Çevrimiçi deneyin!

Python 2 , 51 bayt

lambda n:sample(range(n+1),n+1)
from random import*

Çevrimiçi deneyin!

Var random.shuffle()ama argümanı döndürmek yerine değiştiriyor ...

PHP, 42 Bayt

$r=range(0,$argn);shuffle($r);print_r($r);

Çevrimiçi deneyin!

Bash, 18 11 bayt

shuf -i0-$1

Çevrimiçi deneyin!

Mathematica, 24 bayt

RandomSample@Range[0,#]&

MATL , 4 bayt

QZ@q

Çevrimiçi deneyin!

açıklama

Q     % Implicitly input n. Add 1
Z@    % Random permutation of [1 2 ... n+1]
q     % Subtract 1, element-wise. Implicitly display

Brachylog , 2 bayt

⟦ṣ

Çevrimiçi deneyin!

açıklama

⟦     Range from 0 to Input
 ṣ    Shuffle

Japt , 4 bayt

ò öx

Çevrimiçi deneyin

    :Implicit input of integer U
ò   :Generate array of 0 to U.
öx  :Generate random permutation of array.
    :Implicit output of result.

C #, 76 bayt

using System.Linq;i=>new int[i+1].Select(x=>i--).OrderBy(x=>Guid.NewGuid());

Bu bir IOrderedEnumerable döndürür, umarım bu tamam, yoksa başka bir .ToArray () için birkaç bayt gerekir

CJam , 7 6 bayt

Outgolfer Erik sayesinde 1 bayt kaldırıldı .

{),mr}

Bu, yığından bir tamsayı alan ve sonuçla değiştiren anonim bir bloktur (işlev). Çevrimiçi deneyin!

açıklama

{     e# Begin block
)     e# Increment: n+1
,     e# Range: [0 1 ... n]
mr    e# Shuffle
}     e# End block

Java 8, 114 111 97 bayt

import java.util.*;n->{List l=new Stack();for(;n>=0;l.add(n--));Collections.shuffle(l);return l;}

@ OlivierGrégoire sayesinde -3 bayt ve hata düzeltildi . @ Jakob
sayesinde -4 bayt . -10 bayt kaldırarak .
.toArray()

Açıklama:

Burada deneyin.

import java.util.*;        // Required import for List, Stack and Collections
n->{                       // Method with integer parameter and Object-array return-type
  List l=new Stack();      //  Initialize a List
  for(;n>=0;l.add(n--));   //  Loop to fill the list with 0 through `n`
  Collections.shuffle(l);  //  Randomly shuffle the List
  return l;                //  Convert the List to an Object-array and return it
}                          // End of method

Ohm , 2 bayt

#╟

Çevrimiçi deneyin!

Pyth, 4 Bayt

.S}0

Burada deneyin!

C, 75 bayt

a[99],z,y;f(n){if(n){a[n]=--n;f(n);z=a[n];a[n]=a[y=rand()%(n+1)];a[y]=z;}}

Dizinin sonundan başlangıçta başlayan ve çıkıştan önce rastgele bir öğeyle değiştiren özyinelemeli işlev.

Kömür , 33 bayt

Ａ…·⁰ＮβＦβ«ＡβδＡ‽δθＰＩθ↓Ａ⟦⟧βＦδ¿⁻θκ⊞βκ

Çevrimiçi deneyin! Bağlantı, kodun ayrıntılı versiyonudur.

Görünüşe göre Kömür listesindeki bir öğenin kaldırılması 17 bayt sürüyor.

Düzenleme: Bu gün, öğenin tüm oluşumlarını listeden kaldırmak istediğinizi varsayarsak, yalnızca üç bayt alır. Bu artı diğer Kömür değişiklikleri cevabı 21 bayta indirdi: Çevrimiçi deneyin!

APL (Dyalog) , 5 bayt

?⍨1+⊢

Çevrimiçi deneyin!

⎕IO←0Birçok makinede varsayılan olan varsayımdır .

açıklama

⊢ doğru argüman

1+ ona 1 ekle

?⍨0 .. 1+⊢-1 sayıları üretin ve iki sayı tekrar etmeyecek şekilde rastgele bir dizide dağıtın

q / kdb +, 11 bayt

Çözüm:

{(0-x)?1+x}

Misal:

q){(0-x)?1+x}10
5 9 7 1 2 4 8 0 3 10
q){(0-x)?1+x}10
6 10 2 8 4 5 9 0 7 3
q){(0-x)?1+x}10
9 6 4 1 10 8 2 7 0 5

Açıklama:

Çoğaltılmadan tam listesini vermek için negatif girişli ? operatörü kullanın 0->n:

{(0-x)?1+x} / solution
{         } / lambda expression
         x  / implicit input
       1+   / add one
      ?     / rand
 (0-x)      / negate x, 'dont put item back in the bag'

TI-83 BASIC, 5 bayt (sıkıcı)

randIntNoRep(0,Ans

Evet, bir yerleşik. randIntNoRep(iki baytlık bir simgedir ve Ansbir bayttır.

Daha eğlenceli, 34 bayt:

Ans→N
seq(X,X,0,N→L₁
rand(N+1→L₂
SortA(L₂,L₁
L₁

Doğrudan tibasicdev . Muhtemelen golf oynayabilir, ama henüz bir şey bulamadım.

Bu ne yapar: İkinci arg öğelerini ( L₁burada) karşılık gelen öğelerle aynı şekilde hareket ettiren rastgele bir dizi sıralar .

JavaScript (ES6), 51 bayt

n=>[...Array(n+1).keys()].sort(_=>.5-Math.random())

Aseto , 15 14 16 bayt

@lXp
Y!`n
zi&
0r

Yığına sıfıra basın, bir tamsayı okuyun, bir aralık oluşturun ve karıştırın:

Y
zi
0r

Bir yakalama işareti, 0 için test uzunluğu ve (bu durumda) çıkış ayarlayın:

@lX
 !`

Else değeri, yeni bir satır yazdırın ve uzunluk testine geri dönün:

   p
   n
  &

(Soruyu yanlış okuduğumu ve 0-n yerine 1-n arasında bir aralık oluşturduğumu fark ettiğim için kodu değiştirmek zorunda kaldım.)

Git , 92 bayt

Çoğunlukla PRNG'yi tohumlama ihtiyacını kaybediyor.

import(."fmt";."math/rand";."time")
func f(n int){Seed(Now().UnixNano());Println(Perm(n+1))}

Çevrimiçi deneyin!

Ruby, 20 bayt

->n{[*0..n].shuffle}

8 , 42 36 34 bayt

kod

>r [] ' a:push 0 r> loop a:shuffle

SED (Yığın Etkisi Şeması): n -- a

Kullanım ve örnek

ok> 5 >r [] ' a:push 0 r> loop a:shuffle .
[2,5,0,3,1,4]

Javascript (ES6), 68 bayt

n=>[...Array(n+1)].map((n,i)=>[Math.random(),i]).sort().map(n=>n[1])

Bir dizi form oluşturur

[[Math.random(), 0],
 [Math.random(), 1],
 [Math.random(), 2],...]

Sonra sıralar ve yeni siparişteki son öğeleri döndürür

J, 11 Bayt

(?@!A.i.)>:

Açıklama:

         >:   | Increment
(?@!A.i.)     | Fork, (f g h) n is evaluated as (f n) g (h n)
      i.      | Integers in range [0,n) inclusive
 ?@!          | Random integer in the range [0, n!)
    A.        | Permute right argument according to left

Örnekler:

    0 A. i.>:5
0 1 2 3 4 5
    1 A. i.>:5
0 1 2 3 5 4
    (?@!A.i.)>: 5
2 3 5 1 0 4
    (?@!A.i.)>: 5
0 3 5 1 2 4

Tcl , 90 bayt

proc R n {lsort -c {try expr\ rand()>.5 on 9} [if [incr n -1]+2 {concat [R $n] [incr n]}]}

Çevrimiçi deneyin!

proc R n {proc f a\ b {expr rand()>.5}
set i -1
while \$i<$n {lappend L [incr i]}
lsort -c f $L}

Çevrimiçi deneyin!