Uma empresa de loteria deseja gerar um número aleatório de bilhete de loteria com 10 caracteres.

Escreva um código em qualquer idioma para criar um número no qual cada dígito venha apenas uma vez, por exemplo 9354716208, nesse número todos os números inteiros de 0 a 9 vêm apenas uma vez. Este número deve ser um número aleatório.

• O número gerado deve ser mostrado na tela.
• Ele deve ser capaz de gerar todas as permutações de todos os caracteres permitidos.
• É necessário que o código seja o menor possível (em bytes).

J (4 bytes)

Não pude resistir.

?~10

Em J, se Fé diádico, F~ xé o mesmo que x F x.

J, 5 caracteres e APL, 8 caracteres

J

10?10

J tem o operador de negócio interno ( ?). Assim, podemos tirar 10 de 10 ( 10?10).

APL

1-⍨10?10

O APL tem o mesmo operador que infelizmente começa com um em vez de zero. Portanto, subtraímos um de cada número ( 1-⍨Xsignifica X-1devido ao operador de deslocamento).

Python 2.7 ( 64 63 57)

Nenhuma chance aqui em comparação com as linguagens pesadas do operador e devido à falta de padrão carregado aleatoriamente :) Este é o menor tempo que pude apresentar;

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

Ele cria um intervalo e obtém amostras de 10 números sem substituição.

(Obrigado ao @xfix pela correção mais curta do formato de importação e ao @blkknght por apontar meu intervalo de amostragem um pouco mais complicado)

Python 2.7 (40)

Se você executá-lo no prompt interativo e pode ler separado por vírgula, pode reduzi-lo a 40, mas parece um pouco como quebrar o espírito das regras;

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

PHP, 29 caracteres

<?=str_shuffle('0123456789');

Com o PHP, a tag de fechamento não é necessária. Mas se isso for contra as regras, você poderá substituir; com?> para 1 aumento líquido.

Ruby, 18

Execute isso em irb:

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

Se você deseja que este seja um programa independente, com saída para stdout(as regras parecem não exigir isso), adicione estes 4 caracteres no início:

$><<

PHP - 37 caracteres

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

Eu tinha uma solução de 18 caracteres que deveria teoricamente funcionar, mas o PHP é estranho.

Ou, se você quiser uma resposta xkcd:

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

EDIT: Obrigado xfix, agora é 5 caracteres mais curtos e completos. Editar novamente: exemplo ao vivo .

Perl 6 (18 16 caracteres)

print pick *,^10

Isto gera matriz que contém todos os elementos aleatórios ( pick *) a partir 0de 9e envia o resultado ( print).

Saída de amostra:

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

GolfScript, 12 caracteres

10,{;9rand}$

Simplesmente gera a lista de dígitos ( 10,) e a classifica de {...}$acordo com algumas teclas aleatórias - o que gera uma ordem aleatória dos dígitos.

Exemplos (tente online ):

4860972315

0137462985

R (23 caracteres)

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

Saída de amostra:

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

TI-BASIC, 5 bytes

randIntNoRep(1,10

Oitava (14)

randperm(10)-1

randperm infelizmente, cria uma seleção de 1..n, então é necessário subtrair 1 no final para obter 0-9.

No servidor 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))

Ver demonstração

OU algo semelhante (cortesia de @manatwork) usando recursão e 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 caracteres)

Em vez de criar uma matriz com os números de 0 a 9 e classificá-la, decidi gerar números aleatórios. Quando surgiu um número que ainda não estava na matriz, ele foi adicionado. Isso se repete dez vezes e depois alerta a saída.

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 caracteres

EDIT: Graças a Rob W , o comprimento do código é reduzido para 90 caracteres.

EDIT: Graças a George Reith , o comprimento do código é reduzido para 82 caracteres (usando o loop for).

Maneira bem direta: escolha um elemento aleatório de [0,1,2,3,4,5,6,7,8,9] array e anexe-o à saída, depois reduza o array e repita.

Versão antiga (106 caracteres):

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)

Versão legível:

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

Versão melhorada (90 caracteres):

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

Última versão (82 caracteres):

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

Golfe

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

JavaScript (80 caracteres)

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

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

K / Kona (6)

-10?10

Assim como J, ?é o operador da transação; as -forças os valores para não repetir.

Mathematica 40

O número é criado como uma sequência para permitir que zero seja exibido como o primeiro caractere, quando necessário.

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

Exemplos de saída

"0568497231"
"6813029574"

Explicação

"0"~CharacterRange~"9" é uma notação de infixo para `CharacterRange [" 0 "," 9 "]". Qualquer um desses retorna a lista, {"0", "1", "2", "3", "4", "5", " 6 "," 7 "," 8 "," 9 "}.

RandomSample[list]por padrão, retorna uma permutação da lista. (Também pode ser usado para outros tipos de amostragem, quando os parâmetros são incluídos. Por exemplo RandomSample[list, 4], retornará uma amostra aleatória de 4 caracteres, sem repetições.

Scala, 37

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

Quarto, 72

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

Talvez ainda houvesse espaço para jogar golfe, mas Forth dificultava esse. Eu acho que.

Prolog, 177/302 caracteres

Eu sou iniciante no Prolog, então provavelmente este não é o código mais condensado.

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

Devoluções:

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

Se você deseja retornar um número inteiro:

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

Devoluções:

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

Usando em vez disso:

labeling([down],N)

Dá os números na ordem oposta:

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

Ao contrário de outros códigos publicados, isso retorna todas as possibilidades (sem repetições).

q / kdb [6 caracteres]

-10?10

irá gerar 10 números aleatórios únicos.

√ å ı ¥ ® Ï Ø ¿ , 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 caracteres

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

Durante a execução até a matriz ter 10 elementos.

Gerando um número aleatório de 0 a 9, verifique se o array! Inclui esse número e adicione-o ao array.

Isso não é muito menor que a resposta de JMK, mas aqui está uma solução C # um pouco menor (135):

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

Compactado (134):

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

Versão alternativa (135):

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

Compactado:

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

Eles são iguais em comprimento, mas realmente depende apenas se você deseja usar a função ForEach do Linq ou a função Join da String. Consegui remover 10 caracteres de comprimento digitando o intervalo "0123456789" em uma seqüência de caracteres em vez de usar Enumerable.Range (0, 10).

LOGO , 64 caracteres

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

pick retorna o item aleatório da lista fornecida. butmember retorna a lista com todas as ocorrências do item especificado removidas. Nota: Nem todas as implementações de logotipo suportam butmembercomando.

Raquete 45 43

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