บริษัท ลอตเตอรีต้องการสร้างหมายเลขตั๋วลอตเตอรี่แบบสุ่มที่มีความยาว 10 อักขระ

เขียนรหัสในภาษาใด ๆ เพื่อสร้างตัวเลขที่ทุกหลักมาเพียงครั้งเดียวเช่น9354716208ในจำนวนนี้จำนวนเต็มทั้งหมดจาก 0 ถึง 9 มาเพียงครั้งเดียว หมายเลขนี้ควรเป็นตัวเลขสุ่ม

• หมายเลขที่สร้างควรแสดงบนหน้าจอ
• จะต้องสามารถสร้างการเรียงสับเปลี่ยนทั้งหมดของอักขระที่อนุญาตทั้งหมด
• รหัสจำเป็นต้องมีขนาดเล็กที่สุดเท่าที่จะเป็นไปได้ (เป็นไบต์)

J (4 ไบต์)

ไม่สามารถต้านทาน

?~10

ใน J ถ้าFเป็น dyadic, เป็นเช่นเดียวกับF~ xx F x

J, 5 ตัวอักษรและ APL, 8 ตัวอักษร

J

10?10

J มีตัวดำเนินการดีลในตัว ( ?) ดังนั้นเราสามารถนำ 10 จาก 10 ( 10?10)

APL

1-⍨10?10

APL มีโอเปอเรเตอร์เดียวกันซึ่งเริ่มต้นด้วยหนึ่งแทนที่จะเป็นศูนย์ เราจึงลบหนึ่งหมายเลขจากแต่ละหมายเลข ( 1-⍨XหมายถึงX-1เนื่องจากผู้ดำเนินการเดินทาง)

Python 2.7 ( 64 63 57)

ไม่ใช่โอกาสที่นี่เมื่อเทียบกับภาษาหนักของโอเปอเรเตอร์และเนื่องจากไม่มีการโหลดแบบสุ่มเริ่มต้น :) นี่คือสั้นที่สุดที่ฉันสามารถหาได้

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

มันสร้างช่วงและตัวอย่าง 10 ตัวเลขจากมันโดยไม่ต้องเปลี่ยน

(ขอบคุณ @xfix สำหรับการแก้ไขรูปแบบการนำเข้าที่สั้นกว่าและ @blkknght สำหรับการชี้ช่วงการสุ่มตัวอย่างที่ค่อนข้างซับซ้อนของฉัน)

Python 2.7 (40)

หากคุณเรียกใช้จากพรอมต์แบบอินเทอร์แอคทีฟและสามารถอ่านเครื่องหมายจุลภาคคั่นได้คุณสามารถโกนมันได้ถึง 40 แต่มันให้ความรู้สึกเหมือนเป็นการทำลายจิตวิญญาณของกฎ

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

PHP, 29 ตัวอักษร

<?=str_shuffle('0123456789');

ด้วย PHP ไม่จำเป็นต้องใช้แท็กปิด แต่ถ้ามันผิดกฎคุณก็สามารถแทนที่ได้ ด้วย?> สำหรับการเพิ่มสุทธิ 1 ครั้ง

ทับทิม, 18

รันสิ่งนี้ในirb:

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

หากคุณต้องการให้สิ่งนี้เป็นโปรแกรมแบบสแตนด์อโลนที่มีเอาต์พุตไปที่stdout(กฎดูเหมือนจะไม่ต้องการสิ่งนี้) จากนั้นเพิ่ม 4 ตัวอักษรเหล่านี้ในตอนเริ่มต้น:

$><<

PHP - 37 ตัวอักษร

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

ฉันมีวิธีแก้ปัญหา 18 ตัวที่ใช้งานได้จริงในทางทฤษฎี แต่ PHP นั้นแปลก

หรือถ้าคุณต้องการคำตอบ xkcd:

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

แก้ไข: ขอบคุณ xfix ตอนนี้มันสั้นลงและเสร็จสมบูรณ์ 5 ตัวอักษร แก้ไขอีกครั้ง: ตัวอย่างสด

Perl 6 (18 16 ตัวอักษร)

print pick *,^10

สิ่งนี้สร้างอาร์เรย์ที่มีองค์ประกอบแบบสุ่มทั้งหมด ( pick *) จาก0ถึง9และส่งออกผลลัพธ์ ( print)

ตัวอย่างผลลัพธ์:

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

GolfScript 12 ตัวอักษร

10,{;9rand}$

เพียงสร้างรายการของตัวเลข ( 10,) และเรียงลำดับ{...}$ตามคีย์สุ่มบางตัว - ซึ่งให้ลำดับของตัวเลขแบบสุ่ม

ตัวอย่าง (ลองออนไลน์ ):

4860972315

0137462985

R (23 ตัวอักษร)

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

ตัวอย่างผลลัพธ์:

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

TI-BASIC 5 ไบต์

randIntNoRep(1,10

ระดับแปดเสียง (14)

randperm(10)-1

randperm น่าเสียดายที่สร้างสิ่งที่เลือกจาก 1..n ดังนั้นต้องลบ 1 ท้ายเพื่อรับ 0-9

ในเซิร์ฟเวอร์ 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))

ดูตัวอย่าง

หรือสิ่งที่คล้ายกัน (ความอนุเคราะห์ของ @manatwork) โดยใช้การเรียกซ้ำและ 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 ตัวอักษร)

แทนที่จะสร้างอาร์เรย์ด้วยตัวเลข 0-9 และเรียงลำดับฉันตัดสินใจสร้างตัวเลขสุ่ม เมื่อมันมาพร้อมกับตัวเลขที่ไม่ได้อยู่ในอาเรย์แล้วเพิ่มมัน การทำซ้ำสิบครั้งแล้วแจ้งเตือนผลลัพธ์

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 ตัวอักษร

แก้ไข:ขอบคุณRob W, code length is reduced to 90 characters.

แก้ไข:ขอบคุณGeorge Reith, code length is reduced to 82 characters (using for loop).

วิธีที่ตรงไปตรงมาสวย: เลือกองค์ประกอบแบบสุ่มของ [0,1,2,3,4,5,6,7,8,9] array and append it to the output, then reduce array and replay.

รุ่นเก่า (106 ตัวอักษร):

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)

รุ่นที่อ่านได้:

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

รุ่นที่ดีกว่า (90 ตัวอักษร):

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

รุ่นล่าสุด (82 ตัวอักษร):

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 bytes

Ungolfed

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

Golfed

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

JavaScript (80 characters)

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

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

K/Kona (6)

-10?10

As with J, ? is the deal operator; the - forces the values to not repeat.

Mathematica 40

The number is created as a string so as to allow zero to be displayed as the first character, when needed.

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

Output examples

"0568497231"
"6813029574"

Explanation

"0"~CharacterRange~"9" is infix notation for `CharacterRange["0","9"]". Either of these returns the list, {"0","1","2","3","4","5","6","7","8","9"}.

RandomSample[list] by default returns a permutation of the list. (It can also be used for other kinds of sampling, when parameters are included. E.g. RandomSample[list, 4] will return a Random sample of 4 characters, with no repeats.

Scala, 37

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

Forth, 72

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

Room still to golf, maybe, but Forth made this one hard. I think.

Prolog, 177/302 characters

I'm a beginner on Prolog, so probably this is not the most condensed code.

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

Returns:

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

If you want it to return an 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.

Returns:

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

Using instead:

labeling([down],N)

Gives the numbers in the opposite order:

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

Unlike some other codes posted, this returns all possibilities (with no repetitions).

q/kdb [6 chars]

-10?10

will generate 10 unique random numbers.

√ å ı ¥ ® Ï Ø ¿ , 4 bytes

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 characters

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

While running until array has 10 elements.

Generating random number from 0 - 9 then check if array !includes this number and add it to the array.

This is not much smaller than JMK's answer, but here's a slightly smaller C# solution (135):

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

Compacted (134):

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

Alternate version (135):

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

Compacted:

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

They're equal in length, but it really just depends on whether you want to use Linq's ForEach function or String's Join function. I was able to remove 10 characters in length by spelling out the range "0123456789" in a string instead of using Enumerable.Range(0, 10).

LOGO, 64 characters

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

pick returns random item of the supplied list. butmember returns list with all occurrences of the specified item removed. Note: Not all Logo implementations support butmember command.

Racket 45 43

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