Bir piyango şirketi, 10 karakter uzunluğunda rastgele bir piyango bileti numarası oluşturmak istiyor.

Her rakamın sadece bir kez geldiği böyle bir sayı oluşturmak için herhangi bir dilde bir kod yazın, örneğin 9354716208bu sayıda 0 ila 9 arasındaki tüm tamsayılar sadece bir kez gelir. Bu sayı rastgele bir sayı olmalıdır.

• Oluşturulan numara ekranda gösterilmelidir.
• İzin verilen tüm karakterlerin tüm permütasyonlarını oluşturabilmelidir.
• Kodun olabildiğince küçük olması gerekir (bayt cinsinden).

J (4 bayt)

Direnemedi.

?~10

J'de, eğer Fikili F~ xise, aynıdır x F x.

J, 5 karakter ve APL, 8 karakter

J

10?10

J yerleşik anlaşma operatörüne ( ?) sahiptir. Böylece, 10 üzerinden 10 alabiliriz ( 10?10).

APL

1-⍨10?10

APL aynı işleve sahiptir ve maalesef sıfır yerine bir ile başlar. Bu nedenle her sayıdan bir tane çıkarıyoruz ( işe gidip gelme operatörüne bağlı 1-⍨Xaraçlar X-1).

Python 2.7 ( 64 63 57)

Burada bir şans değil operatör ağır dil ve varsayılan yüklü rastgele eksikliği nedeniyle :) Bu ben gelebilir en kısa;

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

Bir aralık oluşturur ve değiştirmeden ondan 10 sayı örnekler.

(Daha kısa içe aktarma biçimi düzeltmesi için @xfix ve biraz karmaşık örnekleme aralığımı belirtmek için @blkknght sayesinde)

Python 2,7 (40)

Etkileşimli istemden çalıştırırsanız ve virgülle ayrılmış olarak okuyabilirseniz, 40'a tıraş olabilirsiniz, ancak kuralların ruhunu kırmak gibi bir şey hisseder;

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

PHP, 29 karakter

<?=str_shuffle('0123456789');

PHP ile kapanış etiketi gerekli değildir. Ancak bu kurallara aykırı ise, değiştirebilirsiniz; ?> 1 net artış için.

Yakut, 18

Bunu şurada çalıştır irb:

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

Bunun çıktı olarak stdout(kurallar bunu gerektirmiyor gibi görünüyor ) bağımsız bir program olmasını istiyorsanız , bu 4 karakteri başlangıçta ekleyin:

$><<

PHP - 37 Karakter

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

Teorik olarak çalışması gereken 18 karakterli bir çözümüm vardı ama PHP garip.

Veya, bir xkcd cevabı istiyorsanız:

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

EDIT: Teşekkürler xfix, şimdi 5 karakter daha kısa ve eksiksiz. TEKRAR DÜZENLE: Canlı örnek .

Perl 6 (18 16 karakter)

print pick *,^10

Bu, tüm rastgele elemanları ihtiva eden bir dizi (oluşturur pick *den) 0için 9ve sonuç verir ( print).

Örnek çıktı:

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

GolfScript, 12 karakter

10,{;9rand}$

Sadece rakamların listesini oluşturur (10, ) oluşturur ve {...}$bazı rastgele tuşlara göre sıralar - bu rakamlar rastgele bir sıra verir.

Örnekler ( çevrimiçi deneyin ):

4860972315

0137462985

R (23 karakter)

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

Örnek çıktı:

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

TI-BASIC, 5 bayt

randIntNoRep(1,10

Oktav (14)

randperm(10)-1

randperm ne yazık ki 1..n arasından bir seçim oluşturur, bu yüzden 0-9 elde etmek için sonunda 1 çıkarmak zorunda.

Sql sunucusunda

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

Demoya Bakın

VEYA özyineleme ve xml kullanarak benzer bir şey (@manatwork izniyle).

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

0-9 sayıları içeren bir dizi oluşturmak ve sıralamak yerine rastgele sayılar üretmeye karar verdim. O sırada dizide olmayan bir sayı bulduğunda ekledi. Bu, on kez tekrarlanır ve ardından çıkışı uyarır.

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

Mathematica, 27

Row@RandomSample@Range[0,9]

Kabuk / Coreutils, 23

shuf -i0-9|paste -sd ''

JavaScript, 82 karakter

EDIT: Rob W sayesinde , kod uzunluğu 90 karaktere azalır.

EDIT: sayesinde George Reith , kod uzunluğu (döngü kullanarak) 82 karaktere azalır.

Oldukça basit bir yol: [0,1,2,3,4,5,6,7,8,9]dizinin rastgele elemanını seçin ve çıktıya ekleyin, sonra diziyi azaltın ve tekrar oynatın.

Eski sürüm (106 karakter):

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)

Okunabilir sürüm:

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

Daha iyi sürüm (90 karakter):

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

Son sürüm (82 karakter):

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 bayt

Ungolfed

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

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

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

K / Kona (6)

-10?10

J'de ?olduğu gibi, anlaşma operatörüdür; -için kuvvetler değerler tekrarlamayın.

Mathematica 40

Sayı, gerektiğinde sıfırın ilk karakter olarak görüntülenmesini sağlayacak şekilde dize olarak oluşturulur.

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

Çıktı örnekleri

"0568497231"
"6813029574"

açıklama

"0"~CharacterRange~"9" "CharacterRange [" 0 "," 9 "]" için infix gösterimidir. Bunlardan biri {"0", "1", "2", "3", "4", "5", " 6" , "7", "8", "9"}.

RandomSample[list]varsayılan olarak listenin bir permütasyonunu döndürür. (Parametreler dahil edildiğinde diğer örnekleme türleri için de kullanılabilir. Örneğin RandomSample[list, 4], tekrarlamadan 4 karakterlik Rastgele bir örnek döndürür.

Scala, 37

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

Dördüncü, 72

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

Oda hala golf, belki, ama Forth bu bir zor yaptı. Bence.

Prolog, 177/302 karakter

Ben Prolog bir acemi değilim, bu yüzden muhtemelen bu en yoğun kod değil.

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

İadeler:

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

Bir tamsayı döndürmesini istiyorsanız:

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

İadeler:

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

Bunun yerine:

labeling([down],N)

Sayıları ters sırada verir:

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

Gönderilen diğer bazı kodların aksine, bu tüm olasılıkları döndürür (tekrarlama olmadan).

q / kdb [6 karakter]

-10?10

10 benzersiz rastgele sayı üretecektir.

By å ı ¥ ® Ï Ø ¿ , 4 bayt

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 karakter

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

Dizi 10 elemente kadar koşarken.

0 - 9 arasında rastgele sayı üreterek dizi! 'Nin bu sayıyı içerip içermediğini kontrol edin ve diziye ekleyin.

Bu JMK'nın cevabından çok daha küçük değil, ama burada biraz daha küçük bir C # çözümü (135):

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

Sıkıştırılmış (134):

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

Alternatif versiyon (135):

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

sıkıştırılmış:

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

Uzunlukları eşittir, ancak gerçekten Linq'in ForEach işlevini mi yoksa String'in Birleştirme fonksiyonunu mu kullanmak istediğinize bağlıdır. Enumerable.Range (0, 10) kullanmak yerine bir dizede "0123456789" aralığını yazarak 10 karakteri kaldırabildim.

LOGO , 64 karakter

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

pick , verilen listenin rastgele öğesini döndürür. butmember , belirtilen öğenin tüm tekrarlarının kaldırıldığı listeyi döndürür. Not: Tüm Logo uygulamaları butmemberkomutu desteklemez .

Raket 45 43

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