Завдання

Завдання полягає в тому, щоб написати програму, яка виводить послідовне, але інакше довільне додатне ціле число (настільки суворо більше, ніж 0). Ось улов: коли джерело повторюється разів (код додається / об'єднує до себе), програма повинна мати ймовірність виведення та решту ймовірностей виведення без змін.$x$$N$$N-1$$\dfrac{1}{N}$$N\cdot x$$\dfrac{N-1}{N}$$x$

Приклад

Припустимо, що вашим початковим джерелом є XYZі виробляє ціле число 3. Потім:

• Для : слід вивести з ймовірністю (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 байта. Ви не можете припускати новий рядок між копіями джерела. Програма не повинна приймати дані (або мати невикористаний, порожній вхід).

• Це код-гольф , тому оцінка відповіді - це довжина (оригінального) джерела в байтах, при цьому нижчий бал є кращим.

_{^{Примітка. Цей виклик є (набагато складнішою) версією цієї .}}

R , 66 35 байт

-29 байт завдяки digEmAll .

-2 байти завдяки Джузеппе .

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

Спробуйте в Інтернеті!

Перевірте розподіл на N = 4.

Ключ - призначення вправо ->. Коли код множиться $N$ разів, перші $N-1$ дзвінків, яким sampleбуде призначеноA , і друкуються лише останній дзвінок.

Оригінальне, більш згорнуте рішення:

R , 66 байт

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

Спробуйте в Інтернеті!

Спробуйте в Інтернеті (повторено 3 рази)!

Використовує два хитрощі: 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видає випадковий результат.

Пітон 3 , 81 79 байт

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

Спробуйте в Інтернеті!

-1 байт завдяки @Nishioka

Це одне рішення Python 3, яке не має доступу до джерела програми безпосередньо. Зробити це в Python 3 складніше, ніж у Python 2, тому що звичайні оператори друку закінчуються дужкою, що закривається, тому не існує багато варіантів змінити його поведінку в наступному блоці початкового джерела. Було б цікаво побачити більш креативні рішення в Python 3.

Баш , 31 байт

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

Спробуйте в Інтернеті!

trap ... 0запустить код, що міститься при виході. Повторні traps замінять старі. Без котирування $[arithmetic expansion]запускається кожен раз, коли встановлюється нова пастка.

Zsh може зберегти один байт за допомогою <<<:

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))#

Спробуйте в Інтернеті!

-2 байти завдяки містеру Xcoder за його (n-1)формулу, ~-nяка має вищий пріоритет, ніж *
-1 байт завдяки Нішіока

Діалог APL, 25 24 23 22 21 байт

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

Спробуйте в Інтернеті!

Гая , 17 15 14 13 байт

Øgl13÷:(1w&+ṛ

Спробуйте в Інтернеті!

Я випадковим чином помітив поведінку Øgвчора, переглядаючи документи, які надзвичайно допомогли.

Perl 5, 28 26 байт

-2 байти завдяки @Grimy

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

ТІО

Рубін , 40 байт

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

Спробуйте в Інтернеті!

Спробуйте в Інтернеті (скопійовано 3 рази)!

Рубіновий порт відповіді Python .

Рубін , 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

Перевірте | Подвоєний | Потрійний
Перевірте розподіл 10000 пробігів після 10 повторень

(°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 ö 

Перевірте | Подвоєний | Потрійний
Перевірте розподіл 10000 пробігів після 10 повторень

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)//

Немає посилання на тіо, павук-мавпа на тіо занадто стара ...

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