Eine Lotteriegesellschaft möchte eine zufällige Lotterielosnummer mit einer Länge von 10 Zeichen generieren.

Schreiben Sie einen Code in einer beliebigen Sprache, um eine solche Zahl zu erstellen, bei der jede Ziffer nur einmal vorkommt. 9354716208In dieser Zahl kommen beispielsweise alle Ganzzahlen von 0 bis 9 nur einmal vor. Diese Nummer sollte eine Zufallszahl sein.

• Die generierte Nummer sollte auf dem Bildschirm angezeigt werden.
• Es muss in der Lage sein, alle Permutationen aller zulässigen Zeichen zu generieren.
• Der Code muss so klein wie möglich sein (in Byte).

J (4 Bytes)

Konnte nicht widerstehen.

?~10

In J ist, wenn Fdyadisch F~ xist, dasselbe wie x F x.

J, 5 Zeichen und APL, 8 Zeichen

J

10?10

J hat den eingebauten Deal Operator ( ?). Wir können also 10 von 10 nehmen ( 10?10).

APL

1-⍨10?10

APL hat den gleichen Operator, der leider mit eins anstelle von null beginnt. Wir subtrahieren daher eine von jeder Nummer ( 1-⍨XMittelwert X-1aufgrund des Pendlerbetreibers).

Python 2.7 ( 64 63 57)

Keine Chance hier im Vergleich zu den schweren Sprachen des Betreibers und wegen des Mangels an standardmäßig geladenem Zufall :) Dies ist die kürzeste, die ich mir einfallen lassen konnte;

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

Es wird ein Bereich erstellt und 10 Nummern ohne Ersatz abgetastet.

(Danke an @xfix für das kürzere Importformat und @blkknght für den Hinweis auf meinen etwas überkomplizierten Sampling-Bereich)

Python 2.7 (40)

Wenn Sie es über die interaktive Eingabeaufforderung ausführen und durch Kommas getrennt lesen können, können Sie es auf 40 setzen.

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

PHP, 29 Zeichen

<?=str_shuffle('0123456789');

Bei PHP ist das schließende Tag nicht erforderlich. Aber wenn das gegen die Regeln verstößt, können Sie es ersetzen. mit?> für 1 nettoerhöhung.

Rubin, 18

Führen Sie dies in irb:

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

Wenn Sie möchten, dass dies ein eigenständiges Programm ist, dessen Ausgabe an stdout(die Regeln scheinen dies nicht zu erfordern ), fügen Sie zu Beginn die folgenden 4 Zeichen hinzu:

$><<

PHP - 37 Zeichen

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

Ich hatte eine 18-Zeichen-Lösung, die theoretisch funktionieren sollte, aber PHP ist komisch.

Oder, wenn Sie eine xkcd-Antwort wünschen:

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

EDIT: Danke xfix, es ist jetzt 5 Zeichen kürzer und vollständig. WIEDER BEARBEITEN: Live-Beispiel .

Perl 6 (18 16 Zeichen)

print pick *,^10

Dies erzeugt ein Array mit allen zufälligen Elementen ( pick *) von 0bis 9und gibt das Ergebnis ( print) aus.

Beispielausgabe:

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

GolfScript, 12 Zeichen

10,{;9rand}$

Erzeugt einfach die Liste der Ziffern ( 10,) und sortiert sie{...}$ nach zufälligen Schlüsseln - was eine zufällige Reihenfolge der Ziffern ergibt.

Beispiele ( online versuchen ):

4860972315

0137462985

R (23 Zeichen)

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

Beispielausgabe:

> 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

Oktave (14)

randperm(10)-1

randperm schafft leider eine auswahl von 1..n, also muss man am ende 1 subtrahieren um 0-9 zu bekommen.

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

Siehe Demo

ODER etwas Ähnliches (mit freundlicher Genehmigung von @manatwork) unter Verwendung von Rekursion und 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 Zeichen)

Anstatt ein Array mit den Zahlen 0-9 zu erstellen und zu sortieren, habe ich mich entschieden, Zufallszahlen zu generieren. Wenn eine Nummer gefunden wurde, die noch nicht im Array enthalten war, wurde sie hinzugefügt. Dies wird zehnmal wiederholt und alarmiert dann die Ausgabe.

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 Zeichen

BEARBEITEN: Dank Rob W wird die Codelänge auf 90 Zeichen reduziert.

BEARBEITEN: Dank George Reith wird die Codelänge auf 82 Zeichen reduziert (mit for-Schleife).

Ganz einfach: Wählen Sie ein zufälliges Element des [0,1,2,3,4,5,6,7,8,9]Arrays und hängen Sie es an die Ausgabe an. Reduzieren Sie dann das Array und wiederholen Sie die Wiedergabe.

Alte Version (106 Zeichen):

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)

Lesbare Version:

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

Bessere Version (90 Zeichen):

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

Letzte Version (82 Zeichen):

a="0123456789".split(t='');for(l=11;--l;t+=a.splice(0|Math.random()*l,1));alert(t)

JSFiddle: http://jsfiddle.net/gthacoder/qH3t9/ .

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

Golf gespielt

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

JavaScript (80 Zeichen)

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

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

K / Kona (6)

-10?10

Ist wie bei J ?der Deal-Operator; Das -zwingt die Werte, sich nicht zu wiederholen.

Mathematica 40

Die Nummer wird als Zeichenfolge erstellt, damit bei Bedarf Null als erstes Zeichen angezeigt werden kann.

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

Ausgabebeispiele

0568497231
6813029574

Erläuterung

"0"~CharacterRange~"9" ist eine Infixnotation für "CharacterRange [" 0 "," 9 "]". Beides gibt die Liste zurück, {"0", "1", "2", "3", "4", "5", " 6, 7, 8, 9}.

RandomSample[list]Standardmäßig wird eine Permutation der Liste zurückgegeben. (Es kann auch für andere Arten der Abtastung verwendet werden, wenn Parameter enthalten sind. ZB RandomSample[list, 4]wird eine Zufallsstichprobe von 4 Zeichen ohne Wiederholungen zurückgegeben.

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

Vielleicht noch Platz zum Golfen, aber Forth machte es schwer. Ich glaube.

Prolog, 177/302 Zeichen

Ich bin ein Anfänger in Prolog, also ist dies wahrscheinlich nicht der am meisten komprimierte Code.

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

Kehrt zurück:

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

Wenn Sie möchten, dass es eine Ganzzahl zurückgibt:

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

Kehrt zurück:

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

Verwenden Sie stattdessen:

labeling([down],N)

Gibt die Zahlen in umgekehrter Reihenfolge an:

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

Im Gegensatz zu einigen anderen Codes gibt dies alle Möglichkeiten zurück (ohne Wiederholungen).

q / kdb [6 Zeichen]

-10?10

erzeugt 10 eindeutige Zufallszahlen.

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

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

Während des Betriebs, bis das Array 10 Elemente enthält.

Wenn Sie eine Zufallszahl von 0 bis 9 generieren, prüfen Sie, ob das Array diese Zahl enthält, und fügen Sie sie dem Array hinzu.

Dies ist nicht viel kleiner als die Antwort von JMK, aber hier ist eine etwas kleinere C # -Lösung (135):

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

Verdichtet (134):

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

Alternative Version (135):

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

Verdichtet:

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

Sie sind gleich lang, aber es hängt wirklich nur davon ab, ob Sie die ForEach-Funktion von Linq oder die Join-Funktion von String verwenden möchten. Ich konnte 10 Zeichen in der Länge entfernen, indem ich den Bereich "0123456789" in einer Zeichenfolge buchstabierte, anstatt Enumerable.Range (0, 10) zu verwenden.

LOGO , 64 Zeichen

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

pick gibt einen zufälligen Eintrag aus der angegebenen Liste zurück. butmember gibt eine Liste zurück, in der alle Vorkommen des angegebenen Elements entfernt wurden. Hinweis: Nicht alle Logo-Implementierungen unterstützen den butmemberBefehl.

Schläger 45 43

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