나는 여기서 하나의 도전에 대답하고 있었고이 과제는 도전의 일부였습니다. 자바 스크립트에 73 바이트 솔루션이 있습니다. 그러나 나는 그것이 단순한 것을하기에는 너무 많다고 생각합니다.

도전

두 개의 정수를 입력으로 제공합니다.

• N 예상되는 배열의 길이
• R: 간격의 하나부터 범위입니다 1..R,하지0..R-1

프로그램 / 함수의 각 실행 에서 하나의 값이 두 번 이상 발생하지 않는 방식으로 N값을 갖는 하나의 다른 길이의 배열을 출력 1..R합니다.

R-value코드에서 사용해야합니다 .

제한 사항

다음을 가정 할 수 있습니다 2 <= N <= R..

실제로 73 바이트보다 짧은 자바 스크립트 솔루션을보고 싶습니다.

물론 모든 언어에 개방되어 있습니다!

언어가 배열을 반환 할 수 없으면 모든 숫자를 인쇄 할 수 있습니다.)

Dyalog APL, 1 바이트

?

그냥 내장되어 있습니다. 여기서 사용해보십시오 .

자바 스크립트 (ES6), 68 66 바이트

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

로 호출되며 F(N)(R)(), 여기서 F함수 할당 은 N/ R이며 값은 / 입니다.

Js에서 73 바이트보다 짧은 것을 요청했습니다.;)

편집 : @ C5H8NNaO4의 대답은 규칙이 값을 지정하지 않는 사실에서 작동합니다 1..R. 이를 감안할 때 다음은 63 바이트 ( F(R)(N)) 로 작동하는 버전입니다 .

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

옥타브, 22 19 9 바이트

@randperm

randperm(r,n)요청한 내용을 정확하게 수행합니다. Matlab에서는 (이전 버전에서는 작동하지 않습니다.)

TI-84 기본 OS 4.0, 12 바이트

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

TI-84 + CSE (2013) 및 CE (2015)는 기본적으로 TI-84 +와 동일한 제한된 기본 방언이지만 몇 가지 새로운 기능이 있습니다. 그중 하나가 randIntNoRep의 세 번째 주장입니다.

MATL , 2 바이트

Zr

입력은 다음과 같습니다 첫째 R, 다음 N.

온라인으로 사용해보십시오!

설명

이 함수 Zr는 두 개의 입력 (이 경우에는 암시 적으로)을 취하고 교체없이 무작위 샘플링을 수행합니다. 첫 번째 입력 인 R은 모집단이 [1,2,...,R]; 두 번째 입력 N은 모집단에서 채취 할 샘플 수를 나타냅니다.

J, 4 3 바이트

Zgarb 덕분에 1 바이트가 절약되었습니다! ( _{4를 넘어서도 여전히 일반 4 : D} )

1+?

같은 전화 N (1+?) R, 예 3 (1+?) 10. 이것은 "롤"연산자를 사용하며 아래를 제외하고 설명 된대로 정확하게 수행합니다 0...n-1. 우리가 이것을 할 수 있다면 대답은 1 바이트가 될 것입니다.

?

Pyth, 6 바이트

<.SSQE

여기 사용해보십시오!

범위는 첫 번째 줄에 있고 길이는 두 번째 줄에 있습니다.

설명

<.SSQE # Q = 범위, E = 길이

   SQ # 범위 1 ... Q 생성
 .S # 목록 셔플
<E # 첫 번째 E 요소를 가져옵니다

비경쟁 5 바이트 버전

Pyth에 마지막으로 추가 Q하면 필요한 경우 프로그램 끝에 암시 적을 추가 합니다. 입력 형식을 반대로하여 여기에서 사용할 수 있으므로 길이가 먼저오고 그 다음에 범위가옵니다.

<.SSE

여기 사용해보십시오!

E범위는 다음과 같이 1 기반 목록으로 바꾸고 S셔플 .S하여 첫 번째 Q요소를 사용 <합니다. <으로 암시 적으로 추가 된 정수를 예상합니다 Q.

Reng의 V.2.1, 140 (103) 98 97 바이트

이것은 이전 버전에서도 작동합니다.

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

여기서 시도해보십시오! 입력은입니다 maximum length(예 :) 10 3.

나는 이것을 자랑스럽게 생각합니다. 당신도 몰라요. 누군가 Java 답변으로 나를 이길 경우, 그것은 내 하루를 만들 것입니다. Java 답변을 이길 경우 내 하루도 고려하십시오.

일단 복구하면 나중에 자세히 설명하겠습니다. 그러나 일반적으로 :

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

이것은 난수를 생성합니다. 다른 부분은 중복이 있는지 확인하고 존재하는 경우 프로세스가 반복됩니다. 그렇지 않으면 결과가 결합되어 결과가 결합됩니다.

여기 몇 가지 예가 있어요.

CJam, 8 바이트

{,:)mr<}

여기 사용해보십시오!

이것은 이름이 지정되지 않은 블록으로 스택 상단의 범위와 하단의 길이를 예상하고 스택에 목록을 남깁니다.

설명

, e # 0 기반 범위
:) e #은 목록의 각 요소를 1부터 시작하도록합니다.
미스터 e #는 목록을 셔플
<e #는 첫 n 개의 요소를 취합니다

커먼 리스프, 90

^{표현 만 52}

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

언 골프

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

다른 답변과 마찬가지로 use-package 및 lambda를 계산하지 않으면 나머지 표현식은 (coerce(subseq(shuffle(iota R :start 1))0 N)'vector)52 바이트입니다.

Ruby, 27 23 bytes

Anonymous function, reasonably short and sweet.

-4 bytes from @manatwork

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

𝔼𝕊𝕄𝕚𝕟, 10 chars / 13 bytes

Ѩŝ⩤⁽1í)ą-î

Try it here (Firefox only).

Explanation

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

Bash + coreutils, 16

I think this is self-explanatory:

seq $2|shuf -n$1

Input N and R as command-line parameters.

Or as @rici points out, for the same score:

shuf -n$1 -i1-$2

Ideone.

PowerShell v2+, 30 bytes

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

Takes input $n and $r, constructs a range 1..$r, pipes that to Get-Random with a -Count of $n, which will select $n unique elements from the range. Output is left on the pipeline as an implicit array.

Seriously, 5 bytes

,,R╨J

Try it online!

Explanation:

,,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 bytes

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

An anonymous function taking N first and R second.

Perl 6, 32 bytes

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

Python 3.5 - 54 53 bytes:

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

This uses the random module's sample() function to return an array with length "a" consisting of random, unique elements in the range 1 => c.

D, 29 bytes (expression only)

Assuming that std.random and std.range have been imported and that n and r are defined as variables, the program can be solved in the single expression:

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)

Like in @Mwr247's answer, you can call it with F(R)(N), F being the function expression

Mathcad, 67 "bytes"

creates a column vector of consecutive integers in range 1..R, joins it to a column vector of length R of (uniform) random numbers, sorts the resulting Rx2 matrix on the random number column, and then extracts the first n numbers from the randomized column of integers.

Python, 56 (the obvious way)

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

Perl 5, 51 43 bytes

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

Pretty straightforward anonymous sub that generates an array from 1 to R and then splices N random elements from it to return. Call with ->(N, R).

TI-84 BASIC, 21 bytes

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