Saya membaca pertanyaan ini dan berpikir itu akan menjadi tantangan yang menyenangkan.

Tugas

Berikan input 0<n<10dengan angka acak

• tepatnya n digit
• yang pertama bukan 0
  • begitu f(n)>10**(n-1)-1
• digit berbeda

Kriteria menang

Ini adalah kode-golf sehingga kode terpendek menang.

Acak

Maksud saya merata secara acak. Jadi dari pandangan program, setiap angka yang mungkin memiliki peluang yang sama. Jika bahasa yang Anda gunakan memiliki penghasil angka acak yang aneh, tidak masalah untuk menggunakannya.

Contoh

Daftar nilai yang dipilih secara acak n=2adalah:

[10, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98]

Python 2 , 77 byte

from random import*
r=range(10)
while[1]>r:shuffle(r)
print`r`[1:input()*3:3]

Cobalah online!

Kocok daftar 10 digit hingga tidak dimulai dengan 0, lalu buat angka dengan nangka pertama yang tercantum.

Brachylog , 9 10 byte

{~lℕ₁≜≠}ᶠṛ

Cobalah online!

Seperti biasa untuk Brachylog, ini adalah pengiriman fungsi. TIO link di atas telah diberikan argumen command-line untuk membuat fungsi menjadi program penuh.

Saya harus menambahkan byte tambahan dari versi pertama ini, berubah ℕmenjadi ℕ₁, untuk melarang output 0 (sesuatu yang sekarang telah diklarifikasi).

Penjelasan

{~lℕ₁≜≠}ᶠṛ
{      }ᶠṛ  Pick a random value with these properties:
 ~l           it has length equal to the input;
   ℕ₁         it's a positive integer;
     ≜        it's a specific value (not a constraint);
      ≠       all its elements (digits in this case) are different.

Cukup tidak efisien, karena penerjemah menghasilkan daftar semua nilai yang mungkin dan kemudian mengambilnya secara acak (itulah ᶠṛartinya; Brachylog tidak memiliki opsi "pilih solusi acak" pada saat pertanyaan ini diajukan).

Beberapa komentar pada pelabelan di sini: jika ≜dihilangkan, bagian dalam kurung hanya menghasilkan satu nilai, kendala yang mewakili angka dengan properti yang kita inginkan; Oleh karena itu, memilih hasil acak memberi kita batasan, dan penerjemah mengeluarkan nilai absolut minimum yang memenuhi kendala (1, 10, 102, 1023, 10234, dll.), yang bukan yang kita inginkan. Karena itu kami harus memaksanya untuk membuat daftar melalui labelisasi eksplisit.

Sebagian besar implementasi Prolog yang saya lihat memiliki builtin untuk menemukan hasil acak yang cocok dengan kendala, tetapi biasanya tidak dengan probabilitas yang seragam; Brachylog tidak memilikinya, (ada yang ditambahkan dalam menanggapi tantangan ini, tapi jelas saya tidak bisa menggunakannya karena aturan celah). Jika ya, dan jika kebetulan memberikan probabilitas yang seragam pada masalah ini, program ini hanya akan ~lℕ₁≠diikuti oleh builtin itu, untuk kemungkinan panjang 6 byte.

Brachylog , 8 byte, bekerja sama dengan @Fatalize

~lℕ₁≠≜ᶠṛ

Cobalah online!

Ini adalah jenis trik tingkat rendah jenius yang hanya masuk akal dengan cara Prolog melakukan sesuatu, dan tidak masuk akal ketika dijelaskan secara matematis.

Seperti sebelumnya, ~lℕ₁≠membangun nilai yang menggambarkan kendala ("panjang sama dengan input, bilangan alami, semua elemen berbeda"). Kemudian ≜ᶠmenghasilkan semua nilai yang mungkin yang memenuhi kendala. Intinya di sini adalah bahwa dengan urutan evaluasi Brachylog, tidak ada pilihan aktual yang dibuat sampai ≜muncul, sehingga operasi "temukan semua solusi" tidak ᶠperlu berlaku apa pun selain operasi "nilai spesifik yang memenuhi kendala" ≜. Itu berarti tidak perlu bagi {…}untuk memilih ruang lingkupnya, menghemat 2 byte.

Jelly , 9 byte

⁵*ṖQL$€MX

Cobalah online! (tidak akan bekerja di TIO untuk n> 6 karena ketidakefisienan implementasi)

atau implementasi alternatif dari hal yang sama:

⁵*ṖQL$ÐṀX

Bagaimana?

Ini sangat licik, dan sangat tidak efisien! Jelly melakukan beberapa hal berguna secara implisit ketika atom mengharapkan daftar tetapi menerima bilangan bulat (ini adalah desain).
Kode ini menggunakan beberapa tindakan implisit yang berguna ini:

• Atom monadik Ṗ, "pop", ketika dipanggil dengan input integer secara implisit membuat rentang dari mana untuk pop, sehingga input dari n membuat pertama [1, 2, ..., n] , kemudian muncul, menghasilkan [1, 2 , ..., n-1] .

• Atom monadik Q, "de-duplikat" atau "unik", ketika dipanggil dengan input integer secara implisit membuat daftar desimal untuk menduplikat, jadi input dari n di mana:
  n = d _k-1 × 10 ^k-1 + d _k-2 × 10 ^k-2 + ... + d ₁ × 10 + d ₀
  pertama membuat
  [d _k-1 , d _k-2 , ..., d ₁ , d ₀ ]
  dan kemudian menghasilkan nilai unik dengan penampilan pertama.
  Jadi, misalnya, n = 5835518 akan menghasilkan [5, 8, 3, 1] .

Lebih lanjut, atom monadik M, "indeks elemen maksimal", mengembalikan indeks item maksimal dari daftar, ini menghemat dua byte dari alternatif pengujian kesetaraan yang jauh lebih jelas dengan input dan menemukan indeks kebenaran ⁵*ṖQL$€=⁸TX,, atau⁵*ṖðQL⁼ð€TX

⁵*ṖQL$€MX - Main link: n                       e.g. 2
⁵         - literal 10
 *        - exponentiate: 10^n                      100
  Ṗ       - pop (make range 1 to 10^n, then pop)    [1  ,2  ,...,21   ,22 ,23   ,...,97   ,98   ,99]
     $€   - last two links as a monad for €ach:
   Q      -   unique (makes a decimal list first)   [[1],[2],...,[2,1],[2],[2,3],...,[9,7],[9,8],[9]]
    L     -   length                                [1  ,1  ,...,2    ,1  ,2    ,...,2    ,2    ,1  ]
       M  - indexes of maximal elements             [        ...,21       ,23,   ...,97   ,98       ]
          -                                         - i.e. all n-digit numbers with n-distinct digits.
        X - pick a random element from that list

Ini semua sangat tidak efisien, baik dalam waktu maupun memori: pertama daftar 10 ⁿ bilangan bulat dibuat dan satu dibuang, kemudian untuk masing-masing ini daftar n bilangan bulat (bukan objek 4-bit atau enum) dibuat dan kemudian diduplikasi. De-duplikasi ini memiliki implementasi yang sepenuhnya berbasis daftar (tidak ada set, diurutkan-set, atau kamus yang terlibat di bawah-the-hood, setiap digit diperiksa untuk keberadaan dalam daftar yang akhirnya mendapatkan output).
Offline n = 7 menggunakan ~ 0.5GB dan membutuhkan ~ 25 detik, sementara n = 8 menggunakan ~ 4GB dan membutuhkan ~ 5 menit - Saya tidak pernah repot menjalankan n = 9 karena saya hanya memiliki ram 16GB (saya kira itu akan memakan waktu ~ 45 menit ).

Implementasi alternatif hanya menggunakan built-in ÐṀquick to filter-keep minimal (yang di sini hanya menambahkan sedikit overhead dalam manajemen untuk byte-count yang sama).

Jelly , 11 byte

9Xœ|⁵ḶẊ¤ḣ¹Ḍ

Cobalah online!

Bagaimana itu bekerja

9Xœ|⁵ḶẊ¤ḣ¹Ḍ  Main link. Argument: n

9            Set the return value to 9.
 X           Pick; pseudo-randomly select an integer from [1, ..., 9].
       ¤     Combine the three preceding links into a niladic chain.
    ⁵          Yield 10.
     Ḷ         Unlength; yield [0, ..., 9].
      Ẋ        Shuffle; pseudo-randomly select a permutation of [0, ..., 9].
  œ|         Multiset OR; prepend the selected integer to the selected permutation
             and remove the second occurrence of the first element.
         ¹   Identity; yield n.
        ḣ    Head; keep the first n digits of the permutation.
          Ḍ  Undecimal; convert from base 10 to integer.

JavaScript (ES6), 72 71 70 69 byte

f=(x,y="")=>x?!y.match(z=Math.random()*10|0)&&y|z?f(x-1,y+z):f(x,y):y

Ini adalah fungsi rekursif yang mengambil jumlah digit x . Parameter kedua y , awalnya diatur ke string kosong, melacak nomor ketika kita menghasilkan digit demi digit.

Pertama kita menghasilkan angka acak z dengan Math.random()*10|0. Sekarang, kami ingin memeriksa bahwa y tidak mengandung z , dan bahwa y dan z tidak keduanya 0 .

Kami dapat menghitung kondisi pertama dengan !y.match(z). y.match(z)mengembalikan array (selalu benar) jika y berisi z , null (falsy) sebaliknya; yang !mengkonversi ini menjadi boolean dan membalikkannya.

Kondisi kedua diperiksa dengan y|z. Meskipun y adalah string, JS secara implisit mengkonversinya menjadi integer saat menggunakan |. Ini adalah bilangan bulat positif jika y sudah berisi angka, 0 sebaliknya. Hasil akhirnya adalah y|zmengembalikan 0 jika y kosong dan z adalah 0 , atau bilangan bulat positif sebaliknya.

Jika kedua kondisi ini benar, maka kami menambahkan digit ke y , mengurangi x , dan memulai proses dari awal lagi. Kalau tidak, kita cukup kembali ke awal dan berharap digit acak berikutnya berfungsi. Ketika x mencapai 0 , kita cukup mengembalikan string kosong untuk mengakhiri rekursi.

Versi sebelumnya:

f=(x,y)=>x?~y>>(z=Math.random()*10|0)&1&&y|z?z+f(x-1,y|1<<z):f(x,y):""

Ini adalah fungsi rekursif yang mengambil jumlah digit. Parameter kedua yang awalnya tidak ditentukan, y , adalah tabel pencarian 10-bit yang memberitahu kita digit mana yang sudah kita miliki, disimpan dengan nyaman sebagai integer.

Pertama kita menghasilkan angka acak z dengan Math.random()*10|0. Sekarang, kita ingin memeriksa bahwa z 'th bit paling signifikan y tidak diatur, dan bahwa y dan z tidak baik 0 .

Kami dapat menghitung kondisi pertama dengan ~y>>z&1; balik y , pindahkan z bit ke kanan, dan ambil hanya bit yang paling tidak signifikan. Ini memberi 1 jika kita belum menghasilkan digit yang dimaksud, atau 0 sebaliknya.

Kondisi kedua pada awalnya cukup sulit untuk diketahui (saya mencoba menggunakan y/zpada awalnya untuk menghasilkan NaNjika keduanya 0), tetapi pada beberapa titik saya menyadari bahwa hanya y|zakan melakukan trik. Hasilnya adalah 0 iff baik y dan z adalah 0 ; bilangan bulat positif sebaliknya.

Jika kedua kondisi ini benar ( ~y>>z&1&&y|z), maka kami menghasilkan sisa bilangan dan ditambahkan dengan z . Sisa nomor dihasilkan dengan memanggil fungsi lagi dengan x-1dan y|1<<z( y , tetapi dengan bit pada indeks z diatur ke 1 ). Ketika x mencapai 0 , kita cukup mengembalikan string kosong untuk mengakhiri rekursi.

ClojureScript, 81 79 byte

#(let[a(subvec(shuffle(range 10))0 %)](if(=(a 0)0)(recur %)(int(apply str a))))

Ini adalah fungsi anonim, jadi Anda harus menggunakannya seperti ini:

(#(...) {arguments})

Tempat Anda mengganti {arguments}dengan argumen Anda.

Anda dapat mencoba kode di sini (ClojureScript REPL).

Terima kasih @cliffroottelah mencukur 2 byte!

Kode yang diperluas:

(defn random-digits [n]
  (let [num-vector
        (subvec
          (shuffle (range 10))
          0 n)]
    (if (= (num-vector 0) 0)
      (recur n)
      (int (apply str num-vector)))))

Penjelasan:

Saya akan pergi melalui baris satu per satu, menggunakan contoh input 8.

(defn random-digits [n] ...)

Cukup sederhana, ini mendefinisikan fungsi random-digitsdengan satu argumen, yang disebut n. Dalam jawaban saya, saya menggunakan fungsi anonim ( #(...)), untuk menyimpan byte.

(let [num-vector ...] ...)

Mari kita periksa di dalam let, dari dalam ke luar:

(shuffle (range 10))

Dalam ClojureScript (dan Clojure), (range n)mirip dengan Python range(n): ini memberi Anda daftar dengan setiap angka dari 0hingga n - 1( 9dalam hal ini).

shufflemengambil daftar, dan mengembalikan vektor (yang sedikit berbeda dari daftar) dengan semua elemennya dikocok. Jadi, menggunakan contoh kita, kita mendapatkan sesuatu seperti ini:

[1 0 8 3 6 7 9 2 4 5]

(subvec {see above} 0 n)

(subvec vector start end)mengambil vektor (hanya vektor), dan mengembalikan vektor yang memiliki semua elemen dari indeks startke end. Dalam hal ini, kami mengambil elemen dari 0elemen ke argumen yang diberikan random-digits. Jika kita menerapkan itu pada contoh kita, kita mendapatkan:

[1 0 8 3 6 7 9 2]

(if (= (num-vector 0) 0)
  (recur n)
  (int (apply str num-vector)))

ifPernyataan ini memeriksa apakah elemen pertama num-vectoradalah a 0.

Jika ya 0, maka kita memanggil fungsi lagi, dengan argumen n, menggunakan recur.

Jika tidak 0:

(int (apply str num-vector))

(apply function list)mengambil daftar, dan meludahkannya ke dalam fungsi sebagai argumen. Sebagai contoh:

(apply + [2 3 4])

Berubah menjadi:

(+ 2 3 4)

Yang sama dengan 9.

(str items)mengubah setiap item itemsmenjadi string, dan kemudian menggabungkannya. intmengubah apa pun menjadi bilangan bulat. Jadi jika kita menerapkan ini pada contoh kita, kita mendapatkan:

   (int (apply str [1 0 8 3 6 7 9 2]))
=> (int (str 1 0 8 3 6 7 9 2))
=> (int "10836792")
=> 10836792

Yang merupakan jawaban terakhir kami.

Python 2, 89 81 80 byte

from random import*
lambda n:choice([i for i in range(10**n)if`set(`i`)`[5*n:]])

Cobalah online

R, 45 Bytes

k=0
i=scan()
while(!k[1])k=sample(0:9)[1:i]
k

Utilitas Bash + GNU, 46

seq 1e$[$1-1] 1e$1|egrep -v '(.).*\1'|shuf -n1

Cobalah online .

Ini membutuhkan waktu lama untuk n yang lebih besar - sekitar 30 detik untuk n = 7, dan meningkat 10 kali untuk setiap kenaikan, jadi mungkin 8-9 jam untuk n = 10.

Java 7, 150 147 145 134 byte

String c(int n){String r="";for(int l,x;(l=r.length())<n;)if(l<1&(x=(int)(Math.random()*10))>0|(l>0&!r.contains(""+x)))r+=x;return r;}

-2 byte terima kasih kepada @TheLethalCoder

(lama) Penjelasan:

String c(int n){                           // Method with integer parameter and String return-type
  String r="";                             //  Result-String
  for(int l=0,x;l<n;l=r.length()){         //  Loop until the length of the result-String is equal to the parameter integer
    x=new java.util.Random().nextInt(10);  //   Random digit
    if((l<1&x>0)                           //   If the length is zero and the random digit is not zero
       |(l>0&!r.contains(""+x)))           //     or the length is at least 1, and the result-String does not contain this random digit yet
      r+=x;                                //    Append the random digit to the result-String
  }                                        //  End of for-loop
  return r;                                //  Return result-String
}                                          // End of method

Kode uji:

Coba di sini.

class M{
  String c(int n){String r="";for(int l,x;(l=r.length())<n;)if(l<1&(x=(int)(Math.random()*10))>0|(l>0&!r.contains(""+x)))r+=x;return r;}

  public static void main(String[] a){
    M m = new M();
    System.out.println(m.c(4));
    System.out.println(m.c(10));
  }
}

Contoh output:

7194
8672953041

Perl 6 , 44 byte

{(->{+[~] (^10).pick($_)}...*>9 x$_-1).tail}

Cobalah

Diperluas:

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

    ->{  # pointy block lambda with no parameters

      +                # turn the following into a numeric
      [~]              # concatenate the following

        (^10).pick($_) # grab $_ digits at random from 0..9
    }

    ...                # keep doing that until

    * > 9 x $_-1       # one of them is big enough

  ).tail # return the last one (only valid one)
}

PHP, 67 Bytes

Versi Online

Semua versi berdasarkan pengocokan angka 0-9

for($a=range(0,9);!$a[0];)shuffle($a);for(;$i<$argn;)echo$a[+$i++];

71 Bytes

for($s="0123456789";!$s[0];)$s=str_shuffle($s);echo substr($s,0,$argn);

73 Bytes

for($a=range(0,9);!$a[0];)shuffle($a);echo join(array_slice($a,0,$argn));

MATL , 15 byte

`4Y2GZr1)48=]8M

Cobalah di MATL Online!

Penjelasan

`        % Do...while
  4Y2    %   Push predefined literal '0123456789'
  G      %   Push input n
  Zr     %   Random sample of n unique characters from that string
  1)     %   Pick the first
  48=    %   Is it 48? This is the loop condition
]        % End. If top of the stack evaluates to true: next iteration
8M       % Push the latest random sample. Implicitly display

Jelly , 12 byte

9×!X+!Œ?’ḣƓḌ

Saat ini satu byte di belakang jawaban Jelly saya yang lain, tapi saya sangat suka yang ini.

Cobalah online!

Bagaimana itu bekerja

9×!X+!Œ?’ḣƓḌ  Main link. No arguments.

9             Set the argument and the return value to 9.
  !           Yield 9!
 ×            Compute 9 × 9!.
   X          Pick; pseudo-randomly select an integer j from [1, ..., 9 × 9!].
     !        Yield 9!
    +         Compute k := j + 9!.
              The result will belong to [9! + 1, 10!].
      Œ?      Get the permutation P of R := [1, ..., r], with minimal r, such that
              P is the lexicographically k-th permutation of R.
              Since k belongs to [9! + 1, 10!], r = 10 and this generates a per-
              mutation between [2,1,3,4,5,6,7,8,9,10] and [10,9,8,7,6,5,4,3,2,1].
        ’     Subtract 1 from all integers in P.
          Ɠ   Read an integer n from STDIN and yield it.
         ḣ    Head; keep the first n digits of the permutation.
           Ḍ  Undecimal; convert from base 10 to integer.

APL (Dyalog) , 27 19 17 byte

Membutuhkan ⎕IO←0yang default pada banyak sistem.

10⊥⊢↑{?⍨10}⍣{×⊃⍺}

Cobalah online!

Kocok digit hingga valid:

10⊥ decode dari basis-10 digit ke angka reguler,

⊢ kemudian

↑ elemen pertama dari

{... }⍣{... } mengulangi fungsinya ...
 ?⍨10 kocok sepuluh bilangan bulat positif pertama
hingga ...
 ⊃⍺ digit pertama dari upaya terakhir
 × adalah positif

Python 2 , 100 93 92 90 byte

Terima kasih kepada @ mbomb007 untuk mencukur 2 byte

from random import*
def f(n):k=randint(10**~-n,10**n-1);return(n==len(set(`k`)))*k or f(n)

Mencoba angka dalam yang diperlukan sampai ditemukan dengan angka unik. Saya berani bertaruh ada cara yang lebih bersih untuk melakukan ini, tetapi tidak ada yang terlintas dalam pikiran.

Pyth , 11 byte

jk<{+OS9.ST
jk<{+OS9.STQ implicit Q

       9     9
      S      [1,2,3,4,5,6,7,8,9]
     O       random element

          T  10
        .S   random permutation of [0,1,2,3,4,5,6,7,8,9]

    +        add the results from the previous two paragraphs together
   {         deduplicate
  <        Q first (input) elements
jk           join by empty string

Menggunakan algoritma yang sama dengan jawaban Dennis .

Cobalah online!

Perl, 48 byte

1until$_=1+int rand 10**$n-1,/.{$n}/&&!/(.).*\1/

Penjelasan:

Berulang-ulang menghasilkan bilangan bulat acak dari 1 hingga 10 ** $ n-1, menolaknya sampai ada salah satu dari panjang yang benar (jadi setidaknya 10 ** ($ n-1)) tanpa digit berulang.

Batch, 156 byte

@set/af=9,r=x=0
@for /l %%i in (1,1,%1)do @call:c
@echo %r%
@exit/b
:c
@set/a"d=9-%random%%%f,e=x>>d&1
@if %e%==1 goto c
@set/a"r=r*10+d,f=10,x|=1<<d

xmemelihara bitmask dari digit yang digunakan. fmenunjukkan jumlah digit yang tersedia (menghitung mundur dari 9). Digit acak dihasilkan hingga digit yang tidak digunakan ditemukan. n=10dapat didukung untuk 165 byte:

@set/af=9,r=x=0
@for /l %%i in (1,1,%1)do @call:c
@echo %r:~1%
@exit/b
:c
@set/a"d=9-%random%%%f,e=x>>d&1
@if %e%==1 goto c
@set r=%r%%d%
@set/a"f=10,x|=1<<d

( rmengandung angka nol di depan karena itu golfier.) Pendekatan sebelumnya untuk 165 byte khusus-digit pertama, dan juga bekerja dengan n=10(versi numerik sebenarnya mengambil 166 byte!):

@set/ar=%random%%%9+1,x=0
@for /l %%i in (2,1,%1)do @set/a"x|=1<<d"&call:c
@echo %r%
@exit/b
:c
@set/a"d=%random%%%10,e=x>>d&1
@if %e%==1 goto c
@set r=%r%%d%

Pendekatan asli untuk 170 byte juga bekerja untuk n=10:

@set/ar=%random%%%9+1
@for /l %%i in (2,1,%1)do @call:c
@echo %r%
@exit/b
:c
@set/ad=%random%%%10
@call set s=%%r:%d%=%%
@if not "%s%"=="%r%" goto c
@set r=%r%%d%

Menggunakan manipulasi string untuk mendeteksi digit duplikat.

Pesta , 66 byte

a=0;while [[ $a == 0* ]];do a=`shuf -i0-9 -n$1|xargs`;done;echo $a

Cobalah online!

Lurus ke depan, gunakan shuf, xargs digunakan untuk bergabung dengan garis dan terus mencoba sementara kombinasi dimulai dengan 0.

Tidak bisa mengalahkan 46 char dari jawaban lain tetapi dengan demikian cepat!

Pyth, 15 28 byte

=+YhO9VtQ#KOTI!hxYK=+YKB;jkY

Coba di sini

C #, 127 132 128 126 125 byte

n=>{var s="";for(int l,r;(l=s.Length)<n;)if((l<1&(r=new System.Random().Next(10))>0)|(l>0&!s.Contains(r+"")))s+=r;return s;};

Cobalah secara Online!

Meminjam ide dari jawaban @ KevinCruijssen untuk menginisialisasi acak r,, dalamif pernyataan untuk menyimpan 2 byte.

Cukup yakin ini bisa bermain golf lebih jauh tetapi saya tidak punya waktu saat ini.

Versi lama menggunakan whileloop:

n=>{var s="";while(s.Length<n){int r=new System.Random().Next(10);if(s.Length<1&r>0)s+=r;else if(!s.Contains(r+""))s+=r;}return s;};

C (gcc) , 123 122 100 95 104 103 99 97 byte

Yang ini menghasilkan angka acak yang sebenarnya

j;f(n){for(int i,k=n,s[10]={j=0};n;s[i+=i?0:k==n]=!s[i]?j+=i*pow(10,--n):1)i=rand()%10;return j;}

Cobalah online!

C (gcc) , 87 85 byte

Ini dia mencetak serangkaian angka.

f(n){for(int i,k=n,s[10]={0};n;s[i+=i?0:k==n]=!s[i]?--n,putchar(48+i):1)i=rand()%10;}

Cobalah online!

PHP, 65 63 byte

while(count(count_chars($x=rand(1,10**$argn),1))<$argn);echo$x;

menerima input dari STDIN; jalankan bersama-nR .

buat angka acak antara 1dan 10^Ninklusif;
ulangi sementara hitungan karakter yang berbeda adalah < N.

Mathematica 65 60 Bytes

0For[a=11,Max@DigitCount@a>1,a=RandomInteger[10^{#-1,#}]]+a&

Ini adalah versi yang lebih cepat tetapi menambahkan 9 byte:

FromDigits@Join[f=(s=RandomSample)[r=Range@9,1],s[r/.f[[1]]->0,#-1]]&

Java 9 JShell, 86 byte

n->new Random().longs(0,10).limit(n-1).reduce(new Random().nextInt(9)+1,(a,b)->a*10+b)

Cobalah online!

Catatan: Saya tidak menghitung impor karena paket-paket itu diimpor secara default di JShell, tetapi tidak ada tautan Try-it-online yang saya ketahui untuk JShell, jadi saya telah menyediakan satu untuk Java 9 dengan kode header dan footer untuk membuatnya bekerja dalam konteks itu. Di JShell Anda bisa melakukan:

jshell> Function<Integer,Long> f =
   ...> n->new Random().longs(0,10).limit(n-1).reduce(new Random().nextInt(9)+1,(a,b)->a*10+b)
f ==> $Lambda$27/633070006@5702b3b1

Lalu:

jshell> f.apply(6)
$26 ==> 746202

Bagaimana itu bekerja:

Kami mendefinisikan fungsi dari Integer ke Long dan membuat aliran tak terbatas dari long acak di kisaran 0-9, membatasi ke item n-1 pertama, kemudian menguranginya dengan int acak dari 1-9 sebagai nilai awal dan fungsi yang mengalikan nilai dengan 10 dan menambahkan nilai berikutnya dari aliran.

Saya menggunakan long jadi ini harus bekerja hingga sekitar 18 digit (n = 18).

C, 96 93 byte

f(n){char d[11],i=0,r;for(;i++^10;d[i-1]=d[r=rand()%i],d[r]=47+i);*d^48?d[n]=0,puts(d):f(n);}

Inisialisasi Fisher-Yates mengocok inisialisasi hingga digit pertama tidak nol.

Berseragam, dengan asumsi rand()%iseragam. (Karena sebagian besar saya RAND_MAX/imeninggalkan sisa kecil, ada bias yang sangat kecil. Bias ini tumbuh lebih kecil karena RAND_MAX tumbuh lebih besar.)

Lihat itu berfungsi online .

Lihat itu menghasilkan angka yang benar ketika n sama dengan 2, seperti yang ditunjukkan dalam pertanyaan .

Aksioma, 191 byte

g(a:NNI):Complex INT==(a<1 or a>9=>%i;r:List NNI:=[];b:=a;repeat(a=0=>break;d:=random()$INT rem 10;a=b and d=0=>0;~member?(d,r)=>(a:=a-1;r:=cons(d,r)));reduce(+,[r.i*10^(i-1)for i in 1..#r]))

ungolf itu, hasil tes

-- Return one number of 'a' different random digits if 0<a<10
f(a:NNI):Complex INT==
    a<1 or a>9=>%i
    r:List NNI:=[];b:=a
    repeat
       a=0=>break
       d:=random()$INT rem 10
       a=b and d=0  =>0
       ~member?(d,r)=>(a:=a-1;r:=cons(d,r))
    reduce(+,[r.i*10^(i-1)for i in 1..#r])

(4) -> [[i,g(i)] for i in 0..10]
   (4)
   [[0,%i], [1,9], [2,76], [3,135], [4,6810], [5,48675], [6,415768],
    [7,7461539], [8,98421537], [9,825046739], [10,%i]]
                                          Type: List List Complex Integer
(5) -> [[i,g(i)] for i in [3,3,3,3,3,3,3,3,3]]
   (5)
   [[3,653],[3,128],[3,254],[3,268],[3,914],[3,594],[3,276],[3,240],[3,398]]

Ubur-ubur , 17 byte

p
d^u ?
 j?r10
10

Cobalah online!

Fork of Dennis 'Jelly menjawab .

Ruby, 53 52 byte

Acak hingga digit pertama bukan 0, lalu gabungkan digit dan konversikan ke integer.

->n{a=*0..9;a.shuffle!while a[0]==0;eval a[0,n]*''}

Cobalah online!