Потому что не хватает простых задач по коду-гольфу :

Создайте произвольно неназванную программу или функцию, которая при любом значении 1 ≤ N ≤ 10000 выдает истинное значение вашего языка с псевдослучайной вероятностью 1 / N, в противном случае - False.

Обратите внимание, что требование к именованию было удалено. Не стесняйтесь редактировать ответы и оценки соответственно.

Некоторые языки используют 1 (или -1) и 0 для True и False, это тоже хорошо.

Пример:

Пример входных тестов:

4 -> True
4 -> False
4 -> False
4 -> False
4 -> False
4 -> True
4 -> False
4 -> False

Т.е. дано 4; он возвращает True с вероятностью 25% и False с вероятностью 75%.

Шаблоны MediaWiki с ParserFunctions , 48 байт

{{#ifexpr:1>{{#time:U}} mod {{{n}}}|true|false}}

Pyth, 3 байта

!OQ

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

Простая инверсия случайного выбора от 0 до ввода

Забавно, что в Pyth невозможно создать функцию, без которой это делается, $потому что функции Pyth автоматически запоминаются.

CJam, 5 байтов

Должен быть быстрым с этими ...

rimr!

Проверьте это здесь.

объяснение

ri e# Read input and convert to integer N.
mr e# Get a uniformly random value in [0 1 ... N-1].
!  e# Logical NOT, turns 0 into 1 and everything else into 0.

TI-BASIC, 4 байта с использованием однобайтовых токенов

not(int(Ansrand

Определяет, равна ли целая часть входных данных случайному числу в [0,1) нулю. Ansrand<1тоже работает.

MATL, 5 байтов

Три разные версии этой, все 5.

iYr1=

который принимает input ( i), генерирует случайное целое число от 1 до этого числа ( Yr) и проверяет, равно ли оно 1 ( 1=). С другой стороны ,

li/r>

сделайте 1 ( lобходной путь, потому что 1iв данный момент есть ошибка в выполнении), возьмите input ( i), разделите, чтобы получить 1 / N ( /), сделайте случайное число от 0 до 1 ( r) и посмотрите, не случайное ли число меньше 1 / N. Или,

ir*1<

возьмите и введите ( i), и умножьте на случайное число от 0 до 1 ( r*) и посмотрите, будет ли результат меньше 1 ( 1<).

В Matlab, а не MATL, вы можете сделать эту анонимную функцию

@(n)n*rand<1

для 12 байтов, который используется ans(5), например, при выполнении.

JavaScript ES6, 15 байт

-5 байт благодаря Downgoat.

x=>1>new Date%x

На основании (использования) техники этого ответа.

Юлия, 17 16 15 байтов

n->2>rand(1:n)

Это функция, которая генерирует случайное целое число в диапазоне от 1 до nи проверяет, меньше ли оно значения 2. Вероятность этого составляет 1 / n, и, следовательно, вероятность возврата 1 / n true.

Сохранено 1 байт благодаря Томасу Ква!

Microscript II , 3 байта

NR!

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

Candy , 2 байта

Hn

H обозначает Heisen-двойной

п означает не

'N' передается с флагом -i в качестве числового ввода. Значения, оставленные в стеке, печатаются при выходе.

«Длинная» форма:

rand   # number between 0 and pop()
not    # cast to int, invert non-zero to zero, and zero to one

Серьезно, 3 байта

,JY

0ложный и 1правдивый Попробуйте онлайн

Объяснение:

,JY
,    get input
 J   push a random integer in range(0, input) ([0, ..., input-1])
  Y  logical not: push 0 if truthy else 1  

R, 30 22 байта

код

cat(runif(1)<1/scan())          #new
f=function(N)cat(runif(1)<1/N)  #old

Он генерирует число из равномерного распределения (от 0 до 1) и должно оцениваться как истинное 1 / n раз.

Japt, 6 байт

1>U*Mr

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

Mrэквивалентно JS Math.random. Остальное довольно очевидно. Я мог бы, вероятно, добавить числовую функцию, которая генерирует случайное число с плавающей точкой между 0 и числом. Когда это произойдет, будут сохранены два байта:

1>Ur    // Doesn't currently work

Альтернативная версия:

1>Ð %U

Ðэквивалентно new Date(, и объект Date, когда его просят преобразовать в число, становится текущей отметкой времени в миллисекундах. Таким образом, это совершенно случайно, если только он не запускается несколько раз за мс.

Marbelous , 21 байт

}0    # takes one input n
--    # decrements n
??    # random value from range 0..n (inclusive)
=0?0  # push right if not equal to 0, fall through otherwise | convert to zero
++    # increment | no-op
{0//  # output | push left

Я 0считал себя фальшивым и 1правдивым, хотя нет реальной причины для такого взгляда, потому что у Марбелус на самом деле нет «если». Больше Marbelousy будет выведено {0для истинного и {>ложного. Это будет выглядеть так:

}0
--
??
=0{>
{0

Но я не уверен, что это действительно.

APL, 6 3 байта

+=?

Это последовательность функций, которая принимает целое число и возвращает 1 или 0 (истина / ложь APL). Мы генерируем случайное целое число от 1 до ввода, используя ?, а затем проверяем, равно ли входное значение этому целому числу. Это приводит к 1 / входной шанс истины.

Сохранено 3 байта благодаря Томасу Ква!

PlatyPar , 3 байта

#?!

#?получает случайное число, [0,n)где nввод. !возвращается, trueесли число до него 0, иначе он возвращается false.

Используя более свежие функции, которые были реализованы (но, к сожалению, для меня это не зафиксировано), до того, как был задан этот вопрос, я могу довести его до 2 с помощью ~! Попробовать онлайн !

Java, 43 байта

boolean b(int a){return a*Math.random()<1;}

C, 24 байта

f(n){return!(rand()%n);}

> <>, 27 + 3 для -v = 30 байт

Вот неоднородное для всех решение, где I mod N - сумма 15876 случайных пиков 0 или 1:

0"~":*>:?vr%0=n;
1-$1+$^-1x

N должно быть введено в стек с флагом -v, выходное значение равно 0 для фальси и 1 для истинного.

Гораздо умнее и единообразнее решение, которое работает вместо 1/2 ^ N:

4{:?!v1-}:">"$2p:"x"$3p:"^"$4p1+:">"$3p1+!
   ^1<
0n;
1n;>
 

Для входа 3 у вас есть 1/8 шансов получить 1 и 7/8 получить 0.

Пояснение:

Я добавляю столько, xсколько нужно, в 4-ю строку и окружаю их направлениями, так что есть только два выхода x: либо выход фальси, либо следующий x. Если все xпойдет в правильном направлении, последний направит вас к правдивому выводу.

Например, для N = 5 конечное кодовое пространство выглядит следующим образом:

4{:?!v1-}:">"$2p:"x"$3p:"^"$4p1+:">"$3p1+!
   ^1<
0n; > > > > >
1n;>x>x>x>x>x>
    ^ ^ ^ ^ ^

Mathematica, 18 16 байтов

#RandomReal[]<1&

Основное решение. Безымянный Functionсоздает случайное число в [0, 1), умножает его на свой аргумент и проверяет, все ли оно меньше 1.

Python, 42 байта

import random
lambda n:1>random.random()*n

редактировать : Удален time.time()ответ из-за распространения.

TeaScript , 3 байта

!N×

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

объяснение

 N  maps to Math.rand which is a utility function that returns an integer
    between `arg1` and `arg2` or `0` and `arg1` if only one argument is
    provided.
  × is expanded to `(x)`, where `x` is initialised with the value provided
    in the input boxes; × represents byte '\xd7'
!   negate the result, 0 results in true, anything else false

Нечеткое окто гуакамоле, 10 байтов

^-!_[0]1.|

Объяснение:

^-!_[0]1.|

^          # Get input.
 -         # Decrement, so we can append <ToS> zeros and a 1 to the stack.
  !        # Set loop counter.
   _       # Pop, since we are done with the input.
    [      # Start loop
     0     # Push 0
      ]    # End for loop. We have pushed input-1 0s to the stack.
       1   # Push a single 1 to the stack.
        .  # Switch stacks
         | # Pick a random item from the inactive stack, which has n-1 falsy items and 1 truthy item, so the truthy probability is 1/n.
           # (implicit output)

Perl 6 ,  10   8 байт

!(^*).pick
#  ^- The * is the argument

Этот код создает диапазон от 0 до, но исключая входные данные *. Затем он pickодин случайный и !возвращает True, когда он получает 0.

1>*.rand
# ^- The * is the argument

Он принимает входные данные *и умножает их на случайное число Num, а 0..^1затем возвращает True, если он был меньше, чем 1.

# store it in a lexical code variable for ease of use
my &code = 1>*.rand;

die "never dies here" unless code 1;

for ^8 { say code 4 }

False
True
False
False
False
True
False
False

Пролог (SWI), 24 байта

Код:

p(N):-X is 1/N,maybe(X).

Maybe (+ P) - это функция, которая преуспевает с вероятностью P и терпит неудачу с вероятностью 1-P

Пример:

p(4).
false

p(4).
false

p(4).
true

PowerShell, 25 байт

!(Random -ma($args[0]--))

Get-RandomФункция , когда данный -Maпараметр ximum nвозвращает значение из диапазона [0,n). Мы используем это, вычитая 1 из наших входных данных $args[0], чтобы правильно индексировать нулевое значение и получить случайное значение. Ровно 1/nв это время это значение будет 0, поэтому, когда мы будем булевыми, то оно с !ним не вернется True. Остальные времена вернутся False.

J, 3 байта

0=?

Это монадическая вилка, которая принимает аргумент справа. Аналогично APL? генерирует случайное целое число; однако J-массивы начинаются с нуля. Поэтому мы сравниваем с 0 вместо ввода.

Минколанг 0,14 , 7 байт

1nH1=N.

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

объяснение

1          Pushes 1
 n         Takes number from input
  H        Pops b,a and pushes a random integer between a and b, inclusive
   1=      1 if equal to 1, 0 otherwise
     N.    Output as number and stop.

PHP, 22 байта

<?=2>rand(1,$argv[1]);

Читает nиз командной строки, как:

$ php probability.php 4

Вывод ( falseприведен к пустой строке в PHP) или 1(в случае true).

C #, 56 45 байт

Спасибо, pinkfloydx33 сейчас 45.

bool b(int n){return new Random().Next(n)<1;}

Старый 56 байт

Генерирует случайное положительное целое число, большее или равное 0 и меньшее, чем nи проверяет, меньше ли оно, 1и возвращает результат сравнения.

bool a(int n){Random r=new Random();return r.Next(n)<1;}

Нуля , 63 байта

Попробуйте онлайн!
Картинка: Код Скретчблока :

when gf clicked
ask[]and wait
say<(pick random(1)to(answer))=[1