Лотерейна компанія хоче створити випадковий номер лотерейного квитка довжиною 10 символів.

Напишіть код будь-якою мовою, щоб створити таке число, в якому кожна цифра надходить лише один раз, наприклад, 9354716208у цьому числі всі цілі числа від 0 до 9 надходять лише один раз. Це число повинно бути випадковим числом.

• Згенерований номер повинен відображатися на екрані.
• Він повинен бути здатний генерувати всі перестановки всіх допустимих символів.
• Код повинен бути якомога меншим (у байтах).

J (4 байти)

Не втримався.

?~10

У J, якщо Fдіадичний, F~ xте саме, що x 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 за вказівку мого дещо über складного діапазону вибірки)

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

EDIT: Спасибі xfix, тепер вона на 5 символів коротша і повніша. EDIT ЗНОВУ: Живий приклад .

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)

Математика, 27

Row@RandomSample@Range[0,9]

Shell / Coreutils, 23

shuf -i0-9|paste -sd ''

JavaScript, 82 символи

EDIT: Завдяки Rob W , довжина коду скорочується до 90 символів.

EDIT: Завдяки Джорджу Рейту довжина коду скорочується до 82 символів (використовуючи цикл).

Досить простий спосіб: виберіть випадковий елемент [0,1,2,3,4,5,6,7,8,9]масиву та додайте його до виводу, а потім зменшіть масив та повторіть.

Стара версія (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 байт

Безумовно

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

Гольф

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

JavaScript (80 символів)

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

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

К / Кона (6)

-10?10

Як і J, ?є оператором угоди; що -сили значення , які не повторюються.

Математика 40

Число створюється у вигляді рядка, щоб дозволити нулю відображатися як перший символ, коли це необхідно.

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

Вихідні приклади

"0568497231"
"6813029574"

Пояснення

"0"~CharacterRange~"9" - це позначення інфіксації для `CharacterRange [" 0 "," 9 "]". Будь-який із них повертає список, {"0", "1", "2", "3", "4", "5", " 6 "," 7 "," 8 "," 9 "}.

RandomSample[list]за замовчуванням повертає перестановку списку. (Він також може бути використаний для інших видів вибірки, якщо параметри включені. Наприклад RandomSample[list, 4], повернеться Випадкова вибірка з 4 символів без повторів.

Скала, 37

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

По-четверте, 72

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

Кімната ще для гольфу, можливо, але Форт зробив це важким. Я думаю.

Пролог, 177/302 символів

Я початківець у Prolog, тому, напевно, це не самий ущільнений код.

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

Повернення:

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

Якщо ви хочете, щоб він повернув ціле число:

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

Повернення:

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

Використовуючи замість цього:

labeling([down],N)

Дає числа у зворотному порядку:

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

На відміну від деяких інших розміщених кодів, це повертає всі можливості (без повторень).

q / kdb [6 символів]

-10?10

буде генерувати 10 унікальних випадкових чисел.

√ å ı ¥ ® Ï Ø ¿ , 4 байти

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 символи

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

Поки працює, поки масив не містить 10 елементів.

Генеруючи випадкове число від 0 до 9, тоді перевірте, чи масив! Включає це число і додайте його до масиву.

Це не набагато менше, ніж відповідь JMK, але ось трохи менший C-рішення (135):

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

Ущільнений (134):

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

Альтернативна версія (135):

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

Ущільнено:

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

Вони однакові за довжиною, але це дійсно залежить лише від того, чи потрібно використовувати функцію ForEach Linq або функцію приєднання String's. Я зміг видалити 10 символів довжиною, написавши діапазон "0123456789" в рядку, замість того, щоб використовувати Enumerable.Range (0, 10).

ЛОГО , 64 символи

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

Вибрати повертає випадковий елемент із поданого списку. butmember повертає список зі всіма входженнями вказаного елемента видалено. Примітка: Не всі версії логотипу підтримують butmemberкоманду.

Ракетка 45 43

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