Saya menjawab satu tantangan di sini dan tugas ini adalah bagian dari tantangan. Saya punya solusi 73 byte dalam javascript. Tapi saya pikir itu terlalu banyak untuk hal yang sederhana.

Tantangan

Diberikan sebagai input dua bilangan bulat:

• N panjang array yang diharapkan
• Rrentang interval dimulai dari satu:, 1..Rtidak0..R-1

Output dalam setiap menjalankan program / fungsi Anda satu array panjang yang berbeda Ndengan nilai-nilai 1..Rdi antara sedemikian rupa sehingga tidak ada nilai yang muncul lebih dari sekali.

Anda harus menggunakan R-valuekode Anda.

Batasan

Anda dapat mengasumsikan: 2 <= N <= R.

Saya benar-benar ingin melihat solusi javascript lebih pendek dari milik saya 73 byte.

Tapi tentu saja, ini terbuka untuk semua bahasa!

Jika bahasa Anda tidak dapat mengembalikan array, Anda dapat mencetak semua angka;)

Dyalog APL, 1 byte

?

Hanya builtin. Coba di sini .

JavaScript (ES6), 68 66 byte

n=>r=>G=(s=new Set)=>s.size<n?G(s.add(Math.random()*r+1|0)):[...s]

Disebut sebagai F(N)(R)(), di mana Fpenugasan fungsi, dan N/ Radalah nilainya.

Anda meminta lebih pendek dari 73 byte dalam Js;)

EDIT: Jawaban oleh @ C5H8NNaO4 bekerja dalam kenyataan bahwa aturan tidak menentukan nilai harus seragam 1..R. Mengingat, inilah versi yang berfungsi dalam 63 byte (disebut sebagai F(R)(N)):

r=>G=(n,s=[])=>n--?G((s[n]=n+1,n),s):s.sort(a=>new Date/a%1-.5)

Oktaf, 22 19 9 byte

@randperm

randperm(r,n)tidak persis apa yang diminta. Perhatikan bahwa ini tidak berfungsi (setidaknya tidak dalam versi yang lebih lama) di Matlab.

TI-84 BASIC OS 4.0, 12 byte

Prompt N,R:randIntNoRep(1,R,N

TI-84 + CSE (2013) dan CE (2015) pada dasarnya adalah dialek BASIC terbatas yang sama dengan TI-84 +, tetapi ada beberapa fitur baru. Salah satunya adalah argumen ketiga randIntNoRep.

MATL , 2 byte

Zr

Inputnya adalah: pertama R, lalu N.

Cobalah online!

Penjelasan

Fungsi ini Zrmengambil dua input (tersirat dalam kasus ini) dan melakukan pengambilan sampel acak tanpa penggantian. Input pertama R,, menetapkan bahwa populasi adalah [1,2,...,R]; dan input kedua N,, menunjukkan jumlah sampel yang akan diambil dari populasi.

J, 4 3 byte

Satu byte disimpan berkat Zgarb! ( _{Dicoret empat masih empat biasa: D} )

1+?

panggilan seperti N (1+?) R, misalnya 3 (1+?) 10,. Ini menggunakan operator "Roll", dan melakukan persis seperti yang dijelaskan, kecuali di bawah 0...n-1. Jika kita diizinkan untuk melakukan ini, maka jawabannya adalah 1 byte,

?

Pyth, 6 byte

<.SSQE

Coba di sini!

Rentang muncul di baris pertama dan panjang di baris kedua.

Penjelasan

<.SSQE # Q = rentang, E = panjang

   SQ # menghasilkan kisaran 1 ... Q
 .S # mengacak daftar
<E # ambil elemen E pertama

Versi 5-byte yang tidak bersaing

Penambahan terbaru ke Pyth menambahkan implisit Qdi akhir program jika diperlukan. Kita dapat menggunakan ini di sini dengan membalikkan format input, sehingga panjangnya lebih dulu dan kemudian jangkauan.

<.SSE

Coba di sini!

Ini Eadalah kisaran, yang kita ubah menjadi daftar berbasis 1 S, kocok .Sdan ambil Qelemen pertama <. <mengharapkan bilangan bulat yang secara implisit ditambahkan dengan a Q.

Reng v.2.1, 140 103 98 97 byte

Ini juga bisa digunakan di versi sebelumnya.

v      v      $/$'l#y0#z>(:)):(ez+#z zt>a$;!
>i#ci#x>cu1+lxetv    j21\!q   yy#-1y($/^
>n?~v
^oW <

Anda bisa mencobanya di sini! Masukan maximum length, seperti 10 3.

Saya sangat bangga dengan hal ini, Anda bahkan tidak tahu. Jika seseorang mengalahkan saya dengan jawaban Java, itu akan membuat saya senang. Jika saya mengalahkan jawaban Java, pertimbangkan hari saya juga.

Saya akan menjelaskannya nanti, setelah saya sembuh. Namun secara umum:

v         v      $/$r$
>i#bbi1+#x>:u1+lxet

Ini menghasilkan angka acak. Bagian lain memeriksa apakah ada duplikat, dan, jika ada, proses diulang. Selain itu, hasilnya akan dicetak, dengan spasi yang menyatukan hasilnya.

Berikut ini beberapa contohnya:

CJam, 8 byte

{,:)mr<}

Coba di sini!

Ini adalah blok tanpa nama yang mengharapkan kisaran di atas tumpukan dan panjang di bagian bawah dan meninggalkan daftar di tumpukan.

Penjelasan

, rentang berbasis # 0
:) e # menambah setiap elemen dari daftar jadi berbasis 1
mr e # mengacak daftar
<e # ambil n elemen pertama

Common Lisp, 90

^{52 hanya untuk ekspresi}

(use-package :alexandria)(lambda(R N)(coerce(subseq(shuffle(iota R :start 1))0 N)'vector))

Tidak disatukan

;; Well known library
(use-package :alexandria)

(lambda(R N)
  (coerce                   ; make a vector from a list 
    (subseq                 ; take the sublist from 0 to N
      (shuffle              ; shuffle a list
        (iota R :start 1))  ; build a list from 1 to R
    0 N)
    'vector))

Seperti jawaban lain, jika saya tidak menghitung paket-penggunaan dan lambda , ekspresi yang tersisa adalah (coerce(subseq(shuffle(iota R :start 1))0 N)'vector), untuk 52 byte.

Ruby, 27 23 byte

Fungsi anonim, cukup pendek dan manis.

-4 byte dari @manatwork

->n,r{[*1..r].sample n}

𝔼𝕊𝕄𝕚𝕟, 10 karakter / 13 byte

Ѩŝ⩤⁽1í)ą-î

Try it here (Firefox only).

Penjelasan

           // implicit: î=input1, í=input2
  ⩤⁽1í)    // Inclusive range from 1 to í
Ѩŝ         // Shuffle resulting range
       ą-î // Get last îth items

Bash + coreutils, 16

Saya pikir ini cukup jelas:

seq $2|shuf -n$1

Input Ndan Rsebagai parameter baris perintah.

Atau seperti yang ditunjukkan @rici, untuk skor yang sama:

shuf -n$1 -i1-$2

Ideone.

PowerShell v2 +, 30 byte

param($n,$r)1..$r|Random -c $n

Mengambil input $ndan $r, membangun sebuah jangkauan 1..$r, menyalurkannya ke Get-Randomdengan -Count of $n, yang akan memilih $nelemen unik dari kisaran tersebut. Output dibiarkan pada pipa sebagai array implisit.

Serius, 5 byte

,,R╨J

Cobalah online!

Penjelasan:

,,R╨J
,,R    push N, range(1, R+1)
   ╨   push a list containing all N-length permutations of range(1, R+1)
    J  select a random element from the list

Clojure, 38 byte

#(take %1(shuffle(map inc(range %2))))

Fungsi anonim mengambil N pertama dan R kedua.

Perl 6, 32 byte

{(^$^a).permutations.pick[^$^b]}

Python 3.5 - 54 53 byte:

from random import*;lambda a,c:sample(range(1,c+1),a)

Ini menggunakan fungsi modul acak sample()untuk mengembalikan array dengan panjang "a" yang terdiri dari elemen unik dan acak dalam rentang tersebut 1 => c.

D, 29 byte (hanya ekspresi)

Dengan asumsi std.random dan std.range telah diimpor dan bahwa n dan r didefinisikan sebagai variabel, program dapat diselesaikan dalam ekspresi tunggal:

iota(1,r).randomCover.take(n)

ES6, 72

r=>n=>[...Array(-~r).keys()].sort(a=>new Date/a%1-.5).filter(a=>a&&n-->0)

Seperti pada jawaban @ Mwr247 , Anda dapat memanggilnya dengan F(R)(N), Fsebagai ekspresi fungsi

Mathcad, 67 "byte"

membuat vektor kolom bilangan bulat berturut-turut dalam kisaran 1..R, bergabung ke vektor kolom panjang R dari nomor acak (seragam), mengurutkan matriks Rx2 yang dihasilkan pada kolom angka acak, dan kemudian mengekstraksi angka n pertama dari kolom bilangan bulat acak.

Python, 56 (cara yang jelas)

lambda N,R:__import__('random').sample(range(1,R+1),k=N)

Perl 5, 51 43 byte

sub{@a=1..pop;map{splice@a,rand@a,1}1..pop}

Cukup mudah sub anonim yang menghasilkan array dari 1 ke R dan kemudian menyambungkan elemen acak N dari itu untuk kembali. Panggil dengan ->(N, R).

TI-84 BASIC, 21 byte

Prompt R,N:randIntNoRep(1,R→A:N→dim(ʟA:ʟA