宝くじ会社は、長さが10文字のランダムな宝くじチケット番号を生成したいと考えています。

すべての数字が1回だけ来るような数字を作成するために、任意の言語でコードを記述します。たとえば9354716208、この数字では、0から9までのすべての整数が1回だけです。この番号は乱数である必要があります。

• 生成された番号が画面に表示されます。
• すべての許容文字のすべての順列を生成できる必要があります。
• コードはできるだけ小さくする必要があります（バイト単位）。

J（4バイト）

抵抗できませんでした。

?~10

Jで、Fがダイアディックの場合、はとF~ x同じx F xです。

J、5文字およびAPL、8文字

J

10?10

Jには組み込みの取引演算子（?）があります。したがって、10のうち10を取得できます（10?10）。

APL

1-⍨10?10

APLには、残念ながらゼロではなく1で始まる同じ演算子があります。したがって、我々は（各数から1を減算している1-⍨X手段X-1により通勤オペレータに）。

Python 2.7（64 63 57）

オペレーターの重い言語と比較して、ここではチャンスではありませんし、デフォルトでロードされたランダムがないためです:)これは私が思いつく最短です;

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

範囲を作成し、置換なしで10個の数値をサンプリングします。

（短いインポート形式の修正に@xfixを、私のやや複雑なサンプリング範囲を指摘してくれた@blkknghtに感謝します）

Python 2.7（40）

対話型プロンプトから実行し、カンマ区切りで読むことができる場合は、40まで削ることができますが、ルールの精神を破るような感じがします。

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

PHP、29文字

<?=str_shuffle('0123456789');

PHPでは、終了タグは必要ありません。しかし、それがルールに反する場合は、置き換えることができます; ？>で1純増加。

ルビー、18

これを実行しますirb：

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

これをスタンドアロンプ​​ログラムに出力したい場合stdout（ルールはこれを必要としないようです）、次の4つの文字を最初に追加します。

$><<

PHP-37文字

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

理論的には動作するはずの18文字のソリューションがありましたが、PHPは奇妙です。

または、xkcdの回答が必要な場合：

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

編集：おかげでxfix、5文字短くなりました。EDIT AGAIN：ライブの例。

Perl 6（18 16文字）

print pick *,^10

これによりpick *、0to からすべてのランダム要素（）を含む配列が生成され9、結果（print）が出力されます。

サンプル出力：

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

GolfScript、12文字

10,{;9rand}$

単純に数字のリスト（10,）を生成し、{...}$いくつかのランダムキーに従って並べ替えます-数字のランダムな順序が生成されます。

例（オンラインで試す）：

4860972315

0137462985

R（23文字）

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

サンプル出力：

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

TI-BASIC、5バイト

randIntNoRep(1,10

オクターブ（14）

randperm(10)-1

randperm 残念ながら、1..nから選択範囲を作成するため、最後に1を引いて0-9を取得する必要があります。

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

デモを見る

または、再帰とxmlを使用した類似のもの（@manatworkの提供）。

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文字）

0〜9の数字で配列を作成して並べ替えるのではなく、乱数を生成することにしました。まだ配列にない番号を思いついたら、それを追加しました。これは10回繰り返され、出力を警告します。

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文字

編集：Rob Wのおかげで、コード長は90文字に短縮されました。

編集：George Reithのおかげで、コード長は82文字に短縮されました（ループに使用）。

非常に簡単な方法：[0,1,2,3,4,5,6,7,8,9]配列のランダムな要素を選択して出力に追加し、配列を減らして再生します。

旧バージョン（106文字）：

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)

読み取り可能なバージョン：

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

より良いバージョン（90文字）：

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

最終バージョン（82文字）：

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バイト

非ゴルフ

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

ゴルフ

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

JavaScript（80文字）

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

JS-フィドル：http : //jsfiddle.net/IQAndreas/3rmza/

K /コナ（6）

-10?10

Jと同様に?、取引演算子です。これにより-、値が繰り返されなくなります。

Mathematica 40

番号は、必要に応じて最初の文字としてゼロを表示できるように、文字列として作成されます。

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

出力例

"0568497231"
"6813029574"

説明

"0"~CharacterRange~"9" は、 `CharacterRange [" 0 "、" 9 "]"の挿入記法です。これらのどちらも、リスト{"0"、 "1"、 "2"、 "3"、 "4"、 "5"、 "を返します。 6 "、" 7 "、" 8 "、" 9 "}。

RandomSample[list]デフォルトでは、リストの順列を返します。（パラメーターが含まれている場合、他の種類のサンプリングにも使用できます。たとえばRandomSample[list, 4]、繰り返しのない4文字のランダムサンプルを返します。

Scala、37

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

フォース、72

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

まだゴルフの余地があるかもしれませんが、フォースはこれを難しくしました。おもう。

プロローグ、177/302文字

私はPrologの初心者なので、おそらくこれは最も凝縮されたコードではないでしょう。

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

戻り値：

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

整数を返したい場合：

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

戻り値：

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

代わりに使用：

labeling([down],N)

逆の順序で数字を与えます：

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

投稿された他のコードとは異なり、これはすべての可能性を返します（繰り返しはありません）。

q / kdb [6文字]

-10?10

10個の一意の乱数を生成します。

√åı¥®ÏØ¿、4バイト

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文字

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

配列が10個の要素を持つまで実行中。

0〜9の乱数を生成し、配列！にこの数値が含まれているかどうかを確認して、配列に追加します。

これは、JMKの答えよりもそれほど小さくはありませんが、ここでは少し小さいC＃ソリューション（135）です。

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

コンパクト（134）：

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

代替バージョン（135）：

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

コンパクト化：

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

長さは同じですが、実際にはLinqのForEach関数を使用するか、StringのJoin関数を使用するかによって異なります。Enumerable.Range（0、10）を使用する代わりに、文字列の範囲「0123456789」をスペルアウトすることで、長さ10文字を削除できました。

ロゴ、64文字

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

pickは、指定されたリストのランダムなアイテムを返します。 butmemberは、指定されたアイテムのすべての出現を削除したリストを返します。 注：すべてのロゴ実装がbutmemberコマンドをサポートするわけではありません。

ラケット45 43

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