Una empresa de lotería quiere generar un número de boleto de lotería aleatorio de 10 caracteres de longitud.

Escriba un código en cualquier idioma para crear un número en el que cada dígito aparezca solo una vez, por ejemplo, 9354716208en este número todos los enteros del 0 al 9 solo aparecen una vez. Este número debe ser un número aleatorio.

• El número generado debe mostrarse en la pantalla.
• Debe poder generar todas las permutaciones de todos los caracteres permitidos.
• Se requiere que el código sea lo más pequeño posible (en bytes).

J (4 bytes)

No pude resistirme.

?~10

En J, si Fes diádico, F~ xes lo mismo que x F x.

J, 5 caracteres y APL, 8 caracteres

J

10?10

J tiene el operador de reparto incorporado ( ?). Por lo tanto, podemos tomar 10 de 10 ( 10?10).

APL

1-⍨10?10

APL tiene el mismo operador que desafortunadamente comienza con uno en lugar de cero. Por lo tanto, estamos restando uno de cada número ( 1-⍨Xsignifica X-1debido al operador de viaje).

Python 2.7 ( 64 63 57)

No es una oportunidad aquí en comparación con los lenguajes pesados ​​del operador y debido a la falta de carga aleatoria predeterminada :) Esto es lo más corto que se me ocurrió;

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

Crea un rango y muestra 10 números de él sin reemplazo.

(Gracias a @xfix por la corrección de formato de importación más corta y a @blkknght por señalar mi rango de muestreo algo complicado)

Python 2.7 (40)

Si lo ejecuta desde el indicador interactivo y puede leer separados por comas, puede reducirlo a 40, pero se siente un poco como romper el espíritu de las reglas;

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

PHP, 29 caracteres

<?=str_shuffle('0123456789');

Con PHP, no se requiere la etiqueta de cierre. Pero si eso va en contra de las reglas, entonces puedes reemplazarlo; con?> para 1 aumento neto.

Rubí, 18

Ejecute esto en irb:

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

Si desea que este sea un programa independiente, con salida para stdout(las reglas no parecen requerir esto), agregue estos 4 caracteres al comienzo:

$><<

PHP - 37 caracteres

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

Tenía una solución de 18 caracteres que, en teoría, debería funcionar, pero PHP es extraño.

O, si quieres una respuesta xkcd:

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

EDITAR: Gracias xfix, ahora es 5 caracteres más corto y completo. EDITAR DE NUEVO: Ejemplo en vivo .

Perl 6 (18 años 16 caracteres)

print pick *,^10

Esto genera una matriz que contiene todos los elementos aleatorios (pick * ) de 0a 9y envía el resultado ( print).

Salida de muestra:

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

GolfScript, 12 caracteres

10,{;9rand}$

Simplemente genera la lista de dígitos (10, ) y la ordena de {...}$acuerdo con algunas teclas aleatorias, lo que produce un orden aleatorio de los dígitos.

Ejemplos (prueba en línea ):

4860972315

0137462985

R (23 caracteres)

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

Salida de muestra:

> 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

Octava (14)

randperm(10)-1

randperm desafortunadamente crea una selección de 1..n, por lo que debe restar 1 al final para obtener 0-9.

En el 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 demo

O algo similar (cortesía de @manatwork) usando recursividad y 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)

En lugar de crear una matriz con los números 0-9 y ordenarlos, decidí generar números aleatorios. Cuando apareció un número que aún no estaba en la matriz, lo agregó. Esto se repite diez veces y luego alerta la salida.

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

EDITAR: Gracias a Rob W , la longitud del código se reduce a 90 caracteres.

EDITAR: Gracias a George Reith , la longitud del código se reduce a 82 caracteres (usando for loop).

Forma bastante directa: elija un elemento aleatorio de la [0,1,2,3,4,5,6,7,8,9]matriz y añádalo a la salida, luego reduzca la matriz y vuelva a reproducir.

Versión anterior (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)

Versión legible:

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

Mejor versión (90 caracteres):

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

Última versión (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

Sin golf

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

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

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

K / Kona (6)

-10?10

Al igual que con J, ?es el operador del acuerdo; las -fuerzas de los valores que se repiten.

Mathematica 40

El número se crea como una cadena para permitir que se muestre cero como primer carácter, cuando sea necesario.

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

Ejemplos de salida

"0568497231"
"6813029574"

Explicación

"0"~CharacterRange~"9" es la notación infija para `CharacterRange [" 0 "," 9 "]". Cualquiera de estos devuelve la lista, {"0", "1", "2", "3", "4", "5", " 6 "," 7 "," 8 "," 9 "}.

RandomSample[list]por defecto devuelve una permutación de la lista. (También se puede usar para otros tipos de muestreo, cuando se incluyen parámetros. Por ejemplo RandomSample[list, 4], devolverá una muestra aleatoria de 4 caracteres, sin repeticiones.

Scala, 37

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

Adelante, 72

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

Todavía hay espacio para el golf, tal vez, pero Forth lo hizo difícil. Yo creo que.

Prolog, 177/302 caracteres

Soy un principiante en Prolog, por lo que probablemente este no sea el código más 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).

Devoluciones:

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

Si desea que devuelva un entero:

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

Devoluciones:

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

Usando en su lugar:

labeling([down],N)

Da los números en el orden opuesto:

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

A diferencia de otros códigos publicados, esto devuelve todas las posibilidades (sin repeticiones).

q / kdb [6 caracteres]

-10?10

generará 10 números aleatorios ú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)

Mientras se ejecuta hasta que la matriz tenga 10 elementos.

Generando un número aleatorio de 0 a 9, luego verifique si la matriz incluye este número y agréguelo a la matriz.

Esto no es mucho más pequeño que la respuesta de JMK, pero aquí hay una solución C # un poco más pequeña (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())));}}

Versión alternativa (135):

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

Comprimido:

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

Tienen la misma longitud, pero en realidad solo depende de si desea utilizar la función ForEach de Linq o la función Join de String. Pude eliminar 10 caracteres de longitud al deletrear el rango "0123456789" en una cadena en lugar de usar Enumerable.Range (0, 10).

LOGOTIPO , 64 caracteres

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

pick devuelve un elemento aleatorio de la lista suministrada. butmember devuelve la lista con todas las apariciones del elemento especificado eliminado. Nota: No todas las implementaciones de Logo admiten butmembercomandos.

Raqueta 45 43

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