Firma loteryjna chce wygenerować losowy los o długości 10 znaków.

Napisz kod w dowolnym języku, aby utworzyć taki numer, w którym każda cyfra występuje tylko raz, na przykład 9354716208w tym numerze wszystkie liczby całkowite od 0 do 9 występują tylko raz. Ta liczba powinna być liczbą losową.

• Wygenerowany numer powinien zostać wyświetlony na ekranie.
• Musi być w stanie wygenerować wszystkie permutacje wszystkich dozwolonych znaków.
• Kod musi być jak najmniejszy (w bajtach).

J (4 bajty)

Nie mogłem się oprzeć.

?~10

W J, jeśli Fjest dyadyczny, F~ xjest taki sam jak x F x.

J, 5 znaków i APL, 8 znaków

jot

10?10

J ma wbudowany operator transakcji ( ?). Zatem możemy wziąć 10 z 10 ( 10?10).

APL

1-⍨10?10

APL ma tego samego operatora, który niestety zaczyna się od jednego zamiast zera. W związku z tym odejmujemy jeden od każdego numeru ( 1-⍨Xoznacza X-1to operator dojeżdżania do pracy).

Python 2.7 ( 64 63 57)

Tu nie ma szans w porównaniu do ciężkich języków operatora i ze względu na brak domyślnie ładowanego losowego :) To jest najkrótszy jaki mogłem wymyślić;

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

Tworzy zakres i pobiera z niego 10 liczb bez zamiany.

(Dzięki @xfix za krótszą poprawkę formatu importu i @blkknght za wskazanie mojego nieco über skomplikowanego zakresu próbkowania)

Python 2.7 (40)

Jeśli uruchomisz go z interaktywnego monitu i odczytasz przecinek, możesz go ogolić do 40, ale to trochę przypomina łamanie ducha reguł;

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

PHP, 29 znaków

<?=str_shuffle('0123456789');

W PHP tag zamykający nie jest wymagany. Ale jeśli jest to niezgodne z regułami, możesz je wymienić; z?> za 1 wzrost netto.

Ruby, 18 lat

Uruchom to w irb:

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

Jeśli chcesz, aby był to samodzielny program z wyjściem na stdout (reguły nie wymagają tego), to dodaj te 4 znaki na początku:

$><<

PHP - 37 znaków

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

Miałem 18-znakowe rozwiązanie, które teoretycznie powinno działać, ale PHP jest dziwne.

Lub jeśli chcesz odpowiedź xkcd:

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

EDYCJA: Dzięki xfix, teraz jest o 5 znaków krótszy i kompletny. PONOWNIE EDYCJA: Przykład na żywo .

Perl 6 (18 16 znaków)

print pick *,^10

Generuje tablicę zawierającą wszystkie losowe elementy ( pick *) od 0do 9i wyświetla wynik ( print).

Przykładowe dane wyjściowe:

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

GolfScript, 12 znaków

10,{;9rand}$

Po prostu generuje listę cyfr ( 10,) i sortuje ją{...}$ według losowych kluczy - co daje losową kolejność cyfr.

Przykłady (spróbuj online ):

4860972315

0137462985

R (23 znaki)

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

Przykładowe dane wyjściowe:

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

TI-BASIC, 5 bajtów

randIntNoRep(1,10

Oktawa (14)

randperm(10)-1

randperm niestety tworzy selekcję od 1..n, więc odejmij 1 na końcu, aby uzyskać 0-9.

Na serwerze 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))

Zobacz demo

LUB coś podobnego (dzięki uprzejmości @manatwork) przy użyciu rekurencji i 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 znaków)

Zamiast tworzyć tablicę z liczbami 0–9 i sortować ją, postanowiłem wygenerować liczby losowe. Kiedy pojawił się numer, który nie był jeszcze w tablicy, dodał go. Powtarza się to dziesięć razy, a następnie powiadamia o wynikach.

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 znaki

EDYCJA: Dzięki Rob W długość kodu jest zmniejszona do 90 znaków.

EDYCJA: Dzięki George'owi Reithowi długość kodu jest zmniejszona do 82 znaków (przy użyciu pętli).

Całkiem prosty sposób: wybierz losowy element [0,1,2,3,4,5,6,7,8,9]tablicy i dołącz go do wyniku, a następnie zmniejsz tablicę i odtwórz ponownie.

Stara wersja (106 znaków):

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)

Wersja do odczytu:

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

Lepsza wersja (90 znaków):

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

Ostatnia wersja (82 znaków):

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 bajtów

Bez golfa

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

Grał w golfa

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

JavaScript (80 znaków)

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

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

K / Kona (6)

-10?10

Podobnie jak w przypadku J, ?operator transakcji; gdy -siły te wartości, aby nie powtarzać.

Mathematica 40

Liczba jest tworzona jako ciąg znaków, aby w razie potrzeby wyświetlać zero jako pierwszy znak.

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

Przykłady wyników

„0568497231”
„6813029574”

Wyjaśnienie

"0"~CharacterRange~"9" to notacja infix dla „CharacterRange [„ 0 ”,„ 9 ”]”. Każda z tych zwraca listę, {„0”, „1”, „2”, „3”, „4”, „5”, „ 6 ”,„ 7 ”,„ 8 ”,„ 9 ”}.

RandomSample[list]domyślnie zwraca permutację listy. (Może być również użyty do innych rodzajów próbkowania, gdy uwzględnione są parametry. Np. Zwróci losową RandomSample[list, 4]próbkę 4 znaków, bez powtórzeń.

Scala, 37

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

Czwarty, 72

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

Może jeszcze pole do gry w golfa, ale Forth utrudnił mu grę. Myślę.

Prolog, 177/302 znaków

Jestem początkującym w Prologu, więc prawdopodobnie nie jest to najbardziej skondensowany kod.

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

Zwroty:

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

Jeśli chcesz, aby zwracał liczbę całkowitą:

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

Zwroty:

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

Zamiast tego użyj:

labeling([down],N)

Podaje liczby w odwrotnej kolejności:

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

W przeciwieństwie do niektórych innych kodów, zwraca wszystkie możliwości (bez powtórzeń).

q / kdb [6 znaków]

-10?10

wygeneruje 10 unikalnych liczb losowych.

√ å ı ¥ ® Ï Ø ¿ , 4 bajty

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 znaki

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

Podczas pracy, aż tablica ma 10 elementów.

Generując losową liczbę od 0 do 9, sprawdź, czy tablica! Zawiera ten numer i dodaj go do tablicy.

To niewiele mniej niż odpowiedź JMK, ale oto nieco mniejsze rozwiązanie C # (135):

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

Zagęszczony (134):

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

Alternatywna wersja (135):

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

Zagęszczony:

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

Są równej długości, ale tak naprawdę zależy to tylko od tego, czy chcesz użyć funkcji ForEach Linqa, czy funkcji Dołączenia ciągu. Byłem w stanie usunąć 10 znaków, przeliterując zakres „0123456789” w ciągu zamiast używać Enumerable.Range (0, 10).

LOGO , 64 znaki

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

wybierz zwraca losowy element z dostarczonej listy. butmember zwraca listę z usuniętymi wszystkimi wystąpieniami określonego elementu. Uwaga: Nie wszystkie butmemberpolecenia obsługujące implementacje logo .

Rakieta 45 43

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