チャレンジ

サンドボックスポスト

正の整数を考えると(K)出力に一様乱数整数(Y)の間を[0, K)。

場合Y > 0と仮定K = Yしてまでこのプロセスを繰り返しますY = 0。

ルール

• 最初に入力を印刷する必要があります
• 希望通りの出力形式
• プログラムを終了する必要があります。
• 0 最終出力である必要があります。オプションとして空行 0

Pyth、6 5 4バイト

.uOW

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

使い方

.uOW完全なプログラム。STDINから整数を取得し、リストをSTDOUTに出力します。
.u累積固定小数点。指定された関数に指定された初期値を適用し、
        結果が発生するまで、暗黙的に入力に割り当てられます 
        前が見つかりました。中間結果のリストを返します。
   W条件付きアプリケーション。引数（現在の値）が真実であれば、
        以下の関数を適用します。それ以外の場合は変更しません。
  O範囲[0、N）のランダムな整数。
        IOW：.uの各反復で、変数Nを現在の値に割り当て、開始します
        入力付き。Nが0でない場合、[0、N）のランダムな整数を選択します。
        Nを変更せずに返します。0に遭遇するたびに、次の反復も
        結果は0であるため、ループはそこで停止します。

C（gcc）、42バイト

f(_){printf("%d\n",_);(_=rand()%_)&&f(_);}

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

短絡論理ANDを使用します。

f(_){                 // f(int _) {
    printf("%d\n",_); // print argument and a newline
    (_=rand()%_)      // set _ to rand()%_
    &&f(_);}          // short-circuit AND to recursively call f if _ not zero

C（gcc）、40バイト（印刷初期値なし）

f(_){printf("%d\n",_=rand()%_);_&&f(_);}

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

短絡論理ANDを使用します。

f(_){              // f(int _) {
    printf("%d\n", // print an integer and a newline 
    _=             // The integer is _ which we set to...
    rand()%_);     // a random value modulo the input _
    _&&f(_);}      // short-circuit AND to recursively call f if _ not zero

R、66 60 56 43 41バイト

function(n)while(print(n))n=sample(n,1)-1

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

MATL、6バイト

`tYrqt

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

説明

`        % Do...while
  t      %   Duplicate. Takes input (implicit) the first time
  Yr     %   Uniform random integer from 1 to n, included
  q      %   Subtract 1
  t      %   Duplicate. This will be used as loop condition
         % End (implicit). Proceeds with next iteration if non-zero
         % Display stack (implicit)

Pepe、25バイト

Pepeは、ユーザーSoakuが作成したプログラミング言語です。

REeErEErReEEreeEREEeEEree 

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

説明：

REeErEErReEEreeEREEeEEree # full program

REeE                      # input as num, in stack 1
    rEE                   # create loop in stack 2 with name 0
       rReEE              # - output and preserve the number in stack 1
            reeE          # - output a newline "\n"
                REEeEE    # - random number by 0 to input
                      ree # goto loop with name 0 if stack 1 is not equal
                            to stack 2

Perl 6、18バイト

{$_,(^*).pick...0}

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

値のリストを返す匿名コードブロック。数値が範囲であることを気にしない場合は、次のことができます。

{^$_,^*.pick...0}

17バイトの場合。面白いことに、別の組み込みのランダム関数が、rollこのインスタンスで同じバイト量に対して同じ動作をします。

Perl 5 .10.0、26 -plバイト

say;say while$_=int rand$_

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

ゼリー、 4  3バイト

XƬ0

これは、配列を出力して0を返す単項リンク（関数）です。

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

使い方

XƬ0  Monadic link. Argument: n

XƬ   Pseudo-randomly pick (X) an integer k in [1, ..., n], set n = k, and repeat.
     Do this 'til (Ƭ) the results are no longer unique and return the array of
     unique results, including the initial value of n.
     This stops once X returns k with argument k. The second k will be omitted
     from the return value.
  0  Print the resulting array and set the return value to 0.

Brachylog、8バイト

ẉ?ℕ₁-₁ṙ↰

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

説明

ẉ          Write the input followed by a linebreak
 ?ℕ₁       The input must be in [1, …, +∞)
    -₁ṙ    Generate an integer in [0, …, input - 1] uniformly at random
       ↰   Recursive call with that random integer as the new input

再帰?ℕ₁は、失敗した場合、つまり入力がの場合に停止します0。

05AB1E、8 7バイト

Δ=L<Ω0M

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

説明

Δ         # loop until value doesn't change
 =        # print current value
  L<Ω     # push a random number in ([1 ... X] - 1)
          # will return -1 when X=0
     0M   # push max of that and 0

J、13バイト

[:}:? ::]^:a:

地下鉄では、TIOの欠如をおaびします（正確さの欠如がないことを願っています）。

値のリストを出力します。

おそらくAPLのアプローチはもっと短くなるでしょうが、これは私が考えたことです。

使い方

^:a: 収束するまで繰り返し適用し、中間結果を配列に保存します。

?範囲内のランダムな整数[0, K)のためにK 0 0より大きいが、それは、範囲内のランダムな整数を返します(0,1)。浮動小数点数の場合、エラーになります。

::] への入力のエラーをキャッチ ?代わりに、エラーの原因となった入力を出力します。

}: 配列の最後の値を取り除きます（これは、浮動小数点数が出力されないようにするためです）。

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

JavaScript（ES6）、38 37バイト

@Arnauldのおかげで-1バイト

f=n=>[n,...n?f(Math.random()*n|0):[]]

f=n=>[n,...n?f(Math.random()*n|0):[]]

<input type=number id=a><button onclick="console.log(f(+a.value))">Test</button>

C、38バイト

f(k){printf("%d ",k);k?f(rand()%k):0;}

オンラインで試す

非ゴルフ

void f(int k){
    printf("%d ",k);
    if(k)
        f(rand()%k);
}

Pyth、4バイト

W
~O

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

これは基本的にアルゴリズムを実装します：

$\begin{align} % Unknown environment algorithm :( &Q \gets \text{input} \\ &\mathbf{Repeat} \\ &\begin{array}{cl} 1. & temp \gets Q \\ 2. & Q \gets \text{unif}\{ 0, Q - 1 \} \\ 3. & \mathtt{Print}(temp) \end{array} \\ &\mathbf{Until} \quad temp = 0 \end{align}$

To translate the Pyth into the algorithm, we can mostly just examine what each character means. Since Pyth is written in prefix notation (i.e. * + 1 2 3 is (1 + 2) * 3) we can start from the left and fill in the arguments as we go.

W begins a traditional while loop. The first statement after it is the loop condition and the second statement after it is the loop body. If the second statement is empty it becomes a no-op. This while works exactly like the Python while, so it will evaluate non-zero integers as True and zero as false.

The first statement after the while begins with the newline character. This corresponds to Pyth's "print and return with a newline" function. This takes one argument, which is then printed and also returned unmodified. This allows us to print the intermediate steps while also performing the needed operations.

この印刷関数に渡される引数~は、少し特別なもので始まります。直後の文字~が変数の場合、2つの引数を取り、それ以外の場合は1つの引数を取ります。以来Oない変数は、~引数を1つしか消費します。~関数+=は、多くの従来の言語でやや似ていますが、最も近い演算子はからのポストインクリメント演算子++ですC。あなたはそれx++がx現在の値として使用するようなものになることを知っているかもしれませんが、その後xはなりますx+1。~は同じ考えですが、最初の引数の結果が何であれ一般化されます。どの変数に割り当てるかをどのように選択するかについては、後で説明します。

引数~IS O非常に簡単です。1つの引数が整数の場合O returns a value from 0 to one less than that integer uniformly at random.

これでO、引数がないことに気づいたかもしれません。ここでは、Pythインタープリターが推測を親切に記入しますQ。これは変数です。QPythには特別な意味があります。プログラム内に存在する場合、PythプログラムはプログラムQの入力への割り当てから始まります。これは~の引数で発生する最初の変数なので、値を割り当てるQ変数にも~なりました。

「読み取り可能な」プログラムを要約すると、次のようになります。

while print_and_return( assign_variable( Q, unif(0, Q-1) ) ):
    pass

そして、1つのサンプル「ランスルー」は次のようになります。

1. Q = 5
2. O3を~返し、5を返します\n returns and prints 5 which is true
3. Q = 3
4. O0を~返し、3を\n返し、trueを返し、3を出力します
5. Q = 0
6. O無関係なものを~返し、0を\n返し、0を返し、falseを出力します
7. Q = something irrelevant
8. Terminate

APL (Dyalog Unicode), 12 9 bytes

Anonymous tacit prefix function. Assumes ⎕IO (Index Origin) to be 0, which is default on many systems. Returns the final value (0) in addition to printing while run.

{⌊?⎕←⍵}⍣=

Try it online!

{…}⍣= apply the following function until stable:

 ⎕←⍵ output the argument

 ? return a uniformly distributed random number in the range 0 through that–1

 ⌊ round down (because ?0 gives a (0,1) float)

C (gcc), 40 42 bytes

Some idiot™ forgot to print the initial value first.

f(K){while(K)printf("%d\n",K,K=rand()%K);}

Don't panic.

x86 + rdrand, 19 bytes

Straightforward implementation. Takes input K in ecx and outputs to a buffer in ebx.

0000000a <start>:
   a:   0f c7 f0                rdrand %eax
   d:   31 d2                   xor    %edx,%edx
   f:   f7 f1                   div    %ecx
  11:   89 13                   mov    %edx,(%ebx)
  13:   83 c3 04                add    $0x4,%ebx
  16:   89 d1                   mov    %edx,%ecx
  18:   85 c9                   test   %ecx,%ecx
  1a:   75 ee                   jne    a <start>
  1c:   c3                      ret  

Python 3, 39 bytes

f=lambda k:print(k)or f(hash('.'*k)%k)

Probably not the most cryptographically secure random number generator but to the human eye it looks random enough...

Try it online!

TI-Basic (TI-84 Plus CE), 17 13 bytes

While Ans
Disp Ans
int(randAns
End
Ans

-4 bytes from Misha Lavrov

Takes input in Ans as 50:prgmNAME.

TI-Basic is a tokenized language. All tokens used here are one byte.

Explanation:

While Ans    # 3 bytes, While the number we hold is not zero:
Disp Ans     # 3 bytes,   Display it on its own line
int(randAns  # 4 bytes,   and replace it with a number randomly
                        # chosen from 0 to one less than it (inclusive)
End          # 2 bytes, end While loop
Ans          # 1 byte,  Display (and return) zero

An 11-byte solution suggested by Misha Lavrov that requires pressing enter after each line following the first.

Ans
While Ans
Pause int(randAns
End

Python 2, 64 62 60 bytes

from random import*
k=input()
while k:print k;k=randrange(k)

Try it online!

Saved

• -2 bytes, thanks to Jonathan Allan

C++ (gcc), 98 bytes

#import<cstdio>
#import<cstdlib>
#define d printf("%i ",x 
int p(int x){d);while(x>0)d=rand()%x);}

Try it here!

Usage

int main() {
    p(100);
}

This is my first code golf attempt. Any feedback or remarks are welcome.

Edit: Removed the main function as suggested to make it valid.

><>, 92+2 Bytes

:nao:0=?;0_1>:{:}(?\\
}(?!\$2*1>x~\$+1$*2/\~00:{{:@}
8+1.\~:{:}\+>$1+f
~~@~~47*0.\(a2*1@@?!.

+2B for -v flag

Try it online!

><>'s only source of randomness comes from the 'x' instruction, which sets the instruction pointer's direction to a random value. As such, generating a random number from 0 to n isn't trivial.

I first calculate how many bits are required to represent a number in the range [0,n), then generate random bits to generate a random number. This leaves the possibility that it'll generate a number slightly larger than n, in which case we just discard it and try again.

Explanation:

:nao                              Print the current number followed by a newline
    :0=?;                         If the current n is 0, terminate

Calculate how many random bits we need to be generating:
         0 1                      Initialise the variables for this loop: 
                                      numberOfBits = 0, maxValue = 1
             :{:}(?\              If maxValue >= n, break out of the loop
                 *2               maxValue *= 2
             $+1$                 numberOfBits += 1

Generate the random number:
                     ~            Delete maxValue
                      00          Initialise randomNumber = 0, i = 0
}(?!\                   :{{:@}    If i >= numberOfBits, break out of the (inner) loop
     $2*                          randomNumber *= 2
          _
        1>x~\                     The random bit: If the IP goes up or 
          \+>                     left, it'll be redirected back onto the 'x', 
                                  if it goes down, it adds one to randomNumber
                                  If it goes right, it does nothing to randomNumber

             $1+                  increment i
8+1.            f                 Jump back to the start of the inner loop

After we've generated our number, check that it's actually below n
     ~                            Delete i
      :{:} (      ?               Test that the number is less than n
            a2*1    .             If it's not, jump back to the start 
                                  of the number generation section
  @~~                             Otherwise delete the old value of n, and numberOfBits
     47*0.                        Then jump back to the start of the program

MATLAB (49 46 bytes)

@(k)eval('while k;disp(k);k=randi(k)-1;end;0')

Sample output:

>> @(k)eval('while k;disp(k);k=randi(k)-1;end;0')
ans(5)

ans = 

    @(k)eval('while k;disp(k);k=randi(k)-1;end;0')

     5    
     3    
     2    
     1   

ans =    
     0

Retina, 21 bytes

.+
*
L$`.
$.`
+¶<)G?`

Try it online! Explanation:

+

Repeat until the value stops changing (i.e. 0).

¶<)

Print the value before each pass through the loop.

.+
*

Convert to unary.

L$`.
$.`

Create the range and convert to decimal.

G?`

Pick a random element.

Pyth, 6 7 bytes

QWQ=OQQ

Try it online!

+1 to print the initial input value.

While Q is truthy, set Q to be a random integer between 0 and Q and print Q.

Not the shortest Pyth answer but I'm just learning and only posting because of the recent discussion about no-one using Pyth any more :)

Haskell, 74 71 bytes

^{-3 bytes by actually doing what the specs say it should do.}

import System.Random
f 0=pure[0]
f x=randomRIO(0::Int,x-1)>>=fmap(x:).f

Try it online!

IBM/Lotus Notes Formula, 48 bytes

o:=i;@While(i>0;i:=@Integer(i*@Random);o:=o:i);o

Field formula that takes input from another field i.

There's no TIO for formula so here's a screenshot of a sample output:

Powershell, 36 32 bytes

-4 bytes thanks AdmBorkBork

filter f{$_;if($_){Random $_|f}}

Testscript:

filter f{$_;if($_){Random $_|f}}

100 |f

Output:

100
61
20
8
6
3
0

PowerShell, 35 bytes

for($a="$args";$a;$a=Random $a){$a}

Try it online!

Full program. Takes input $args, stores it into $a, and enters a for loop. Each iteration we're checking whether $a is still positive (as 0 is falsey in PowerShell). Then we leave $a on the pipeline and move to the next iteration, where we set $a to be the result of Get-Random $a, which returns an integer in the range 0..($a-1).

(Ab)uses the fact that PowerShell outputs an additional trailing newline in lieu of outputting the final zero (allowed by the rules as currently written).

Lua, 58 bytes

p,r=print,...+0 p(r)while r>0 do r=math.random(0,r)p(r)end

Try it online!

For some more Lua love here :)