Perusahaan lotere ingin menghasilkan jumlah tiket lotre acak dengan panjang 10 karakter.

Tulis kode dalam bahasa apa pun untuk membuat angka di mana setiap digit hanya datang satu kali misalnya 9354716208dalam angka ini semua bilangan bulat dari 0 hingga 9 hanya datang sekali. Nomor ini harus berupa angka acak.

• Nomor yang dihasilkan harus ditampilkan di layar.
• Itu harus dapat menghasilkan semua permutasi dari semua karakter yang diijinkan.
• Kode ini harus sekecil mungkin (dalam byte).

J (4 byte)

Tidak bisa menolak.

?~10

Dalam J, jika Fdiad, F~ xsama dengan x F x.

J, 5 karakter dan APL, 8 karakter

J

10?10

J memiliki operator kesepakatan bawaan ( ?). Dengan demikian, kita dapat mengambil 10 dari 10 ( 10?10).

APL

1-⍨10?10

APL memiliki operator yang sama yang sayangnya dimulai dengan satu alih-alih nol. Karena itu kami mengurangi satu dari setiap angka ( 1-⍨Xberarti X-1karena operator bolak-balik).

Python 2.7 ( 64 63 57)

Tidak ada kesempatan di sini dibandingkan dengan operator bahasa yang berat dan karena kurangnya default dimuat secara acak :) Ini adalah yang terpendek yang bisa saya buat;

from random import*
print''.join(sample("0123456789",10))

Ini menciptakan rentang dan sampel 10 angka dari itu tanpa penggantian.

(Terima kasih kepada @xfix untuk perbaikan format impor yang lebih pendek dan @blkknght untuk menunjukkan rentang pengambilan sampel yang agak rumit).

Python 2.7 (40)

Jika Anda menjalankannya dari prompt interaktif dan dapat membaca koma yang dipisahkan, Anda dapat mencukurnya menjadi 40, tetapi rasanya agak seperti melanggar semangat aturan;

from random import*
sample(range(10),10)

PHP, 29 karakter

<?=str_shuffle('0123456789');

Dengan PHP, tag penutup tidak diperlukan. Tetapi jika itu melanggar aturan, maka Anda dapat mengganti; dengan?> untuk 1 kenaikan bersih.

Ruby, 18

Jalankan ini di irb:

[*0..9].shuffle*''

Jika Anda ingin ini menjadi program yang berdiri sendiri, dengan output ke stdout(aturan tampaknya tidak mengharuskan ini), kemudian tambahkan 4 karakter ini di awal:

$><<

PHP - 37 Karakter

<?=join('',array_rand(range(0,9),10))

Saya punya solusi 18-karakter yang secara teori seharusnya berfungsi tetapi PHP aneh.

Atau, jika Anda menginginkan jawaban xkcd:

<?="5398421706" // Chosen by program above; guaranteed to be random ?>

EDIT: Terima kasih xfix, sekarang 5 karakter lebih pendek dan lengkap. EDIT LAGI: Contoh langsung .

Perl 6 (18 16 karakter)

print pick *,^10

Ini menghasilkan array yang berisi semua elemen acak ( pick *) dari 0ke 9dan menampilkan hasilnya ( print).

Output sampel:

$ perl6 -e 'print pick *,^10'
4801537269
$ perl6 -e 'print pick *,^10'
1970384265
$ perl6 -e 'print pick *,^10'
3571684902

GolfScript, 12 karakter

10,{;9rand}$

Cukup membuat daftar digit ( 10,) dan mengurutkannya {...}$berdasarkan beberapa kunci acak - yang menghasilkan urutan acak digit.

Contoh (coba online ):

4860972315

0137462985

R (23 karakter)

cat(sample(0:9),sep="")

Output sampel:

> cat(sample(0:9),sep="")
3570984216
> cat(sample(0:9),sep="")
3820791654
> cat(sample(0:9),sep="")
0548697132

TI-BASIC, 5 byte

randIntNoRep(1,10

Oktaf (14)

randperm(10)-1

randperm sayangnya membuat pilihan dari 1..n, jadi harus mengurangi 1 di akhir untuk mendapatkan 0-9.

Di server sql

DECLARE @RandomNo varchar(10)
SET @RandomNo = ''

;WITH num as (
SELECT 0 AS [number]
Union 
select 1
Union 
select 2
Union 
select 3
Union 
select 4
Union 
select 5
Union 
select 6
Union 
select 7
Union 
select 8
Union 
select 9
)
SELECT Top 9 @RandomNo = COALESCE(@RandomNo + '', '') + cast(n.number AS varchar(1))
FROM numbers n
ORDER BY NEWID()

SELECT cast(@RandomNo AS numeric(10,0))

Lihat Demo

ATAU sesuatu yang serupa (milik @manatwork) menggunakan rekursi dan xml.

with c as(select 0i union all select i+1from c where i<9)select i+0from c order by newid()for xml path('')

Javascript ( 79 78 68 karakter)

Daripada membuat array dengan angka 0-9 dan menyortirnya, saya memutuskan untuk menghasilkan angka acak. Ketika muncul dengan nomor yang belum ada dalam array kemudian menambahkannya. Ini mengulangi sepuluh kali dan kemudian memperingatkan output.

for(a="";!a[9];){~a.indexOf(b=~~(Math.random()*10))||(a+=b)}alert(a)

Mathematica, 27

Row@RandomSample@Range[0,9]

Shell / Coreutils, 23

shuf -i0-9|paste -sd ''

JavaScript, 82 karakter

EDIT: Berkat Rob W , panjang kode dikurangi hingga 90 karakter.

EDIT: Berkat George Reith , panjang kode dikurangi menjadi 82 karakter (menggunakan untuk loop).

Cara yang cukup mudah: pilih elemen acak [0,1,2,3,4,5,6,7,8,9]array dan tambahkan ke output, lalu kurangi array dan putar ulang.

Versi lama (106 karakter):

a=[0,1,2,3,4,5,6,7,8,9],l=11,t="";while(--l){r=Math.floor(Math.random()*l);t+=a[r];a.splice(r,1);}alert(t)

Versi yang dapat dibaca:

a = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9], l = 10,t = "";
while(l--) {
  r = Math.floor(Math.random() * l);
  t += a[r];
  a.splice(r, 1);
}
alert(t);

Versi yang lebih baik (90 karakter):

a="0123456789".split(t=""),l=11;while(--l)t+=a[r=0|Math.random()*l],a.splice(r,1);alert(t)

Versi terakhir (82 karakter):

a="0123456789".split(t='');for(l=11;--l;t+=a.splice(0|Math.random()*l,1));alert(t)

JSFiddle: http://jsfiddle.net/gthacoder/qH3t9/ .

C #, 145 byte

Tidak disatukan

using System;
using System.Linq;
class P
{
    static void Main()
    {
        Enumerable.Range(0,10).OrderBy(g => Guid.NewGuid()).ToList().ForEach(Console.Write);
    }
}

Golf

using System;using System.Linq;class P{static void Main(){Enumerable.Range(0,10).OrderBy(g => Guid.NewGuid()).ToList().ForEach(Console.Write);}}

JavaScript (80 karakter)

alert("0123456789".split("").sort(function(){return .5-Math.random()}).join(""))

JS-Fiddle: http://jsfiddle.net/IQAndreas/3rmza/

K / Kona (6)

-10?10

Seperti halnya J, ?adalah operator kesepakatan; yang -kekuatan nilai-nilai untuk tidak mengulangi.

Mathematica 40

Angka tersebut dibuat sebagai string sehingga memungkinkan nol untuk ditampilkan sebagai karakter pertama, saat diperlukan.

""<>RandomSample["0"~CharacterRange~"9"]

Contoh keluaran

"0568497231"
"6813029574"

Penjelasan

"0"~CharacterRange~"9" adalah notasi infix untuk `CharacterRange [" 0 "," 9 "]". Keduanya mengembalikan daftar, {"0", "1", "2", "3", "4", "5", " 6 "," 7 "," 8 "," 9 "}.

RandomSample[list]secara default mengembalikan permutasi daftar. (Ini juga dapat digunakan untuk jenis pengambilan sampel lainnya, ketika parameter dimasukkan. Misalnya RandomSample[list, 4]akan mengembalikan sampel acak 4 karakter, tanpa mengulangi.

Scala, 37

util.Random.shuffle(0 to 9).mkString

Keempat, 72

needs random.fs : r ': '0 do i loop 9 for i 1+ random roll emit next ; r

Mungkin masih ada ruang untuk bermain golf, tetapi Forth membuat ini sulit. Kupikir.

Prolog, 177/302 karakter

Saya seorang pemula di Prolog, jadi mungkin ini bukan kode yang paling kental.

:- use_module(library(clpfd)).
sort(N) :-
    N = [N0,N1,N2,N3,N4,N5,N6,N7,N8,N9],
    domain([N0],1,9),
    domain([N1,N2,N3,N4,N5,N6,N7,N8,N9],0,9),
    all_different(N),
    labeling([],N).

Pengembalian:

| ?- sort2(N).                                         
N = [1,0,2,3,4,5,6,7,8,9] ? ;
N = [1,0,2,3,4,5,6,7,9,8] ? ;
N = [1,0,2,3,4,5,6,8,7,9] ? ;
N = [1,0,2,3,4,5,6,8,9,7] ? ;
N = [1,0,2,3,4,5,6,9,7,8] ? 
yes

Jika Anda ingin mengembalikan integer:

:- use_module(library(clpfd)).
sort(M) :-
    N = [N0,N1,N2,N3,N4,N5,N6,N7,N8,N9],
    domain([N0],1,9),
    domain([N1,N2,N3,N4,N5,N6,N7,N8,N9],0,9),
    all_different(N),
    labeling([],N),
    M is (N0*1000000000)+(N1*100000000)+(N2*10000000)+(N3*1000000)+
         (N4*100000)+(N5*10000)+(N6*1000)+(N7*100)+(N8*10)+N9.

Pengembalian:

| ?- sort(N).
N = 1023456789 ? ;
N = 1023456798 ? ;
N = 1023456879 ? ;
N = 1023456897 ? ;
N = 1023456978 ? 
yes

Menggunakan sebaliknya:

labeling([down],N)

Memberikan angka dalam urutan yang berlawanan:

| ?- sort(N).                                        
N = 9876543210 ? n
N = 9876543201 ? n
N = 9876543120 ? n
N = 9876543102 ? n
N = 9876543021 ? 
yes

Tidak seperti beberapa kode lain yang diposting, ini mengembalikan semua kemungkinan (tanpa pengulangan).

q / kdb [6 karakter]

-10?10

akan menghasilkan 10 angka acak unik.

√ å ı ¥ ® Ï Ø ¿ , 4 byte

XrśO

X    › Push 10 to the stack
 r   › Push the range from [1...10]
  ś  › Shuffle the stack
   O › Output the whole stack separated by spaces

Clojure, 42

(println (apply str (shuffle (range 10))))

6209847315

Javascript, 83 karakter

a=[];while(!a[9]){b=Math.floor(Math.random()*10);!a.includes(b)&&a.push(b)}alert(a)

Saat berjalan hingga array memiliki 10 elemen.

Menghasilkan angka acak dari 0 - 9 lalu memeriksa apakah array! Menyertakan nomor ini dan menambahkannya ke array.

Ini tidak jauh lebih kecil dari jawaban JMK, tetapi inilah solusi C # yang sedikit lebih kecil (135):

using System;
using System.Linq;
class P { 
    static void Main() 
    { 
        Console.Write(string.Join("", "0123456789".OrderBy(g => Guid.NewGuid()))); 
    } 
}

Dipadatkan (134):

using System;using System.Linq;class P{static void Main(){Console.Write(string.Join("", "0123456789".OrderBy(g => Guid.NewGuid())));}}

Versi alternatif (135):

using System;
using System.Linq;
class P { 
    static void Main() 
    { 
        "0123456789".OrderBy(g => Guid.NewGuid()).ToList().ForEach(Console.Write); 
    } 
}

Kompak:

using System;using System.Linq;class P{static void Main(){"0123456789".OrderBy(g => Guid.NewGuid()).ToList().ForEach(Console.Write);}}

Panjangnya sama, tetapi itu benar-benar hanya tergantung pada apakah Anda ingin menggunakan fungsi ForEach Linq atau fungsi String's Join. Saya dapat menghapus 10 karakter panjangnya dengan mengeja kisaran "0123456789" dalam sebuah string alih-alih menggunakan Enumerable.Range (0, 10).

LOGO , 64 karakter

make "d 1234567890
repeat 10 [
    make "n pick d
    show n
    make "d butmember n d
]

pilih pengembalian item acak dari daftar yang disediakan. butmember mengembalikan daftar dengan semua kemunculan item yang ditentukan dihapus. Catatan: Tidak semua butmemberperintah dukungan implementasi Logo .

Raket 45 43

(map print(shuffle'(0 1 2 3 4 5 6 7 8 9)))