Создайте программу cat, то есть программу, которая принимает входные данные и печатает их.

... Кроме того, программа будет случайным образом забирать символы из вашего ввода и печатать их вместо этого.

Каждый символ на входе должен иметь равные шансы для удаления с помощью программы, хотя, поскольку это трудно сделать, шансы для каждого символа могут варьироваться не более чем на 10%.

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

Если вход был BOOOWL, он не должен удалять все Os с равной вероятностью: каждый символ (не уникальный) должен рассматриваться, поэтому вместо каждого объединенного O, имеющего шанс 1/5 (например), каждый O должен иметь 1 / 5 шансов, так что , вместо того , чтобы там быть 1/5 шанс BWL, должно быть 1/5 шанс BOWL, BOOWL.

Вход ограничен STDIN или ближайшим эквивалентом.

Каждый персонаж должен иметь минимум 10% и максимум 30% вероятности быть удаленным.

Шансы каждого персонажа должны рассчитываться индивидуально.

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

Вывод должен быть через STDOUT или ближайший эквивалент. Если на вашем языке есть STDOUT, не выводите другим способом. Если ваш язык не может выводить строки в виде текста, используйте ближайший эквивалент (вывод массива символов C в порядке).

Это код гольф. Кратчайшая программа выигрывает.

Japt -f , 2 байта

5ö

-fФлаг «запускает программу по каждому элементу в первом входе, выводит массив тех , которые возвращают значение truthy.» 5öвозвращает случайное число от 0 (включительно) до 5 (исключая). Как и JavaScript, 0 - это ложь в Japt.

Попытайся

Python 3 , 63 байта

from random import*
for c in input():print(end=c[random()<.2:])

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

Python 2 , 67 65 байт

from random import*
print''.join(c for c in input()if.8>random())

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

Каждый персонаж с вероятностью 20% быть сброшенным.

Другой подход, одинаковая длина:

from random import*
print''.join(c[random()<.2:]for c in input())

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

Древесный уголь , 4 байта

ΦＳ‽⁵

Попробуйте онлайн! Ссылка на подробную версию кода. Объяснение:

 Ｓ      Input a string
Φ       Filter where nonzero
  ‽⁵    Random number 0..4
        Implicitly print

Вы можете использовать любое число от 4до, 10чтобы получить шансы 25%на 10%соответственно.

Befunge-98 (PyFunge) , 11 байт

>#@~3j4???,

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

Каждый персонаж имеет 25% шанс быть удаленным. Это решение принято по трем ?инструкциям.

?устанавливает счетчик программ на одно из четырех направлений с равной вероятностью. В этом случае вверх и вниз возвращаются к одной и той же инструкции, поэтому мы можем игнорировать их как опции.

Есть два выхода из леса ?s: направо (вывод) и налево (нет вывода). Эта ситуация является симметричной, так что если начиная с середины ?, существует $p_2 = 1/2$ вероятность вывода. Вероятность вывода , если начиная справа ?является $p_3 = 1/2 * 1 + 1/2 * p_2 = 3/4$ . Поэтому после прочтения символа мы переходим к крайнему правому краю, ?чтобы определить, выводить или нет.

октава , 23 байта

Создает массив того же размера, что и входные данные (строки в Octave являются символьными массивами), проверяет каждое из случайных чисел, превышает ли оно значение, 0.2и затем использует логическое индексирование для извлечения символов в соответствующих позициях.

@(s)s(rand(size(s))>.2)

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

Желе , 9 5 байт

5X’µƇ

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

Монада, которая принимает строку Jelly в качестве аргумента и возвращает обработанную строку Jelly. При использовании в качестве полной программы неявно печатает вывод. Каждый персонаж имеет 20% шанс быть удаленным.

объяснение

   µƇ | Filter using the following as a monad for each character:
5X    | - Random number between 1 and 5
  ’   | - Decreased by 1

Japt , 3 байта

Каждый персонаж имеет шанс 1 к 5 быть удаленным. 5Может быть изменен ни к чему между 4& 9, включительно, или Aдля , 10чтобы изменить шансы.

Æ5ö

Попытайся

Æ5ö     :Implicit input of string
Æ       :Filter by
 5ö     :  Random integer in the range [0,5), with 0 being falsey

Wolfram Language (Mathematica) , 24 байта

Select[RandomReal[]>.2&]

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

Принимает список символов в качестве входных данных. У каждого персонажа есть .2шанс быть удаленным.

05AB1E , 5 4 байта

ʒ₄Ω≠

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

Попробуйте онлайн или запустите ту же программу 10 раз .

Каждый персонаж имеет 25% -ое изменение выпадения.

Объяснение:

ʒ     # Filter the characters of the (implicit) input-string by:
 ₄    #  Push 1000
  Ω   #  Pop and push a random digit from it
   ≠  #  And check that it's NOT 1 (!=1)
      # (after which the result is output implicitly)

≠также может быть _( ==0).

MATL , 9 байт

t&n&r.2>)

Exaplanation:

t         implicitly take input and duplicate it
 &n       compute the size of the input and...
   &r     generate a random array of that size
     .2>  check which entries of that array are greater than 0.2
        ) and use the result using logical indices to extract certain characters of the input

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

Pyth , 8 5 байтов

sfO4Q

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

sfO4Q   Implicit: Q=eval(input())
 f  Q   Filter characters of Q where the following is truthy:
  O4      Random number in the range [0-4)
          Any non-zero value is truthy, so this will drop characters 25% of the time
s       Concatenate into string, implicit print

Предыдущая версия, 8 байт:

s*Vm!!O4

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

s*Vm!!O4QQ   Implicit: Q=eval(input())
             Trailing QQ inferred
   m    Q    Map each character in Q using:
      O4       Choose random integer in [0-4)
    !!         Logical NOT twice - maps 0 to 0, anything else to 1
             The result is a list of 0s and 1s, with 0 having 25% chance to appear
 *V      Q   Vectorised multiplication of the above with Q
s            Concatenate into string, implicit print

Cubix , 20 байтов

u$w\A|UDw@?;...>o._U

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

Дольше, чем я надеялся, так как у меня было много неактивных операций, от которых я не могу избавиться. Шанс уронить персонажа составляет 25%. Я полагаю, это нормально.

    u $
    w \
A | U D w @ ? ;
. . . > o . _ U
    . .
    . .

Смотреть это беги

Краткое объяснение:

• A|A это инициализирует стек, вводит все, отражает обратно, вводит все (только EOI -1)
• ;? поп в стек, тест на EOI (-1).
• _?@ если отрицательный, отразить обратно в тест и закончить при остановке
• $Dпрыгать \в случайном направлении установщика.
  • от установщика направления 3 направления ведут к oвыходу for, затем обратно в цикл, один пропускает oего путь и идет прямо в цикл.

APL (dzaima / APL) , 10 9 байтов ^SBCS

Функция анонимного молчаливого префикса. Каждый персонаж имеет точно 20% шанс быть удаленным.

⊢⌿⍨4≥∘?5¨

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

5¨ ноль для каждого символа

? диапазон случайных целых чисел 1–5 для каждого символа

4≥ Булева маска для тех целых чисел, которые меньше или равны 4

⊢⌿⍨ фильтровать аргумент, используя эту маску

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

/./_?(`.

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

/./_

Обработайте каждого персонажа индивидуально.

?(`

Произведите замену наугад. Первая замена удаляет символ, в то время как остальные три оставляют его без изменений, что дает 25%возможность удалить символ. Это может быть уменьшено по мере необходимости, добавляя дополнительные пары новых строк.

R , 32 23 байта

function(x)x[rt(x,3)<1]

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

Функция, принимающая вектор символов в качестве входных данных и возвращающая обработанный символьный вектор. Каждый персонаж имеет 20% шанс быть удаленным.

Спасибо @Roland и @Giueseppe за помощь в сохранении 7 байтов и @JDL за еще 2!

T-SQL 2012, 83 байта

Циклический ввод справа налево, удаление 0 или 1 символа.

25% -й шанс на удаление каждого персонажа.

DECLARE @i varchar(max)='The cat ate my homework'

DECLARE @ int=len(@i)WHILE @>0SELECT
@i=stuff(@i,@,str(rand()*2)/2,''),@-=1PRINT @i

Объяснение:

rand()*2 возвращает число с плавающей запятой, которое нельзя использовать в stuff команде.

strПреобразует это в VARCHAR после округления до ближайшего целого числа. Поплавок конвертируется в varchar (который не разрешен в качестве третьего параметра вstuff ).

Этот varchar имеет шанс 25% быть '2', шанс 50% быть '1', шанс 25% быть '0'. Деление на 2, с вероятностью 25% результат равен 1. Это деление превращает varchar в целое число.

Целое число - это ожидаемый третий параметр в stuffфункции.

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

J , 10 байт

#~5>6?@$~#

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

Аналогично ответу Адама на APL, хотя я и написал его, прежде чем посмотреть на его.

• 6.. $~ #Возьмите длину ввода #и сформируйте $~число 6 в этот длинный список.
• ?@Рассматривайте каждую шестерку в этом списке как кубик и бросайте ?его.
• >5Является ли матрица меньше 5 (возможные значения 0..5)? Используйте этот логический результат для создания битовой маски.
• #~ Отфильтруйте вход с этой маской.

Perl 5 -p , 18 байт

s/./.2<rand&&$&/ge

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

Каждый персонаж имеет 20% шанс выпадения.

Javascript,  46   44  51 байт

i=>alert([...i].filter(c=>Math.random()>.2).join``)

+7 байт из-за добавленного требования STDOUT

-2 байта спасибо Бирджолаксеву

оригинальный ответ: 44 байта без требования STDOUT

i=>[...i].filter(c=>Math.random()>.2).join``

Scala , 51 46 30 байт

s=>s.flatMap(x=>if(math.random>.2)Some(x)else None)

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

PS. Как и во многих других решениях, вероятность выпадения полукокса составляет 20%.

Обновить:

-5 байт, используя String вместо Option [String] в flatMap

s=>s.flatMap(x=>if(math.random>.2)x+""else "")

30 байт с использованием фильтра

s=>s.filter(x=>math.random>.2)

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

var y=new Random();foreach(var k in ReadLine())if(y.Next(5)<4)Write(k);

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

PHP , 43 42 байта

for(;''<$l=$argn[$i++];rand()%5&&print$l);

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

Каждый персонаж имеет 20% шанс быть удаленным.

C (GCC) , 50 байтов

Эта программа с 20% -ной вероятностью выбросит письмо. К сожалению, генератор случайных чисел не засеян, поэтому вы получаете одну и ту же последовательность при каждом запуске. По сути, единственный трюк - инвертировать входной символ, чтобы остановить цикл в EOF.

main(c){for(;c=~getchar();rand()%5&&putchar(~c));}

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

C (gcc) , 64 59 байт

Благодаря потолку catcat за -5 байтов.

Если вы хотите, чтобы RNG высевался при каждом запуске.

main(c){for(srand(&c);c=~getchar();rand()%5&&putchar(~c));}

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

Луа , 69 68 байт

for c in io.lines(nil,1)do io.write(math.random()>.2 and c or '')end

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

Вроде простая, но, похоже, самая короткая версия: перебираем stdin char за char (с io.lines … это имя вводит в заблуждение), затем на основе случайного значения выведите одну или пустую строку (например, ничего).

Джава

Не прекращается: 82 байта

v->{for(int i;;i=System.in.read(),System.out.print(Math.random()<.2?"":(char)i));}

Завершение (TIO): 105 байт

v->{var n=System.in;for(int i;n.available()>0;i=n.read(),System.out.print(Math.random()<.2?"":(char)i));}

Zsh , 53 41 байт

_{-12 , благодаря GammaFunction}

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

Преобразует входные данные в массив символов, затем пытается распечатать каждый элемент c, если только он не будет получен ((RANDOM%4))оценкой в ​​значение false!

for c (${(s::)1})((RANDOM%4))&&echo $c\\c

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

Более простая, но многословная итерация по длине строки.

for ((;i<$#1;i++)){((RANDOM%4>0))&&echo "${1[i]}\c";}

Zsh , 50 байтов

for c (${(s::)"$(<&0)"})
((RANDOM%5))&&echo -nE $c

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

Аналогичен ответу RobLogic, но более точно следует требованиям ввода и работает для входов с обратной косой чертой.

"$(<&0)"вместо "<&0"или $(<&0)потому что первый не работает в подстановках, а второй ест новые строки. Эти -nEфлаги необходимы , чтобы предотвратить обратную косую черту от быть разобрано как управляющие последовательности, а также для предотвращения новой строки вставляется.

echo -nE

MathGolf , 5 байтов

æƒ√∞*

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

объяснение

æ       foreach character...
 ƒ      random float in range [0,1)
  √     take square root (making P(x < 0.5) = 0.25)
   ∞    pop a, push 2*a
    *   repeat character int(x) times

Каждый символ будет повторяться 0 или 1 раз, в зависимости от случайного значения. Поскольку ожидаемое значение после смещения квадратного корня смещается на 25%, вероятность удаления каждого символа равна 25%.

Альтернатива 5-ти байтовая

gÉ;4w

Отфильтруйте символы по случайному числу в [0, 4]. Из-за того, как работает фильтрация, я должен отбросить фактический символ в цикле фильтра, который добавляет 1 байт.

GFortran , 120 байт

Неплохо, если мы используем устаревшую RAN()функцию, которая является псевдослучайной , то есть вы получаете одну и ту же последовательность каждый раз. Правильный способ для генерации случайных чисел в GFortran есть с CALL RANDOM_SEED()и , CALL RANDOM_NUMBER(R)но это много байт!

character(99)S;read(*,'(A)')S;do i=1,len_trim(S)
if(ran(0)*5.gt.1)then;write(*,'(A)',advance="no")S(i:i)
endif;enddo;end

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

Oracle SQL, 133 байта

select listagg(decode(sign(dbms_random.value-0.2),1,substr(x,level,1)))within group(order by level)from t connect by level<=length(x)

Он работает с предположением, что входные данные хранятся в таблице t (x), например

with t(x) as (select 'The cat ate my homework' from dual)