Тому що не існує простих проблем з кодовим гольфом :

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

Зверніть увагу, що вимогу щодо називання видалено. Не соромтесь редагувати відповіді та оцінки відповідно.

Деякі мови використовують 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=

який приймає вхід ( i), генерує випадкове ціле число між 1 і цим числом ( Yr) і бачить, чи воно дорівнює 1 ( 1=). Крім того,

li/r>

зробіть 1 ( l, обхідне рішення, тому що в 1iданий момент помилка робить ), візьміть введення ( 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 байт завдяки Томасу Ква!

Мікроскрипт II , 3 байти

NR!

Читає ціле число n, генерує випадкове ціле число між 0та n-1(включно), а потім застосовує булеве заперечення до цього значення.

Цукерки , 2 байти

Hn

H означає Гейзен-подвійний

n означає не

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

Ось нерівномірне взагалі рішення, де я модифікую суму 15876 випадкових вибору 0 або 1:

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

N слід вводити в стек із прапорцем -v, вихід 0 для фальси та 1 для truthy.

Набагато розумніші та рівномірніші рішення, які працюють замість 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>
    ^ ^ ^ ^ ^

Математика, 18 16 байт

#RandomReal[]<1&

Основне рішення. Неназваний Functionстворює випадкове число в [0, 1), помножує його на його аргумент і перевіряє, чи все ще менше 1.

Пітон, 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 до, але виключаючи вхідні дані *. Потім це picks випадково один і !повертає True, коли він отримує a 0.

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

Це приймає вхід *і помножує його на випадкове число, 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).

можливо (+ 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