Лотерейная компания хочет сгенерировать случайный лотерейный билет длиной 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 за указание на мой довольно сложный диапазон выборки)

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 *) из 0to 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 server

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

РЕДАКТИРОВАТЬ: Благодаря Робу W , длина кода уменьшена до 90 символов.

РЕДАКТИРОВАТЬ: Благодаря Джорджу Риту , длина кода сокращена до 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 байт

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

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

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

К / Кона (6)

-10?10

Как и в случае с J, ?является оператором сделки; что -силы значения , которые не повторяются.

Mathematica 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 персонажа

Я новичок в Прологе, так что, вероятно, это не самый сжатый код.

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

Они равны по длине, но на самом деле это зависит только от того, хотите ли вы использовать функцию LinE ForEach или функцию String Join. Мне удалось удалить 10 символов длиной, указав в строке диапазон «0123456789» вместо использования Enumerable.Range (0, 10).

ЛОГОТИП , 64 символа

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

pick возвращает случайный элемент из предоставленного списка. butmember возвращает список, в котором все вхождения указанного элемента удалены. Примечание. Не все реализации логотипа поддерживают butmemberкоманду.

Ракетка 45 43

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