Tantangan

Posting kotak pasir

Diberikan bilangan bulat positif (K)Output bilangan bulat seragam acak (Y)antara [0, K).

Jika Y > 0Asumsikan K = Ydan ulangi prosesnya sampai Y = 0.

Aturan

• Masukan harus dicetak terlebih dahulu
• Format output sesuai keinginan
• Program Anda harus selesai.
• 0 harus menjadi hasil akhir, sebagai gantinya opsional baris kosong 0

Pyth , 6 5 4 byte

.uOW

Coba di sini!

Bagaimana itu bekerja

.uOW Program lengkap. Mengambil bilangan bulat dari STDIN dan menampilkan daftar ke STDOUT.
.u Poin tetap kumulatif. Terapkan fungsi yang diberikan dengan nilai awal yang diberikan,
        yang secara implisit ditugaskan ke input, hingga hasil yang telah terjadi 
        sebelum ditemukan. Mengembalikan daftar hasil antara.
   Aplikasi bersyarat W. Jika argumen (nilai saat ini) benar, maka
        terapkan fungsi di bawah ini, jika tidak biarkan tidak berubah.
  O Bilangan bulat acak dalam kisaran [0, N).
        TKI: pada setiap iterasi .u, tetapkan variabel N ke nilai saat ini, dimulai
        dengan input. Jika N bukan 0, maka pilih bilangan bulat acak di [0, N), jika tidak
        return N tidak berubah. Setiap kali kita menemukan 0, iterasi berikutnya juga harus
        menghasilkan 0, dan karenanya loop berhenti di sana.

C (gcc) , 42 byte

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

Cobalah online!

Menggunakan hubung singkat dan logis.

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 byte (tanpa mencetak nilai awal)

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

Cobalah online!

Menggunakan hubung singkat dan logis.

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 byte

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

Cobalah online!

MATL , 6 byte

`tYrqt

Cobalah online!

Penjelasan

`        % 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 byte

Pepe adalah bahasa pemrograman yang dibuat oleh pengguna Soaku .

REeErEErReEEreeEREEeEEree 

Cobalah online!

Penjelasan:

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 byte

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

Cobalah online!

Blok kode anonim yang mengembalikan daftar nilai. Jika Anda tidak keberatan angkanya berkisar, Anda dapat melakukan:

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

selama 17 byte. Lucunya, fungsi acak builtin lain roll,, memiliki perilaku yang sama dalam hal ini untuk jumlah byte yang sama.

Perl 5 .10.0 -pl, 26 byte

say;say while$_=int rand$_

Cobalah online!

Jelly ,  4  3 byte

XƬ0

Ini adalah tautan monadik (fungsi) yang mencetak array dan mengembalikan 0 .

Cobalah online!

Bagaimana itu bekerja

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 byte

ẉ?ℕ₁-₁ṙ↰

Cobalah online!

Penjelasan

ẉ          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

Rekursi akan berhenti setelah ?ℕ₁gagal, yaitu saat input 0.

05AB1E , 8 7 byte

Δ=L<Ω0M

Cobalah online!

Penjelasan

Δ         # 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 byte

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

Di kereta bawah tanah, jadi minta maaf karena kurangnya TIO (mudah-mudahan tidak ada kekurangan kebenaran).

Menghasilkan daftar nilai.

Agaknya pendekatan APL akan lebih pendek, tetapi inilah yang saya pikirkan.

Bagaimana itu bekerja

^:a: terapkan berulang kali hingga konvergensi, menyimpan hasil antara dalam array.

?integer acak dalam kisaran [0, K)untuk Klebih besar dari 0. Untuk 0, itu memberikan integer acak dalam kisaran (0,1). Untuk angka floating point, kesalahan.

::]menangkap kesalahan untuk input ?dan bukannya kesalahan , output input yang menyebabkan kesalahan.

}: singkirkan nilai terakhir dalam array (ini adalah agar angka floating point bukan output).

Cobalah online!

JavaScript (ES6), 38 37 byte

-1 byte terima kasih kepada @Arnauld

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 byte

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

Cobalah online

Tidak disatukan

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

Pyth , 4 byte

W
~O

Cobalah online!

Ini pada dasarnya mengimplementasikan algoritma:

$\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.

Wmemulai loop sementara tradisional. Pernyataan pertama setelah itu adalah kondisi loop dan pernyataan kedua setelah itu adalah loop body. Jika pernyataan kedua kosong itu menjadi no-op . Ini sementara bekerja persis seperti Python sementara, sehingga akan mengevaluasi bilangan bulat bukan nol sebagai Benar dan nol sebagai salah.

Pernyataan pertama setelah beberapa saat dimulai dengan karakter baris baru. Ini sesuai dengan fungsi "cetak dan kembali dengan baris baru" Pyth. Ini membutuhkan satu argumen, yang kemudian dicetak dan juga dikembalikan tanpa dimodifikasi. Ini memungkinkan kami untuk mencetak langkah-langkah perantara sambil juga melakukan operasi yang diperlukan.

Argumen yang diteruskan ke fungsi cetak ini dimulai dengan ~yang agak spesial. Jika karakter segera setelah ~variabel, dibutuhkan dua argumen, jika tidak maka diperlukan satu. Karena Obukan variabel ~akan mengkonsumsi hanya satu argumen. ~fungsi sedikit seperti +=tidak dalam banyak bahasa konvensional, meskipun operator terdekat akan menjadi operator pasca-kenaikan ++dari C. Anda mungkin tahu itu x++akan seperti menggunakan xsebagai nilai saat ini, tetapi sesudahnya xakan seperti itu x+1. ~adalah ide yang sama, tetapi digeneralisasi untuk apa pun hasil dari argumen pertama. Bagaimana cara memilih variabel yang akan ditugaskan akan dibahas nanti.

Argumennya ~adalah Oyang sangat sederhana. Ketika satu argumennya adalah bilangan bulatO mengembalikan nilai dari 0 menjadi kurang dari integer itu secara acak.

Sekarang Anda mungkin telah memperhatikan Otidak memiliki argumen. Di sini penerjemah Pyth dengan baik mengisi duga, yang di sini adalah variabel Q. Qmemiliki arti khusus dalam Pyth: setiap kali ada dalam suatu program, program Pyth dimulai dengan menugaskan Qinput dari program. Karena ini adalah variabel pertama yang terjadi dalam ~argumen Qjuga sekarang variabel yang ~akan memberikan nilai.

Ringkas program "dapat dibaca" kami mungkin terlihat seperti:

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

Dan satu sampel "run-through" mungkin terlihat seperti:

1. Q = 5
2. Omengembalikan 3, ~mengembalikan 5,\n mengembalikan dan mencetak 5 yang benar
3. Q = 3
4. Omengembalikan 0, ~mengembalikan 3, \nmengembalikan dan mencetak 3 yang benar
5. Q = 0
6. Omengembalikan sesuatu yang tidak relevan, ~mengembalikan 0, \nmengembalikan dan mencetak 0 yang salah
7. Q = sesuatu yang tidak relevan
8. Mengakhiri

APL (Dyalog Unicode) , 12 9 byte

Fungsi awalan diam-diam anonim. Diasumsikan ⎕IO( I ndex O rigin) 0, yang merupakan default pada banyak sistem. Mengembalikan nilai akhir (0) selain mencetak saat dijalankan.

{⌊?⎕←⍵}⍣=

Cobalah online!

{... }⍣= terapkan fungsi berikut sampai stabil:

 ⎕←⍵ Keluarkan argumen

 ? mengembalikan nomor acak yang terdistribusi secara merata dalam kisaran 0 hingga -1

 ⌊ round down (karena ?0memberikan (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 :)