คุณต้องกรอกข้อมูลในอาร์เรย์ด้วยตัวเลขทุกตัวจาก0-nรวม ไม่ควรใช้หมายเลขซ้ำ อย่างไรก็ตามพวกเขาจะต้องอยู่ในลำดับสุ่ม

กฎระเบียบ

ทุกมาตรฐานรหัสกอล์ฟกฎและช่องโหว่มาตรฐานเป็นสิ่งต้องห้าม

อาร์เรย์ต้องถูกสร้างขึ้นแบบสุ่มหลอก ทุกการเปลี่ยนแปลงที่เป็นไปได้ควรมีความน่าจะเป็นที่เท่ากัน

อินพุต

n ในทางใดก็ตามที่ได้รับอนุญาตในโพสต์ I / O บนเมตา

เอาท์พุต

อาร์เรย์ของตัวเลขมีสัญญาณรบกวนจาก0-nรวม

Perl 6 , 14 ไบต์

{pick *,0..$_}

ลองมัน

ขยาย:

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

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

05AB1E , 3 ไบต์

Ý.r

ลองออนไลน์!

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

Pyth, 3 ไบต์

.Sh

สาธิต

.Sกำลังสับเปลี่ยน มันโดยปริยายดุจจำนวนเต็มป้อนข้อมูลในช่วงn เป็นและนำเข้าโดยปริยาย[0, 1, ..., n-1]h+1

R , 16 ไบต์

sample(0:scan())

stdinอ่านจาก sampleสุ่มตัวอย่างจากเวกเตอร์อินพุตคืนค่าลำดับสุ่ม (หลอก)

ลองออนไลน์!

เยลลี่ 3 ไบต์

0rẊ

ลองออนไลน์!

Explanaion:

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

โซลูชันสำรอง 3 ไบต์

‘ḶẊ

คำอธิบาย:

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

ลองออนไลน์!

Python 2 , 51 ไบต์

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

ลองออนไลน์!

มีrandom.shuffle()แต่มันจะแก้ไขข้อโต้แย้งในสถานที่แทนที่จะส่งกลับ ...

PHP, 42 ไบต์

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

ลองออนไลน์!

Bash, 18 11 ไบต์

shuf -i0-$1

ลองออนไลน์!

Mathematica ขนาด 24 ไบต์

RandomSample@Range[0,#]&

MATL , 4 ไบต์

QZ@q

ลองออนไลน์!

คำอธิบาย

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

Brachylog 2 ไบต์

⟦ṣ

ลองออนไลน์!

คำอธิบาย

⟦     Range from 0 to Input
 ṣ    Shuffle

Japt , 4 ไบต์

ò öx

ลองออนไลน์

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

C #, 76 ไบต์

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

สิ่งนี้คืนค่า IOrderedEnumerable ฉันหวังว่าไม่เป็นไรหรืออื่นฉันต้องการไบต์เพิ่มอีกสองสามไบต์สำหรับ. ToArray ()

CJam , 7 6 ไบต์

1 ไบต์ลบออกขอบคุณที่เอริก Outgolfer

{),mr}

นี่คือบล็อกที่ไม่ระบุชื่อ (ฟังก์ชัน) ที่ใช้จำนวนเต็มจากสแต็กและแทนที่ด้วยผลลัพธ์ ลองออนไลน์!

คำอธิบาย

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

Java 8, 114 111 97 ไบต์

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

-3 ไบต์และข้อผิดพลาดคงต้องขอบคุณ@ OlivierGrégoire
-4 ไบต์ขอบคุณที่@Jakob
-10 .toArray()ไบต์โดยการเอา

คำอธิบาย:

ลองที่นี่

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

โอห์ม 2 ไบต์

#╟

ลองออนไลน์!

Pyth, 4 ไบต์

.S}0

ลองที่นี่!

C, 75 ไบต์

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

ฟังก์ชั่นวนซ้ำที่เริ่มต้นจากจุดสิ้นสุดของอาร์เรย์ทางและสลับกับองค์ประกอบแบบสุ่มก่อนที่จะหมด

ถ่าน 33 ไบต์

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

ลองออนไลน์!การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด

เห็นได้ชัดว่าใช้เวลา 17 ไบต์ในการลบองค์ประกอบออกจากรายการใน Charcoal

แก้ไข: วันนี้ใช้เวลาเพียงสามไบต์โดยสมมติว่าคุณต้องการลบรายการทั้งหมดที่เกิดขึ้นจากรายการ บวกกับการเปลี่ยนแปลงอื่น ๆ ของ Charcoal ตัดคำตอบลงเหลือ 21 ไบต์: ลองออนไลน์!

APL (Dyalog) 5 ไบต์

?⍨1+⊢

ลองออนไลน์!

ถือว่า⎕IO←0ซึ่งเป็นค่าเริ่มต้นในหลาย ๆ เครื่อง

คำอธิบาย

⊢ อาร์กิวเมนต์ที่ถูกต้อง

1+ เพิ่ม 1 ลงไป

?⍨สร้างตัวเลข 0 .. 1+⊢-1 และสุ่มจัดการพวกมันในอาเรย์เพื่อไม่ให้ซ้ำสองตัวเลข

q / kdb +, 11 ไบต์

วิธีการแก้:

{(0-x)?1+x}

ตัวอย่าง:

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

คำอธิบาย:

ใช้? โอเปอเรเตอร์ที่มีอินพุตลบเพื่อให้รายการเต็มรูปแบบ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 พื้นฐาน 5 ไบต์ (น่าเบื่อ)

randIntNoRep(0,Ans

อ๋อบิวอิน randIntNoRep(เป็นโทเค็นสองไบต์และAnsเป็นหนึ่งไบต์

สนุกมากขึ้น 34 ไบต์:

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

ตรงจากtibasicdev น่าจะเป็นสนามกอล์ฟ แต่ฉันยังไม่พบอะไรเลย

ให้ทำอะไร: เรียงลำดับอาร์เรย์แบบสุ่มย้ายองค์ประกอบของ ARG ที่สอง ( L₁ที่นี่) ในลักษณะเดียวกับองค์ประกอบที่สอดคล้องกัน

JavaScript (ES6), 51 ไบต์

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

Aceto , 15 14 16 ไบต์

@lXp
Y!`n
zi&
0r

กดศูนย์บนสแต็คอ่านจำนวนเต็มสร้างช่วงและสุ่ม:

Y
zi
0r

ตั้งค่า catch catch, test length สำหรับ 0 และ (ในกรณีนั้น) exit:

@lX
 !`

อื่นพิมพ์ค่าบรรทัดใหม่และข้ามกลับไปที่การทดสอบความยาว:

   p
   n
  &

(ฉันต้องเปลี่ยนรหัสเพราะฉันรู้ว่าฉันอ่านคำถามผิดและสร้างช่วงตั้งแต่ 1-n ไม่ใช่ 0-n)

ไป 92 ไบต์

ส่วนใหญ่สูญเสียความจำเป็นในการเพาะเมล็ด PRNG

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

ลองออนไลน์!

Ruby, 20 ไบต์

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

8th , 42 36 34 34 ไบต์

รหัส

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

SED (Stack Effect Diagram) คือ n -- a

การใช้งานและตัวอย่าง

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

Javascript (ES6), 68 ไบต์

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

สร้างอาร์เรย์ของฟอร์ม

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

จากนั้นเรียงลำดับและส่งคืนองค์ประกอบสุดท้ายในคำสั่งซื้อใหม่

J, 11 ไบต์

(?@!A.i.)>:

คำอธิบาย:

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

ตัวอย่าง:

    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 ไบต์

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

ลองออนไลน์!

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

ลองออนไลน์!