Вызов

Песочница

Учитывая положительное целое число. (K)Выведите равномерно-случайное целое число (Y)между [0, K).

Если Y > 0предположить K = Yи повторить процесс до Y = 0.

правила

• Ввод должен быть напечатан сначала
• Формат вывода по вашему желанию
• Ваша программа должна закончиться.
• 0 должен быть окончательным выводом, необязательно вместо пустой строки 0

Pyth , 6 5 4 байта

.uOW

Попробуй это здесь!

Как это работает

.uOW Полная программа. Принимает целое число из STDIN и выводит список в STDOUT.
.u Накопительная фиксированная точка. Примените данную функцию с заданным начальным значением,
        который неявно назначен на вход, пока результат, который произошел 
        прежде чем найден. Возвращает список промежуточных результатов.
   W Условное применение. Если аргумент (текущее значение) является правдивым, то
        примените функцию ниже, иначе оставьте ее без изменений.
  Случайное целое число в диапазоне [0, N).
        IOW: на каждой итерации .u присваивайте переменную N текущему значению, начиная
        с входом. Если N не равно 0, выберите случайное целое число в [0, N), иначе
        вернуть N без изменений. Всякий раз, когда мы сталкиваемся с 0, следующая итерация также должна
        результат в 0, и, следовательно, цикл останавливается там.

C (gcc) , 42 байта

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

Попробуйте онлайн!

Использует короткозамкнутые логические и.

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(_);}

Попробуйте онлайн!

Использует короткозамкнутые логические и.

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)

Пепе , 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 -pl, 26 байтов

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.

Брахилог , 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 (надеюсь, нет недостатка в правильности).

Выводит список значений.

Предположительно подход APL будет короче, но это то, о чем я думал.

Как это работает

^:a: применять повторно до сходимости, сохраняя промежуточные результаты в массиве.

?случайное число в диапазоне [0, K)для Kбольше 0. 0, это дает случайное число в диапазоне (0,1). Для числа с плавающей запятой это ошибки.

::]поймать ошибку для входа ?и вместо ошибок вывести вход, вызвавший ошибку.

}: избавиться от последнего значения в массиве (так, чтобы число с плавающей запятой не выводилось).

Попробуйте онлайн!

JavaScript (ES6), 38 37 байт

-1 байт благодаря @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 байт

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

Попробуйте онлайн

Ungolfed

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}$

Чтобы перевести Pyth в алгоритм, мы можем просто изучить, что означает каждый символ. Поскольку Pyth написан в префиксной нотации (то есть * + 1 2 3есть (1 + 2) * 3), мы можем начать слева и заполнять аргументы по мере продвижения.

Wначинается традиционный цикл while. Первый оператор после него является условием цикла, а второй оператор после него является телом цикла. Если второе утверждение пустое, оно становится неактивным . Это while работает точно так же, как Python while, поэтому оно будет оценивать ненулевые целые числа как True, а ноль - как false.

Первое утверждение через некоторое время начинается с символа новой строки. Это соответствует функции Пита «печатать и возвращать с новой строкой». Это принимает один аргумент, который затем печатается, а также возвращается без изменений. Это позволяет нам печатать промежуточные шаги, а также выполнять необходимые операции.

Аргумент, передаваемый этой функции печати, начинается с ~чего-то особенного. Если символ сразу после ~является переменной, он принимает два аргумента, в противном случае он принимает один. Поскольку Oпеременная не ~будет использовать только один аргумент. ~функции +=во многом похожи на многие обычные языки, хотя самым близким оператором будет оператор постинкремента ++из C. Вы можете знать, что x++это будет похоже на использование xв качестве текущего значения, но после этого xбудет x+1. ~это та же идея, но обобщенная на любой результат первого аргумента. Как он выбирает какую переменную назначить, будет рассмотрено позже.

Аргумент ~IS , Oкоторый очень прост. Когда его единственный аргумент является целым числом, Oвозвращает значение от 0 до единицы меньше, чем это целое число, равномерно случайным образом.

Теперь вы могли заметить, Oчто нет аргумента. Здесь интерпретатор Pyth любезно вводит предположение, которое здесь является переменной Q. Qимеет особое значение в Pyth: всякий раз, когда он присутствует в программе, программа Pyth начинается с назначения Qвхода программы. Так как это первая переменная, встречающаяся в ~аргументе ', Qтеперь она также является переменной, которой ~будет присвоено значение.

В итоге наша «читаемая» программа может выглядеть так:

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

И один пример «прогона» может выглядеть так:

1. Q = 5
2. Oвозвращает 3, ~возвращает 5, \nвозвращает и печатает 5, что верно
3. Q = 3
4. Oвозвращает 0, ~возвращает 3, \nвозвращает и печатает 3, что верно
5. Q = 0
6. Oвозвращает что-то неуместное, ~возвращает 0, \nвозвращает и печатает 0, что является ложным
7. Q = что-то не относящееся к делу
8. прекратить

APL (Dyalog Unicode) , 12 9 байт

Функция анонимного молчаливого префикса. Предполагается ⎕IO( я ndex O rigin) 0, что по умолчанию во многих системах. Возвращает окончательное значение (0) в дополнение к печати во время выполнения.

{⌊?⎕←⍵}⍣=

Попробуйте онлайн!

{… }⍣= Применить следующую функцию до стабильной:

 ⎕←⍵ вывести аргумент

 ? вернуть равномерно распределенное случайное число в диапазоне от 0 до –1

 ⌊ округлить вниз (потому что ?0дает (0,1) с плавающей точкой)

C (gcc) , 40 42 байта

Какой-то идиот ™ забыл сначала распечатать начальное значение.

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

Не паникуйте

x86 + rdrand, 19 байт

Простая реализация. Принимает вход K в ecxи выводит в буфер в 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 байт

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

Вероятно, не самый криптографически безопасный генератор случайных чисел, но для человеческого глаза это выглядит достаточно случайным ...

Попробуйте онлайн!

TI-Basic (TI-84 Plus CE), 17 13 байтов

While Ans
Disp Ans
int(randAns
End
Ans

-4 байта от Миши Лаврова

Принимает вход в Ansкачестве 50:prgmNAME.

TI-Basic - это токенизированный язык . Все токены, используемые здесь, являются одним байтом.

Объяснение:

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

11-байтовое решение, предложенное Мишей Лавровым, которое требует нажатия enterпосле каждой строки, следующей за первой.

Ans
While Ans
Pause int(randAns
End

Python 2 , 64 62 60 байт

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

Попробуйте онлайн!

Сохраненный

• -2 байта, благодаря Джонатану Аллану

C ++ (gcc), 98 байт

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

Попробуй это здесь!

использование

int main() {
    p(100);
}

Это моя первая попытка игры в гольф. Любые отзывы или замечания приветствуются.

Редактировать: Удалена основная функция, как предложено, чтобы сделать ее действительной.

> <>, 92 + 2 байта

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

+ 2B для флага -v

Попробуйте онлайн!

Единственный источник случайности> <> исходит из инструкции 'x', которая устанавливает случайным образом направление указателя инструкции. Таким образом, генерация случайного числа от 0 до n не тривиальна.

Сначала я вычисляю, сколько битов требуется для представления числа в диапазоне [0, n), затем генерирую случайные биты, чтобы сгенерировать случайное число. Это оставляет возможность того, что он сгенерирует число, немного большее n, и в этом случае мы просто отбрасываем его и пытаемся снова.

Объяснение:

: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 байт)

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

Образец вывода:

>> @(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

Сетчатка , 21 байт

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

Попробуйте онлайн! Объяснение:

+

Повторяйте до тех пор, пока значение не перестанет изменяться (то есть 0).

¶<)

Напечатайте значение перед каждым проходом через цикл.

.+
*

Преобразовать в одинарный.

L$`.
$.`

Создать диапазон и преобразовать в десятичную.

G?`

Выберите случайный элемент.

Pyth , 6 7 байт

QWQ=OQQ

Попробуйте онлайн!

+1, чтобы напечатать начальное значение ввода.

Пока Q правдиво, установите Q как случайное целое число от 0 до Q и выведите Q.

Не самый короткий ответ Pyth, но я только учусь и пишу только из-за недавней дискуссии о том, что никто больше не использует Pyth :)

Haskell , 74 71 байт

^{-3 байта, фактически делая то, что спецификации говорят, что должно сделать.}

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

Попробуйте онлайн!

IBM / Lotus Notes Formula, 48 байтов

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

Формула поля, которая получает данные из другого поля i.

Там нет TIO для формулы, поэтому вот скриншот пример вывода:

Powershell, 36 32 байта

-4 байта спасибо AdmBorkBork

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

Testscript:

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

100 |f

Выход:

100
61
20
8
6
3
0

PowerShell , 35 байт

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

Попробуйте онлайн!

Полная программа. Принимает ввод $args, сохраняет его $aи входит в forцикл. Каждую итерацию мы проверяем, $aявляется ли она все еще положительной (как 0в случае с PowerShell). Затем мы покидаем $aконвейер и переходим к следующей итерации, где мы устанавливаем $aрезультат Get-Random $a, который возвращает целое число в диапазоне 0..($a-1).

(Ab) использует тот факт, что PowerShell выводит дополнительный завершающий символ новой строки вместо вывода конечного нуля (допускается правилами, как написано в настоящее время).

Луа , 58 байт

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

Попробуйте онлайн!

Еще Луа любит здесь :)