単純なコードゴルフの課題が十分にないためです。

整数1≤N≤10000が与えられた場合、任意の名前のないプログラムまたは関数を作成し、1 / Nの擬似乱数確率で言語のTrue値を出力します。

命名の要件が削除されたことに注意してください。回答とスコアを適宜編集してください。

一部の言語では、1（または-1）と0とTrueとFalseを使用します。

例：

入力テストの例：

4 -> True
4 -> False
4 -> False
4 -> False
4 -> False
4 -> True
4 -> False
4 -> False

つまり、4が与えられます。25％の確率でTrueを返し、75％の確率でFalseを返します。

ParserFunctionsを含む MediaWikiテンプレート、48バイト

{{#ifexpr:1>{{#time:U}} mod {{{n}}}|true|false}}

Pyth、3バイト

!OQ

オンラインで試す

0から入力までのランダムな選択の単純な反転

面白いことに、Pythでは$Pyth関数が自動的にメモされるため、これを行わない関数を作成することはできません。

CJam、5バイト

これらのものを使って迅速に...

rimr!

ここでテストしてください。

説明

ri e# Read input and convert to integer N.
mr e# Get a uniformly random value in [0 1 ... N-1].
!  e# Logical NOT, turns 0 into 1 and everything else into 0.

TI-BASIC、1バイトトークンを使用した4バイト

not(int(Ansrand

入力の整数部分に[0,1）の乱数を掛けた値がゼロかどうかを判定します。Ansrand<1動作します。

MATL、5バイト

これの3つの異なるバージョン、すべて長さ5。

iYr1=

入力（i）を受け取り、1からその数値（Yr）の間のランダムな整数を生成し、それが1（1=）に等しいかどうかを確認します。あるいは、

li/r>

1（l、1i現時点でのバグがあるための回避策）を作成し、入力（i）を取得し、1 / N（/）を取得するために分割し、0から1（r）の間の乱数を作成し、数が1 / Nより小さい。または、

ir*1<

入力して（i）、0から1の間の乱数を乗算し（r*）、結果が1より小さいかどうかを確認します（1<）。

MATLではなくMatlabで、この匿名関数を実行できます

@(n)n*rand<1

ans(5)たとえば、12バイトを使用します。

JavaScript ES6、15バイト

Downgoatのおかげで-5バイト。

x=>1>new Date%x

この回答の手法に基づいています。

ジュリア、17 16 15バイト

n->2>rand(1:n)

これは、1からn2までのランダムな整数を生成し、2未満かどうかをテストする関数です。これが発生する可能性は1 / nであり、したがって1 / nが返される可能性がありtrueます。

Thomas Kwaのおかげで1バイト節約できました！

Microscript II、3バイト

NR!

整数を読み取り、と（両端を含む）のn間のランダムな整数を生成し、その値にブール否定を適用します。0n-1

キャンディ、2バイト

Hn

HはHeisen-doubleの略です

nはnotを表します

'n'は、数値入力として-iフラグとともに渡されます。スタックに残っている値は、終了時に出力されます。

"長い形式：

rand   # number between 0 and pop()
not    # cast to int, invert non-zero to zero, and zero to one

真剣に、3バイト

,JY

0偽りで1あり、真実です。オンラインで試す

説明：

,JY
,    get input
 J   push a random integer in range(0, input) ([0, ..., input-1])
  Y  logical not: push 0 if truthy else 1  

R、30 22バイト

コード

cat(runif(1)<1/scan())          #new
f=function(N)cat(runif(1)<1/N)  #old

均一な分布（0〜1）から数値を生成し、真の1 / n回と評価する必要があります。

Japt、6バイト

1>U*Mr

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

MrJSに相当しMath.randomます。残りはかなり明白です。おそらく、0と数値の間のランダムな浮動小数点を生成する数値関数を追加できます。これが発生すると、2バイトが保存されます。

1>Ur    // Doesn't currently work

代替バージョン：

1>Ð %U

Ðはに相当しnew Date(、Dateオブジェクトは、数値への変換を求められると、ミリ秒単位の現在のタイムスタンプになります。したがって、msごとに複数回実行しない限り、これは完全にランダムです。

Marbelous、21バイト

}0    # takes one input n
--    # decrements n
??    # random value from range 0..n (inclusive)
=0?0  # push right if not equal to 0, fall through otherwise | convert to zero
++    # increment | no-op
{0//  # output | push left

私が撮影した0falseyすると1Marbelousとして見ては本当に場合は持っていないことには本当の理由がないのに、truthyします。{0trueおよび{>falseの場合、より多くのMarbelousyが出力されます。これは次のようになります。

}0
--
??
=0{>
{0

しかし、それが有効かどうかはわかりません。

APL、6 3バイト

+=?

これは、整数を取り、1または0（APLのtrue / false）を返す関数トレインです。を使用して1から入力までのランダムな整数を生成し?、入力がその整数に等しいかどうかを確認します。その結果、1 /入力の可能性が真になります。

Thomas Kwaのおかげで3バイト節約できました！

PlatyPar、3バイト

#?!

#?乱数取得する入力です。 それより前の数値の場合はを返し、そうでない場合はを返します。[0,n)n!true0false

この質問が聞かれる前に実装された最新の機能を使用します（ただし、残念ながらコミットしていません）~! 。Tryit onlineで 2に下げることができます！

Java、43バイト

boolean b(int a){return a*Math.random()<1;}

C、24バイト

f(n){return!(rand()%n);}

> <>、-v = 30バイトの場合は27 + 3

ここに、0または1の15876個のランダムピックの合計をNで修正する、すべてが不均一なソリューションがあります。

0"~":*>:?vr%0=n;
1-$1+$^-1x

Nは-vフラグを使用してスタックに入力する必要があり、出力は偽の場合は0、真実の場合は1です。

代わりに1/2 ^ Nで機能するはるかにスマートで均一なソリューション：

4{:?!v1-}:">"$2p:"x"$3p:"^"$4p1+:">"$3p1+!
   ^1<
0n;
1n;>
 

入力3の場合、1/8の確率で1を獲得し、7/8の確率で0を獲得します。

説明 ：

x4行目に必要なだけ追加し、それらを方向で囲みます。そのため、2つの方法しかありませんx：偽出力または次のいずれかxです。すべてxが正しい方向に進むと、最後のものが真実の出力にルーティングされます。

たとえば、N = 5の場合、最終的なコードスペースは次のとおりです。

4{:?!v1-}:">"$2p:"x"$3p:"^"$4p1+:">"$3p1+!
   ^1<
0n; > > > > >
1n;>x>x>x>x>x>
    ^ ^ ^ ^ ^

Mathematica、18 16バイト

#RandomReal[]<1&

基本的なソリューション。名前のない人Functionは、[0、1）に乱数を作成し、その引数に乗算し、まだ1より小さいかどうかを確認します。

Python、42バイト

import random
lambda n:1>random.random()*n

編集：time.time()配布のために答えを削除しました。

TeaScript、3バイト

!N×

ここで試してみてください。

説明

 N  maps to Math.rand which is a utility function that returns an integer
    between `arg1` and `arg2` or `0` and `arg1` if only one argument is
    provided.
  × is expanded to `(x)`, where `x` is initialised with the value provided
    in the input boxes; × represents byte '\xd7'
!   negate the result, 0 results in true, anything else false

ファジーオクトワカモレ、10バイト

^-!_[0]1.|

説明：

^-!_[0]1.|

^          # Get input.
 -         # Decrement, so we can append <ToS> zeros and a 1 to the stack.
  !        # Set loop counter.
   _       # Pop, since we are done with the input.
    [      # Start loop
     0     # Push 0
      ]    # End for loop. We have pushed input-1 0s to the stack.
       1   # Push a single 1 to the stack.
        .  # Switch stacks
         | # Pick a random item from the inactive stack, which has n-1 falsy items and 1 truthy item, so the truthy probability is 1/n.
           # (implicit output)

Perl 6の、 10の   8バイト

!(^*).pick
#  ^- The * is the argument

このコードは、0から入力を除く範囲を作成します*。次にpick、ランダムに1を!返し、を受け取ったときにTrueを返します0。

1>*.rand
# ^- The * is the argument

これは入力*を取得し、0..^1そこからランダムなNumを乗算し、それがより小さい場合にTrueを返します1。

# store it in a lexical code variable for ease of use
my &code = 1>*.rand;

die "never dies here" unless code 1;

for ^8 { say code 4 }

False
True
False
False
False
True
False
False

プロローグ（SWI）、24バイト

コード：

p(N):-X is 1/N,maybe(X).

maybe（+ P）は確率Pで成功し、確率1-Pで失敗する関数です

例：

p(4).
false

p(4).
false

p(4).
true

PowerShell、25バイト

!(Random -ma($args[0]--))

Get-Random機能所与-Maximumパラメータは、n範囲の値を返します[0,n)。inputから1を引くことでこれを活用し、$args[0]適切にゼロインデックスを付けて、ランダムな値を取得します。正確1/nには、この値はになり0、ブール値ではなく!を返すとが返されTrueます。他の時間は戻りFalseます。

J、3バイト

0=?

これは、右側の引数を取るモナドフォークです。APLと同様に、？ランダムな整数を生成します。ただし、J配列はゼロベースです。したがって、入力ではなく0と比較します。

Minkolang 0.14、7バイト

1nH1=N.

ここで試してみてください。

説明

1          Pushes 1
 n         Takes number from input
  H        Pops b,a and pushes a random integer between a and b, inclusive
   1=      1 if equal to 1, 0 otherwise
     N.    Output as number and stop.

PHP、22バイト

<?=2>rand(1,$argv[1]);

n次のようなコマンドラインから読み取ります。

$ php probability.php 4

出力（falsePHPでは空の文字列にキャストされます）または1（の場合true）。

C＃、56 45バイト

おかげで、pinkfloydx33は45になりました。

bool b(int n){return new Random().Next(n)<1;}

古い56バイト

0以上nでより小さいランダムな正の整数を生成し、それがより小さいかどうかを確認し、1比較結果を返します。

bool a(int n){Random r=new Random();return r.Next(n)<1;}

スクラッチ、63バイト

オンラインでお試しください！
写真：スクラッチブロックコード：

when gf clicked
ask[]and wait
say<(pick random(1)to(answer))=[1