Une société de loterie souhaite générer un numéro de ticket de loterie aléatoire de 10 caractères.

Écrivez un code dans n'importe quelle langue pour créer un tel nombre dans lequel chaque chiffre ne vient qu'une fois par exemple 9354716208dans ce nombre tous les entiers de 0 à 9 ne viennent qu'une seule fois. Ce nombre doit être un nombre aléatoire.

• Le numéro généré doit être affiché à l'écran.
• Il doit être capable de générer toutes les permutations de tous les caractères autorisés.
• Le code doit être aussi petit que possible (en octets).

J (4 octets)

Je n'ai pas pu résister.

?~10

En J, si Fest dyadique, F~ xest le même que x F x.

J, 5 caractères et APL, 8 caractères

J

10?10

J a l'opérateur de transaction intégré ( ?). Ainsi, nous pouvons prendre 10 sur 10 ( 10?10).

APL

1-⍨10?10

APL a le même opérateur qui commence malheureusement par un au lieu de zéro. Nous soustrayons donc un de chaque nombre ( 1-⍨Xmoyennes X-1dues à l'opérateur de navette).

Python 2.7 ( 64 63 57)

Pas une chance ici par rapport aux langages lourds de l'opérateur et en raison de l'absence de chargement aléatoire par défaut :) C'est le plus court que j'ai pu trouver;

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

Il crée une plage et en échantillonne 10 numéros sans remplacement.

(Merci à @xfix pour le correctif de format d'importation plus court et à @blkknght pour avoir souligné ma plage d'échantillonnage un peu compliquée)

Python 2.7 (40)

Si vous l'exécutez à partir de l'invite interactive et pouvez lire les virgules séparées, vous pouvez le raser à 40, mais cela ressemble un peu à briser l'esprit des règles;

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

PHP, 29 caractères

<?=str_shuffle('0123456789');

Avec PHP, la balise de fermeture n'est pas requise. Mais si c'est contraire aux règles, vous pouvez remplacer; avec?> pour 1 augmentation nette.

Rubis, 18

Exécutez ceci dans irb:

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

Si vous voulez que ce soit un programme autonome, avec une sortie vers stdout(les règles ne semblent pas l' exiger ), ajoutez ces 4 caractères au début:

$><<

PHP - 37 caractères

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

J'avais une solution à 18 caractères qui devrait théoriquement fonctionner mais PHP est bizarre.

Ou, si vous voulez une réponse xkcd:

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

EDIT: Merci xfix, il est maintenant 5 caractères plus court et complet. MODIFIER ENCORE: Exemple en direct .

Perl 6 (18 16 caractères)

print pick *,^10

Cela génère un tableau contenant tous les éléments aléatoires ( pick *) de 0vers 9et génère le résultat ( print).

Exemple de sortie:

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

GolfScript, 12 caractères

10,{;9rand}$

Génère simplement la liste des chiffres ( 10,) et la trie {...}$selon certaines clés aléatoires - ce qui donne un ordre aléatoire des chiffres.

Exemples (essayez en ligne ):

4860972315

0137462985

R (23 caractères)

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

Exemple de sortie:

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

TI-BASIC, 5 octets

randIntNoRep(1,10

Octave (14)

randperm(10)-1

randperm crée malheureusement une sélection de 1..n, il faut donc soustraire 1 à la fin pour obtenir 0-9.

Dans le serveur 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))

Voir la démo

OU quelque chose de similaire (gracieuseté de @manatwork) en utilisant récursivité et 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 caractères)

Plutôt que de créer un tableau avec les nombres 0-9 et de le trier, j'ai décidé de générer des nombres aléatoires. Quand il est venu avec un nombre qui n'était pas déjà dans le tableau, il l'a ajouté. Cela se répète dix fois, puis alerte la sortie.

for(a="";!a[9];){~a.indexOf(b=~~(Math.random()*10))||(a+=b)}alert(a)

Mathematica, 27

Row@RandomSample@Range[0,9]

Coquille / Coreutils, 23

shuf -i0-9|paste -sd ''

JavaScript, 82 caractères

EDIT: Grâce à Rob W , la longueur du code est réduite à 90 caractères.

EDIT: Merci à George Reith , la longueur du code est réduite à 82 caractères (en utilisant pour la boucle).

Méthode assez simple: choisissez un élément aléatoire du [0,1,2,3,4,5,6,7,8,9]tableau et ajoutez-le à la sortie, puis réduisez le tableau et relisez.

Ancienne version (106 caractères):

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)

Version lisible:

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

Meilleure version (90 caractères):

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

Dernière version (82 caractères):

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 octets

Non golfé

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

Golfé

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

JavaScript (80 caractères)

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

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

K / Kona (6)

-10?10

Comme avec J, ?est l'opérateur de transaction; la -force les valeurs à ne pas se répéter.

Mathematica 40

Le nombre est créé sous forme de chaîne de manière à permettre d'afficher zéro en tant que premier caractère, si nécessaire.

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

Exemples de sortie

"0568497231"
"6813029574"

Explication

"0"~CharacterRange~"9" est la notation infixe pour `CharacterRange [" 0 "," 9 "]". L'une ou l'autre renvoie la liste, {"0", "1", "2", "3", "4", "5", " 6 "," 7 "," 8 "," 9 "}.

RandomSample[list]renvoie par défaut une permutation de la liste. (Il peut également être utilisé pour d'autres types d'échantillonnage, lorsque des paramètres sont inclus. Par exemple, RandomSample[list, 4]il renverra un échantillon aléatoire de 4 caractères, sans répétition.

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

Peut-être encore au golf, mais Forth a rendu celui-ci difficile. Je pense.

Prolog, 177/302 caractères

Je suis un débutant sur Prolog, donc ce n'est probablement pas le code le plus condensé.

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

Retour:

| ?- 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 vous voulez qu'il renvoie un entier:

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

Retour:

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

Utiliser à la place:

labeling([down],N)

Donne les nombres dans l'ordre inverse:

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

Contrairement à certains autres codes publiés, cela renvoie toutes les possibilités (sans répétitions).

q / kdb [6 caractères]

-10?10

générera 10 nombres aléatoires uniques.

√ å ı ¥ ® Ï Ø ¿ , 4 octets

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 caractères

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

Pendant l'exécution jusqu'à ce que le tableau comporte 10 éléments.

Générez un nombre aléatoire de 0 à 9, puis vérifiez si le tableau! Inclut ce nombre et ajoutez-le au tableau.

Ce n'est pas beaucoup plus petit que la réponse de JMK, mais voici une solution C # légèrement plus petite (135):

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

Compacté (134):

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

Version alternative (135):

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

Compacté:

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

Ils sont de longueur égale, mais cela dépend vraiment de si vous souhaitez utiliser la fonction ForEach de Linq ou la fonction Join de String. J'ai pu supprimer 10 caractères en épelant la plage "0123456789" dans une chaîne au lieu d'utiliser Enumerable.Range (0, 10).

LOGO , 64 caractères

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

pick renvoie un élément aléatoire de la liste fournie. butmember renvoie une liste avec toutes les occurrences de l'élément spécifié supprimées. Remarque: toutes les implémentations de logo ne prennent pas en charge la butmembercommande.

Raquette 45 43

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