Odpowiadałem tutaj na jedno wyzwanie i to zadanie było częścią wyzwania. Mam 73 bajtowe rozwiązanie w javascript. Ale myślę, że to za dużo na prostą rzecz.

Wyzwanie

Jako dane wejściowe podano dwie liczby całkowite:

• N długość oczekiwanej tablicy
• R zakres interwału zaczyna się od jednego: 1..R nie0..R-1

Wyprowadzaj w każdym uruchomieniu programu / funkcji jedną inną tablicę długości N z wartościami 1..Rw taki sposób, że żadna wartość nie występuje więcej niż jeden raz.

Musisz użyć R-value w swoim kodzie.

Ograniczenia

Możesz założyć: 2 <= N <= R .

Naprawdę chciałbym zobaczyć rozwiązanie javascript krótsze niż moje 73 bajty.

Ale oczywiście jest otwarty na wszystkie języki!

Jeśli twój język nie może zwrócić tablicy, możesz wydrukować wszystkie liczby;)

Dyalog APL, 1 bajt

?

Po prostu wbudowany. Wypróbuj tutaj .

JavaScript (ES6), 68 66 bajtów

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

Wywoływany jako F(N)(R)(), gdzie Fjest przypisanie funkcji i N/R są wartościami.

Prosiłeś o mniej niż 73 bajty w Js;)

EDYCJA: Odpowiedź @ C5H8NNaO4 działa w ramach faktu, że reguły nie określają wartości, muszą być jednolite w poprzek 1..R. Biorąc to pod uwagę, oto wersja działa w 63 bajtach (nazywana jako F(R)(N)):

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

Oktawa, 22 19 9 bajtów

@randperm

randperm(r,n)robi dokładnie to, co jest wymagane. Zauważ, że to nie działa (przynajmniej nie w starszych wersjach) w Matlabie.

TI-84 BASIC OS 4.0, 12 bajtów

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

TI-84 + CSE (2013) i CE (2015) są zasadniczo tym samym ograniczonym dialektem BASIC co TI-84 +, ale jest kilka nowych funkcji. Jednym z nich jest trzeci argument randIntNoRep.

MATL , 2 bajty

Zr

Dane wejściowe to: najpierw R, a następnie N.

Wypróbuj online!

Wyjaśnienie

Funkcja Zrpobiera dwa dane wejściowe (w tym przypadku domyślnie) i wykonuje losowe próbkowanie bez zamiany. Pierwsze dane wejściowe Rokreślają, że populacja jest [1,2,...,R]; a drugie dane wejściowe Nwskazują liczbę próbek do pobrania z populacji.

J, 4 3 bajty

Jeden bajt zapisany dzięki Zgarb! ( _{Przekreślone cztery to wciąż zwykłe cztery: D} )

1+?

zadzwoń jak N (1+?) Rnp 3 (1+?) 10. Korzysta z operatora „Roll” i robi dokładnie to, co opisano, z wyjątkiem sekcji 0...n-1. Gdybyśmy mogli to zrobić, odpowiedź miałaby 1 bajt,

?

Pyth, 6 bajtów

<.SSQE

Wypróbuj tutaj!

Zasięg występuje w pierwszej linii, a długość w drugiej.

Wyjaśnienie

<.SSQE # Q = zakres, E = długość

   SQ # generuje zakres 1 ... Q
 .S # przetasuj listę
<E # weź pierwsze elementy E.

Niekonkurencyjna 5-bajtowa wersja

Ostatni dodatek do Pytha dodaje niejawne Qs na końcu programu, jeśli to konieczne. Możemy użyć tego tutaj poprzez odwrócenie formatu wejściowego, aby najpierw była długość, a potem zakres.

<.SSE

Wypróbuj tutaj!

Oto Ezakres, który zamieniamy w listę opartą na 1 S, tasujemy ją .Si bierzemy pierwsze Qelementy <. <oczekuje liczby całkowitej, która jest domyślnie dodana do znaku Q.

Reng v.2.1, 140 103 98 97 bajtów

Powinno to również działać we wcześniejszych wersjach.

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

Możesz spróbować tutaj! Dane wejściowe to maximum length, takie jak 10 3.

Jestem z tego bardzo dumny, nawet nie wiesz. Jeśli ktoś pobije mnie odpowiedzią Java, to sprawi, że mój dzień. Jeśli pobiję odpowiedź w Javie, pomyśl również o moim dniu.

Wyjaśnię to później, kiedy wyzdrowieję. Ogólnie jednak:

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

To generuje liczby losowe. Druga część sprawdza, czy są duplikaty, a jeśli tak, proces jest powtarzany. W przeciwnym razie wyniki są drukowane, a spacje łączą się z wynikami.

Oto kilka przykładów:

CJam, 8 bajtów

{,:)mr<}

Wypróbuj tutaj!

Jest to nienazwany blok, który oczekuje zakresu na górze stosu i długości na dole i pozostawia listę na stosie.

Wyjaśnienie

, zakres oparty na e # 0
:) e # inkrement każdy element listy, więc jest oparty na 1
mr e # przetasuj listę
<e # weź pierwszych n elementów

Common Lisp, 90

^{52 tylko dla wyrażenia}

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

Nie golfił

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

Podobnie jak inne odpowiedzi, jeśli nie liczę use-package i lambda , pozostałe wyrażenie to (coerce(subseq(shuffle(iota R :start 1))0 N)'vector)52 bajty.

Ruby, 27 23 bajtów

Funkcja anonimowa, dość krótka i słodka.

-4 bajty z @manatwork

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

𝔼𝕊𝕄𝕚𝕟, 10 znaków / 13 bajtów

Ѩŝ⩤⁽1í)ą-î

Try it here (Firefox only).

Wyjaśnienie

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

Bash + coreutils, 16

Myślę, że to jest oczywiste:

seq $2|shuf -n$1

Dane wejściowe Ni Rparametry wiersza polecenia.

Lub, jak wskazuje @rici, dla tego samego wyniku:

shuf -n$1 -i1-$2

Ideone.

PowerShell v2 +, 30 bajtów

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

Staje wejście $ni $rkonstruuje zakres 1..$r, że do rury Get-Randomz -Count z $n, który wybierze $nunikalne elementy z tego zakresu. Dane wyjściowe są pozostawiane w potoku jako niejawna tablica.

Poważnie, 5 bajtów

,,R╨J

Wypróbuj online!

Wyjaśnienie:

,,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 bajtów

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

Anonimowa funkcja zajmująca N najpierw, a R drugą.

Perl 6, 32 bajty

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

Python 3.5 - 54 53 bajty:

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

Korzysta z sample()funkcji modułu losowego, aby zwrócić tablicę o długości „a” składającej się z losowych, unikalnych elementów w zakresie 1 => c.

D, 29 bajtów (tylko wyrażenie)

Zakładając, że std.losowy i std.range zostały zaimportowane i że n i r są zdefiniowane jako zmienne, program można rozwiązać w jednym wyrażeniu:

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)

Podobnie jak w @ Mwr247 za odpowiedź , można nazwać go F(R)(N), Fbędąc wyrazem funkcji

Mathcad, 67 „bajtów”

tworzy wektor kolumny kolejnych liczb całkowitych z zakresu 1..R, łączy go z wektorem kolumny o długości R (jednolitych) liczb losowych, sortuje wynikową macierz Rx2 w kolumnie liczb losowych, a następnie wyodrębnia pierwsze n liczb z losowa kolumna liczb całkowitych.

Python, 56 (oczywisty sposób)

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

Perl 5, 51 43 bajtów

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

Całkiem proste anonimowe podwodne, które generuje tablicę od 1 do R, a następnie dzieli z niej N losowych elementów w celu zwrócenia. Zadzwoń z ->(N, R).

TI-84 BASIC, 21 bajtów

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