仕事

タスクは、一貫性のある任意の正の整数（厳密には0より大きい）を出力するプログラムを作成することです。キャッチは次のとおりです。ソースが回繰り返される（コードが自体に追加/連結される）場合、プログラムは確率でを出力し、残りの確率でそのまま出力する。$x$$N$$N-1$$\dfrac{1}{N}$$N\cdot x$$\dfrac{N-1}{N}$$x$

例

最初のソースがXYZintegerであり、integerを生成すると仮定しましょう3。次に：

• 以下のための：出力すべきの確率で（時間の50％）、およびの確率で、ならびに（50時間の割合）。$N=2$XYZXYZ$3$$\frac{1}{2}$$2\cdot 3=6$$\frac{1}{2}$

• 以下のための：出力すべきの確率で（時間の66.666パーセント）との確率での（33.333パーセント時間）$N=3$XYZXYZXYZ$3$$\frac{2}{3}$$3\cdot 3=9$$\frac{1}{3}$

• 以下のための：出力すべきの確率で（時間の75％）、および の確率での（25％時間）$N=4$XYZXYZXYZXYZ$3$$\frac{3}{4}$$4\cdot 3=12$$\frac{1}{4}$

等々....

ルール

• 完全なプログラムを作成する必要があります。出力はSTDOUTに出力する必要があります。

• あなたのプログラムは、理論的には、上記の確率で各可能な値を出力するはずですが、ランダムの実装によるこれからのわずかな逸脱は問題ありません（実装が異なる分布ではない場合-あなたは使用できませんバイトを節約するための正規分布）。

• プログラムは、任意の大きな値について（再び、理論的には）動作するはず、しかし精度に起因する技術的な制限は、大規模の罰金です。$N$$N$

• 出力は基数10でなければなりません（他の基数または科学表記法での出力は禁止されています）。末尾/先頭のスペースと先頭のゼロは許可されます。

• 最初のソースは（もちろん）少なくとも1バイト長でなければなりません。ソースのコピー間で改行を使用することはできません。プログラムは入力を受け付けてはなりません（または未使用の空の入力を使用しないでください）。

• これはcode-golfであるため、回答のスコアは（元の）ソースの長さ（バイト単位）であり、スコアが低いほど優れています。

_{^{注：この挑戦はの（かなり）難しいバージョンです、この1。}}

R、66 35バイト

digEmAllのおかげで-29バイト。

-2のおかげバイトジュゼッペ。

+0->A
x=!0:F
F=F+1
sample(F*x+!x,1)

オンラインでお試しください！

N = 4の分布を確認します。

キーは右向きの割り当て->です。コードが回乗算されると、への最初の呼び出しがに割り当てられ、最後の呼び出しのみが出力されます。$N$$N-1$sampleA

元の、より複雑なソリューション：

R、66バイト

T->TT
F=F+1
TT=0
`?`=function(x)if(x)sample(c(1,F),1,,c(1,F-1))
?T

オンラインでお試しください！

オンラインで試してください（3回繰り返します）！

使用する2つのトリック：1）は、関心の主な機能を呼び出す?我々はブラケットを使用してプログラムを終了せずに、それを呼び出すことができるようにということと、2）使用変数TとTTで始まるコードで、Tとして終了?T。

F反復カウンターです。?ブール引数を取る関数として再定義されます：の入力?がTRUE（またはT）の場合、必要なランダムサンプリングを行います。入力がFALSE（または0）の場合、何もしません。の値はTTとして定義されている0ため?T、サンプリングは実行されますが、?TT何も実行されません。

ソースが繰り返されると、次のようになります。

T->TT
F=F+1
TT=0
`?`=function(x)if(x)sample(c(1,F),1,,c(1,F-1))
?TT->TT
F=F+1
TT=0
`?`=function(x)if(x)sample(c(1,F),1,,c(1,F-1))
?T

そのため、中央の呼び出しは?TT何も出力せず、最後の呼び出し?Tはランダムな結果を出力します。

Pythonの3、81の 79バイト

+0if[]else 1
from random import*
try:n+=1
except:n=1
print([1,n][random()*n<1])

オンラインでお試しください！

@西岡のおかげで-1バイト

これは、プログラムソースに直接アクセスしないPython 3ソリューションの1つです。Python 3でこれを行うことは、通常の印刷ステートメントが閉じ括弧で終わるため、Python 2よりも困難です。そのため、最初のソースの次のブロックでその動作を変更する選択肢は多くありません。Python 3でもっとクリエイティブなソリューションを見るのは面白いでしょう。

Bash、31バイト

trap echo\ $[RANDOM%++n?1:n] 0;

オンラインでお試しください！

trap ... 0終了時に含まれるコードを実行します。繰り返しtrapsは古いものを上書きします。引用符なし$[arithmetic expansion]は、新しいトラップが設定されるたびに実行されます。

Zshは1バイトを保存できます<<<：

trap "<<<$[RANDOM%++n?1:n]" 0;

ゼリー、7バイト

‘ɼḷXỊ®*

オンラインでお試しください！

05AB1E、7バイト

¾Å1¼¾ªΩ

オンラインでお試しください！

Pythonの3、78の 76 75バイト

投稿されたリンクと同じトリックを使用して、Pythonのもの（x = 1）を使用します。

from random import*;n=len(*open(__file__))//75;print(1+~-n*(random()<1/n))#

オンラインでお試しください！

西岡のおかげで-1バイトよりも高い優先順位を持つ(n-1)式のためのXcoder氏のおかげで-2バイト~-n*

Dyalog APL、25 24 23 22 21バイト

0{×⍺:1+⍵⋄⎕←1⌈⍵×1=?⍵}1

オンラインでお試しください！

ガイア、17 15 14 13バイト

Øgl13÷:(1w&+ṛ

オンラインでお試しください！

Øg昨日、ドキュメントを調べたときにランダムに気づいたので、非常に役立ちました。

Perl 5の、28の 26バイト

@Grimyのおかげで-2バイト

1 if!++$x;say 1<rand$x||$x

TIO

ルビー、40バイト

1
n||=@x=0
n+=1
puts 1>rand(n)?n:1 if @x

オンラインでお試しください！

オンラインで試してください（3回コピー）！

このPython回答の rubyポート。

ルビー、38バイト

ファイルを読み取ることで2バイト節約されます。

n=File.size($0)/38;puts 1>rand(n)?n:1#

オンラインでお試しください！

ルーン文字のエンチャント、31バイト

UwR'10<;$\
I+:'RA0)?/1$;
1
l;
y

オンラインでお試しください！

この回答と同じ構造を使用して、ソースが複製された回数をカウントします。

リストのn番目の数値を出力する代わりに、その値を使用してランダムに数値を生成し、結果が0でない場合は1を出力し、そうでない場合はその数値を出力します。

Japt、9 8 バイト

(°Tö)ΪT

テストする | 倍増 | 10回の繰り返し後の10000実行の3倍
検証分布

(°Tö)ΪT
(            :Prevent the operator that follows from being implicitly applied to the first input variable, U
 °T          :Increment T (initially 0) by 1
   ö         :Random element in the range [0,T)
    )        :Closing the parentheses here instead of after the T saves a byte as there would need to be a space here to close the random method
     Î       :Sign - 0 (falsey) or 1 (truthy)
      ªT     :Logical OR with current value of T

オリジナル、13 11 10 9バイト

末尾のスペースに注意してください。

NoÎp°T ö 

テストする | 倍増 | 10回の繰り返し後の10000実行の3倍
検証分布

NoÎp°T ö 
N             :Initially, the (empty) array of inputs
 o            :Replace the last element with
  Î           :  Its sign (always 1)
   p          :Push
    °T        :  T (initially 0) incremented
       ö      :Random element of N

JavaScript（JavaScriptシェル71）、78バイト

(async x=>x)().then(x=>f((''+f).length/78));f=x=>print(1-~x*Math.random()|0)//

TIOリンクがありません。TIOのspidermonkeyは古すぎます...

Firefox（Spidermonkey）はコメントを関数の一部と見なしますf。結果として、(''+f).lengthするb+79n場合、ソースコードの時間は、B <78、及び（N + 1）が繰り返されます。

このバグ（？_{^{よくわかりません。インタープリターよりもJavaScript仕様のバグであることが望ましい}}）の動作は、この回答が投稿された直後に他の誰かによってBMOに送信されていました：https : //bugzilla.mozilla.org/ show_bug.cgi？ID = 1579792。（bmoスレッドもツイートも私によって投稿されていません。）

C＃（Visual C＃Interactive Compiler）、133 114 112バイト

これは、C＃プリプロセッサディレクティブを使用した最初の（そして、できれば最後の）時間です。

#if!I
#define I
static int i;
class p{~p()=>Console.Write(new Random().Next(i)<1?i:1);}p s=new p();
#endif
i++;

オンラインでお試しください！

炭、12バイト

⎚Ｉ⎇‽Ｌ⊞Ｏυω¹Ｌυ

オンラインでお試しください！リンクされた質問に対する私の回答に基づきます。それ以外の場合はn、確率¹/ₙで出力します1。説明：

⎚               Remove output from previous iterations
       υ        Initially empty list
        ω       Empty string
     ⊞Ｏ         Push
    Ｌ           Length
   ‽            Random integer [0..length)
  ⎇             Ternary
         ¹      If nonzero then literal 1
          Ｌυ    If zero then the new length
 Ｉ              Cast to string for implicit print