задача

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

пример

Давайте предположим, что ваш исходный источник является XYZцелым числом 3. Потом:

Для $N=2$ : XYZXYZдолжен вывести $3$ с вероятностью $\frac{1}{2}$ (50% времени) и $2\cdot 3=6$ с вероятностью $\frac{1}{2}$ также (50% времени).
Для $N=3$ : XYZXYZXYZследует вывести $3$ с вероятностью $\frac{2}{3}$ (66,666% времени) и $3\cdot 3=9$ с вероятностью $\frac{1}{3}$ (33,333% времени)
Для $N=4$ : XYZXYZXYZXYZследует вывести $3$ с вероятностью $\frac{3}{4}$ (75% времени) и $4\cdot 3=12$ с вероятностью $\frac{1}{4}$ (25% времени)

и так далее....

правила

Вы должны построить полную программу . Вывод должен быть распечатан на STDOUT.
Ваша программа, теоретически, должна выводить каждое возможное значение с вероятностями, указанными выше, но небольшое отклонение от этого из-за реализации random является хорошим ( при условии, что реализация не имеет другого распределения - вы не можете использовать нормальное распределение для сохранения байтов ) .
Программа должна (опять же , в теории) работа при сколь угодно большом значении $N$ , но технические ограничения , связанные с точностью хороши для больших $N$ .
Вывод должен быть в базе 10 (вывод в любую другую базу или с научными обозначениями запрещен). Допускаются конечные / ведущие пробелы и начальные нули.
Исходный источник должен (конечно) иметь длину не менее 1 байта. Вы не можете использовать новую строку между копиями вашего источника. Программа не должна принимать данные (или иметь неиспользуемые пустые данные).
Это код-гольф , поэтому оценка ответа равна длине (оригинального) источника в байтах, при этом меньший показатель лучше.

_{^{Примечание: этот вызов является (намного) более сложной версией этого .}}

code-golf random source-layout

— Мистер Xcoder
источник

Может ли программа прочитать свой исходный код?

— мое местоимение monicareinstate

3

@ Someone Да, это разрешено.

— г-н Xcoder

16

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выводит случайный результат.

— Робин Райдер
источник

5

Я не думаю, что когда-либо видел, как ->используется в коде гольф в ситуации, когда <-не может быть; это так круто!!

— Джузеппе

PS Я собираюсь дать эту награду в какой-то момент.

— Джузеппе

2

Абсолютно потрясающе!

— digEmAll

Я думаю, что это должно сработать (заимствование идеи +0 из python)

— digEmAll

@digEmAll Очень аккуратно, спасибо!

— Робин Райдер

11

Python 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.

— Joel
источник

-1 байт:+0 if[]else 1

— Нисиока

@Nishioka Спасибо. Обновлено.

— Джоэл

11

Баш , 31 байт

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

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

trap ... 0запустит код, содержащийся при выходе. Повторные traps перезапишут старые. Без кавычек $[arithmetic expansion]запускается каждый раз, когда устанавливается новая ловушка.

Zsh может сохранить один байт с помощью <<<:

trap "<<<$[RANDOM%++n?1:n]" 0;

— GammaFunction
источник

6

Желе , 7 байт

‘ɼḷXỊ®*

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

— Эрик Outgolfer
источник

4

05AB1E , 7 байтов

¾Å1¼¾ªΩ

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

— Grimmy
источник

4

Питон 3 , 78 76 75 байт

Используя тот же трюк, что и в опубликованной ссылке , вот Python (с x = 1).

from random import*;n=len(*open(__file__))//75;print(1+~-n*(random()<1/n))#

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

-2 байта благодаря Mr. Xcoder за его (n-1)формулу, у ~-nкоторой приоритет выше, чем *
-1 байт благодаря Nishioka

— Пэрис Дуади
источник

1

Выглядит хорошо для меня! import random;n=len(*open(__file__))//76;print(1+~-n*(random.random()<1/n))#должен работать на -2 байта

— г-н Xcoder

1

Я никогда не видел такой способ делать н-1! Мне это нравится, спасибо :)

— Pâris

1

-1 байт: tio.run/##K6gsycjPM/7/...

— Нисиока

Другой -1 байт , но с несколько иной подход: tio.run/##K6gsycjPM/7/...

— Нисиока

да я делаю из-за random()<1/n;-)

— Пэрис Дуади

4

Dyalog APL, 25 24 23 22 21 байт

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

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

— dzaima
источник

3

Gaia , 17 15 14 13 байт

Øgl13÷:(1w&+ṛ

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

Я случайно заметил Øgвчерашнее поведение при просмотре документов, что очень помогло.

— Giuseppe
источник

3

Perl 5, 28 26 байт

-2 байта благодаря @Grimy

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

TIO

— Науэль Фуйе
источник

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

— Grimmy

спасибо, хорошая вариация

— Науэль Фуйе

3

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

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

— Эрик Думинил
источник

2

Рунические чары , 31 байт

UwR'10<;$\
I+:'RA0)?/1$;
1
l;
y

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

Использует ту же структуру, что и этот ответ, чтобы подсчитать, сколько раз источник дублировался:

Просто вместо вывода n-го числа в списке мы используем это значение для случайной генерации числа, если результат не равен 0, выведите 1, иначе выведите это число.

— Draco18s больше не доверяет SE
источник

2

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

— мохнатый
источник

2

JavaScript ( оболочка JavaScript 71 ), 78 байт

(async x=>x)().then(x=>f((''+f).length/78));f=x=>print(1-~x*Math.random()|0)//

Нет ссылки tio, spidermonkey на tio слишком стар ...

Firefox (Spidermonkey) рассматривает комментарий как часть функции f. В результате (''+f).lengthбудетb+79n где b <78, и (n + 1) - времена повторения исходного кода.

Эта _{^ошибка} (? _{^{Я не уверен. Я бы предпочел, чтобы это ошибка спецификации JavaScript, а не какого-либо интерпретатора}} ) была передана в BMO кем-то еще сразу после публикации этого ответа: https://bugzilla.mozilla.org/ show_bug.cgi? id = 1579792 . (Ни я, ни твит не опубликовали ни мою ветку bmo.)

— ТТГ
источник

Что с (async x=>x)()? Почему это асинхронно?

— Томаш Зато - Восстановить Монику

@ TomášZato Это буквально asyncхроническое. Так что обратный звонокx=>f(...) будет вызван после fопределения функции .

— TSH

1

C # (интерактивный компилятор Visual C #) , 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++;

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

— мое местоимение monicareinstate
источник

1

Уголь , 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

— Нил
источник

Я умножаю источник, вы (вероятно) умножаете вывод!

задача

пример

правила

R , 66 35 байт

R , 66 байт

Python 3 , 81 79 байт

Баш , 31 байт

Желе , 7 байт

05AB1E , 7 байтов

Питон 3 , 78 76 75 байт

Dyalog APL, 25 24 23 22 21 байт

Gaia , 17 15 14 13 байт

Perl 5, 28 26 байт

Рубин , 40 байт

Рубин , 38 байт

Рунические чары , 31 байт

Japt , 9 8 байт

Оригинал, 13 11 10 9 байт

JavaScript ( оболочка JavaScript 71 ), 78 байт

C # (интерактивный компилятор Visual C #) , 133 114 112 байт

Уголь , 12 байт