Một công ty xổ số muốn tạo ra một số vé xổ số ngẫu nhiên có độ dài 10 ký tự.

Viết mã bằng bất kỳ ngôn ngữ nào để tạo một số như vậy trong đó mỗi chữ số chỉ xuất hiện một lần, ví dụ 9354716208trong số này, tất cả các số nguyên từ 0 đến 9 chỉ xuất hiện một lần. Số này phải là một số ngẫu nhiên.

• Số lượng được tạo nên được hiển thị trên màn hình.
• Nó phải có khả năng tạo ra tất cả các hoán vị của tất cả các ký tự được phép.
• Mã được yêu cầu càng nhỏ càng tốt (tính bằng byte).

J (4 byte)

Không thể cưỡng lại.

?~10

Trong J, nếu Flà dyadic, F~ xcũng giống như x F x.

J, 5 ký tự và APL, 8 ký tự

J

10?10

J có toán tử thỏa thuận tích hợp ( ?). Vì vậy, chúng ta có thể lấy 10 trên 10 ( 10?10).

APL

1-⍨10?10

APL có cùng một toán tử không may bắt đầu bằng một thay vì 0. Do đó, chúng tôi đang trừ một từ mỗi số ( 1-⍨Xcó nghĩa là X-1do toán tử đi lại).

Python 2.7 ( 64 63 57)

Không phải là một cơ hội ở đây so với các ngôn ngữ nặng của nhà điều hành và do thiếu ngẫu nhiên được tải ngẫu nhiên :) Đây là ngắn nhất tôi có thể đưa ra;

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

Nó tạo ra một phạm vi và lấy mẫu 10 số từ nó mà không cần thay thế.

(Cảm ơn @xfix đã sửa lỗi định dạng nhập ngắn hơn và @blkknght vì đã chỉ ra phạm vi lấy mẫu phức tạp hơi khó hiểu của tôi)

Con trăn 2.7 (40)

Nếu bạn chạy nó từ dấu nhắc tương tác và có thể đọc dấu phẩy được phân tách, bạn có thể cạo nó thành 40, nhưng cảm giác hơi giống như phá vỡ tinh thần của các quy tắc;

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

PHP, 29 ký tự

<?=str_shuffle('0123456789');

Với PHP, thẻ đóng không bắt buộc. Nhưng nếu điều đó trái với quy tắc, thì bạn có thể thay thế; với?> cho 1 tăng ròng.

Hồng ngọc, 18

Chạy cái này trong irb:

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

Nếu bạn muốn đây là một chương trình độc lập, với đầu ra stdout(các quy tắc dường như không yêu cầu điều này), thì hãy thêm 4 ký tự này vào lúc bắt đầu:

$><<

PHP - 37 ký tự

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

Tôi đã có một giải pháp 18 ký tự nên hoạt động trên lý thuyết nhưng PHP thật kỳ lạ.

Hoặc, nếu bạn muốn một câu trả lời xkcd:

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

EDIT: Cảm ơn xfix, giờ đây ngắn hơn 5 ký tự và đầy đủ. EDIT LẠI: Ví dụ trực tiếp .

Perl 6 (18 16 ký tự)

print pick *,^10

Điều này tạo ra mảng chứa tất cả các phần tử ngẫu nhiên ( pick *) từ 0đến 9và xuất kết quả ( print).

Đầu ra mẫu:

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

GolfScript, 12 ký tự

10,{;9rand}$

Đơn giản chỉ cần tạo danh sách các chữ số ( 10,) và sắp xếp nó {...}$theo một số khóa ngẫu nhiên - tạo ra một thứ tự ngẫu nhiên của các chữ số.

Ví dụ (thử trực tuyến ):

4860972315

0137462985

R (23 ký tự)

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

Đầu ra mẫu:

> 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

Octave (14)

randperm(10)-1

randperm không may tạo một lựa chọn từ 1..n, vì vậy phải trừ 1 ở cuối để có 0-9.

Trong máy chủ 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))

Xem bản demo

HOẶC một cái gì đó tương tự (lịch sự của @manatwork) bằng cách sử dụng đệ quy và 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 ký tự)

Thay vì tạo một mảng với các số 0-9 và sắp xếp nó, tôi quyết định tạo các số ngẫu nhiên. Khi nó xuất hiện một số chưa có trong mảng thì thêm nó vào. Điều này lặp lại mười lần và sau đó cảnh báo đầu ra.

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

Toán học, 27

Row@RandomSample@Range[0,9]

Vỏ / Coreutils, 23

shuf -i0-9|paste -sd ''

JavaScript, 82 ký tự

EDIT: Nhờ Rob W , độ dài mã được giảm xuống 90 ký tự.

EDIT: Nhờ George Reith , độ dài mã được giảm xuống còn 82 ký tự (sử dụng vòng lặp for).

Cách khá đơn giản: chọn phần tử ngẫu nhiên của [0,1,2,3,4,5,6,7,8,9]mảng và nối nó vào đầu ra, sau đó giảm mảng và phát lại.

Phiên bản cũ (106 ký tự):

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)

Phiên bản dễ đọc:

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

Phiên bản tốt hơn (90 ký tự):

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

Phiên bản cuối cùng (82 ký tự):

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

Mã thông báo: http://jsfiddle.net/gthacoder/qH3t9/ .

C #, 145 byte

Ung dung

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

Chơi gôn

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

JavaScript (80 ký tự)

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

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

K / Kona (6)

-10?10

Như với J, ?là nhà điều hành giao dịch; các -giá trị buộc không lặp lại.

Toán học 40

Số được tạo dưới dạng chuỗi để cho phép số 0 được hiển thị dưới dạng ký tự đầu tiên, khi cần.

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

Ví dụ đầu ra

"0568497231"
"6813029574"

Giải trình

"0"~CharacterRange~"9" là ký hiệu infix cho `CharacterRange [" 0 "," 9 "]". Một trong hai thứ này trả về danh sách, {"0", "1", "2", "3", "4", "5", " 6 "," 7 "," 8 "," 9 "}.

RandomSample[list]theo mặc định trả về một hoán vị của danh sách. (Nó cũng có thể được sử dụng cho các loại lấy mẫu khác, khi bao gồm các tham số. Ví dụ: RandomSample[list, 4]sẽ trả về một mẫu ngẫu nhiên gồm 4 ký tự, không lặp lại.

Scala, 37

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

Viết tắt, 72

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

Phòng vẫn để chơi golf, có thể, nhưng Forth đã làm điều này khó khăn. Tôi nghĩ.

Prolog, 177/302 ký tự

Tôi là người mới bắt đầu sử dụng Prolog, vì vậy có lẽ đây không phải là mã cô đọng nhất.

:- 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).

Trả về:

| ?- 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

Nếu bạn muốn nó trả về một số nguyên:

:- 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.

Trả về:

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

Sử dụng thay thế:

labeling([down],N)

Cho các số theo thứ tự ngược lại:

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

Không giống như một số mã khác được đăng, điều này trả về tất cả các khả năng (không lặp lại).

q / kdb [6 ký tự]

-10?10

sẽ tạo ra 10 số ngẫu nhiên duy nhất.

Å ı ® Ø , 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 ký tự

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

Trong khi chạy cho đến khi mảng có 10 phần tử.

Tạo số ngẫu nhiên từ 0 - 9, sau đó kiểm tra xem mảng có bao gồm số này không và thêm nó vào mảng.

Đây không phải là nhỏ hơn nhiều so với câu trả lời của JMK, nhưng đây là một giải pháp C # nhỏ hơn một chút (135):

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

Nén (134):

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

Phiên bản thay thế (135):

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

Nén:

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

Chúng có chiều dài bằng nhau, nhưng nó thực sự phụ thuộc vào việc bạn muốn sử dụng chức năng ForEach của Linq hay chức năng Tham gia của String. Tôi đã có thể xóa 10 ký tự bằng cách đánh vần phạm vi "0123456789" trong một chuỗi thay vì sử dụng Enumerable.Range (0, 10).

LOGO , 64 ký tự

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

chọn trả về mục ngẫu nhiên của danh sách được cung cấp. danh sách trả về butmember với tất cả các lần xuất hiện của mục đã chỉ định bị xóa. Lưu ý: Không phải tất cả các butmemberlệnh hỗ trợ triển khai Logo .

Vợt 45 43

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