Задание

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

Любая комбинация заглавных букв строчных букв должна быть возможной. Например, если входной сигнал был abc, не должна быть ненулевой вероятностью вывода любых из следующих комбинаций: abc, Abc, aBc, abC, ABc, AbC, aBCили ABC.

вход

Ваш ввод - это строка, содержащая, например, любое количество печатаемых символов ASCII Hello World. Выходы для этого входа включают в себя HeLLo WoRlD, HElLO WOrldи т.д.

счет

Это код-гольф, поэтому выигрывает самый короткий ответ на каждом языке!

TI-Basic (серия 83), 137 байт

For(I,1,length(Ans
Ans+sub(sub(Ans,I,1)+"ABCDEFGHIJKLMNOPQRSTUVWXYZ",1+int(2rand)inString("abcdefghijklmnopqrstuvwxyz",sub(Ans,I,1)),1
End
sub(Ans,I,I-1

Принимает входные данные Ans, как показано на скриншоте ниже:

(Если скриншот выглядит зашифрованным, как это иногда бывает для меня, попробуйте открыть его в новой вкладке ?)

TI-Basic (по крайней мере, версия TI-83 ... может быть, мне стоит заняться игрой в гольф TI-89) - это ужасный язык, чтобы попытаться решить эту проблему, поскольку:

1. Он абсолютно не поддерживает никакую арифметику с символами, знает заглавную версию символа в нижнем регистре или даже знает алфавит.
2. Каждый строчный символ занимает 2 байта для хранения. (На самом деле мне пришлось использовать скрипт сборки только для того, чтобы набирать строчные буквы.)

В результате 78 байтов этой программы (более половины) просто хранят алфавит, дважды .

В любом случае, идея заключается в том, что мы перебираем строку с возможностью превращения строчных символов в прописные по ходу работы и добавляем результат в конец строки, чтобы в ней были сохранены как входные, так и выходные данные Ans. Когда мы покидаем For(цикл, Iон на единицу больше длины исходной строки, поэтому взятие I-1символов, начинающихся с, Iдает вывод.

Japt , 6 байт

®m`«`ö

Проверьте это онлайн!

объяснение

®m`«`ö   Implicit input
®        Map each char in the input by
 m         mapping each char in this char through
  `«`ö       a random character of "us". (`«` is "us" compressed)
             The u function converts to uppercase, and s is slice, which does nothing here.
         Implicit output

Python 2 , 66 65 байт

lambda s:`map(choice,zip(s.upper(),s))`[2::5]
from random import*

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

C,  47  46 байтов

Спасибо @ l4m2 за сохранение байта!

f(char*s){for(;*s++-=(*s-97u<26&rand())*32;);}

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

Было бы 42 байта, если можно было бы предположить, что {|}~не появляется на входе:

f(char*s){for(;*s++-=(*s>96&rand())*32;);}

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

Желе , 5 байт

Еще один байт пыли благодаря Dylnan.

żŒuX€

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

объяснение

żŒuX€  main link: s = "Hello world"

żŒu    zip s with s uppercased  ["HH", "eE", "lL", "lL", "oO", "  ", ...]
   X€  map random choice        "HeLLo woRlD"

Perl 5 , 23 байта

Код 22 байта + 1 для -p.

s/./rand>.5?uc$&:$&/ge

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

JavaScript (ES6), 56 байт

s=>s.replace(/./g,x=>Math.random()<.5?x.toUpperCase():x)

Если равномерная случайность не требуется, мы можем сохранить 6 байтов, используя текущее время в качестве источника случайности:

s=>s.replace(/./g,x=>new Date&1?x.toUpperCase():x)

Это имеет тенденцию или в верхнем регистре или оставить в покое все буквы сразу.

R , 66 байт

for(i in el(strsplit(scan(,""),"")))cat(sample(c(i,toupper(i)),1))

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

Еще один R ответ.

Excel VBA, _{74 71} 64 байта

RandomizeВызов всегда делает случайный выход дорогостоящим в VBA :(

Функция анонимного непосредственного окна VBE, которая берет входные данные из диапазона [A1]и выводит в непосредственное окно VBE. Производит 50% (в среднем) UCased продукции.

For i=1To[Len(A1)]:a=Mid([A1],i,1):?IIf(Rnd>.5,a,UCase(a));:Next

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

⭆Ｓ‽⁺↥ιι

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

 Ｓ          Input string
      ι     Character
    ↥ι      Uppercase character
   ⁺        Concatenate
  ‽         Random element
⭆           Map over each character and join the result
            Implicitly print

Рубин, 40 байт

Лямбда-функция, которая принимает строку. Сохранено 1 байт благодаря Арно. Сохранено 5 байтов благодаря Snack.

->s{s.gsub(/./){|x|[x,x.upcase].sample}}

APL + WIN, 37 байт

⎕av[c-((n÷2)<n?n←⍴s)×32×s←98<c←⎕av⍳⎕]

Запрашивает ввод с экрана, идентифицирует строчные буквы и случайным образом преобразует их в прописные.

R , 89 88 байт

превзойденный джурио!

cat(sapply(el(strsplit(scan(,""),"")),function(x)"if"(rt(1,1)<0,toupper,`(`)(x)),sep="")

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

Эта программа берет каждый символ и с вероятностью 1/2 преобразует его в верхний регистр или оставляет его в покое. Эту вероятность можно настроить, играя с разными значениями dfи0 .

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

05AB1E , 6 5 байт

Спасибо Аднану за -1 байт

uø€ΩJ

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

объяснение

uø€ΩJ   
u      Upper case of top of stack. Stack: ['zzzAA','ZZZAA']
 ø     Zip(a,b). Stack: ['zZ', 'zZ', 'zZ', 'AA', 'AA']
  €    Following operator at each element of it's operand
   Ω   Random choice. Stack: ['z', 'Z', 'z', 'A', 'A']
    J  Join a by ''. Stack: 'zZzAA'
        Implicit output

Метод взят из ответа @ totallyhuman

Рубин, 39 байт

->s{s.gsub(/./){[$&,$&.upcase].sample}}

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

Swift 4, 86 байт

s.map{let s="\($0)",u=s.uppercased();return u==s ? u:arc4random()%2==0 ? u:s}.joined()

Java 8, 46 байт

Эта лямбда от IntStreamк IntStream(потоки кодов).

s->s.map(c->c>96&c<'{'&Math.random()>0?c-32:c)

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

Распределение капитализации

Использовать ли заглавную букву раньше было вполне разумным условием Math.random()<.5, которое выполнялось примерно в половине случаев. С текущим состояниемMath.random()>0 (которое сохраняет байт) капитализация происходит практически каждый раз, что делает тестовую программу бессмысленной. Но это удовлетворяет требованию случайности.

Подтверждения

• -1 байт благодаря Оливье Грегуару

Фанки , 55 байт

s=>s::gsub("."c=>{0s.upper,s.lower}[math.random(2)](c))

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

Благодаря дополнительным запятым, это на один байт короче, чтобы сделать 0s.upperв определении таблицы, что означает, что math.randomслучайный выбор будет или, 1или 2, чем делать math.random(0,1)в случайном порядке и не иметь 0.

R , 60 59 58 57 56 63 байта

intToUtf8((s=utf8ToInt(scan(,"")))-32*rbinom(s,s%in%97:122,.5))

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

Отличный подход от двух других ответов R здесь и здесь . Улучшено и исправлено благодаря Джузеппе!

Уроборос , 25 байт

i.b*)..96>\123<*?2*>32*-o

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

Единственная причудливая часть - это поток управления .b*). Давайте сначала поговорим об отдыхе.

i..                    Get a character of input, duplicate twice
   96>                 Test if charcode greater than 96
      \                Swap with copy #2
       123<            Test if charcode less than 123
           *           Multiply the two tests (logical AND): test if it is lowercase letter
            ?          Random number between 0 and 1
             2*        Times 2
               >       Is lcase test greater? If test was 1 and rand*2 < 1, then 1, else 0
                32*-   Multiply by 32 and subtract from charcode to ucase lcase letter
                    o  Output as character

Затем мы возвращаемся к началу строки. Поток управления включает в себя изменение того, где находится конец линии; если он перемещен влево от IP-адреса, выполнение прекращается. Таким образом:

 .     Duplicate input charcode
  b*   Push 11 and multiply
    )  Move end of line that many characters to the right

Если код положительный, )это запрет , так как конец строки находится настолько далеко, насколько это возможно. Но когда все символы были прочитаны, iдает -1. Затем мы перемещаем конец -11символов кода вправо, то есть 11 символов влево. Это занимает пару итераций, но в конце концов IP заканчивается концом кода, и программа останавливается.

MATL , 12 11 байт

"@rEk?Xk]v!

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

Сохранено 1 байт благодаря @LuisMendo

Брахилог , 5 байт

ụᶻṛᵐc

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

объяснение

Example input: "Test"

ụᶻ        Zip uppercase:      [["T","T"],["e","E"],["s","S"],["t","T"]]
  ṛᵐ      Map random element: ["T","e","S","T"]
    c     Concatenate:        "TeST"

Алиса , 17 15 байт

Спасибо Лео за сохранение 2 байта.

/uRUwk
\i*&o.@/

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

объяснение

/...
\...@/

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

i    Read all input as a string.
R    Reverse the input.
&w   Fold w over the characters of the string. w is nullary which means it
     doesn't actually use the individual characters. So what this does is that
     a) it just splits the string into individual characters and b) it invokes
     w once for each character in the string. w itself stores the current 
     IP position on the return address stack to begin the main loop which
     will then run N+1 times where N is the length of the string. The one
     additional iteration at the end doesn't matter because it will just
     output an empty string.
.    Duplicate the current character.
u    Convert it to upper case (does nothing for characters that aren't
     lower case letters).
*    Join the original character to the upper case variant.
U    Choose a character at random (uniformly).
o    Print the character.
k    If the return address stack is not empty yet, pop an address from it
     and jump back to the w.
@    Terminate the program.

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

Wolfram Language (Mathematica) , 52 49 44 байта

StringReplace[c_/;Random[]<.5:>Capitalize@c]

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

Использует форму оператора StringReplace : предоставление ему правила (или списка правил), но ни одна строка не дает функцию, которая применяет это правило к любой строке, которую вы задаете в качестве входных данных.

Мы могли бы сделать намного лучше ( RandomChoice@{#,Capitalize@#}&/@#&это 34 байта), если бы мы решили взять в качестве входных данных (и вывести в качестве выходных) список символов, который иногда утверждают, что в Mathematica все в порядке, потому что это единственная строка в других языках. Но это не весело.

-5 байт благодаря М. Стерну

Pyth, 10 7 6 байтов

smO,r1

Сохранено 3 байта благодаря ovs и 1 благодаря Steven H.

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

объяснение

smO,r1
 m      Q   For each character in the (implicit) input...
   ,r1dd    ... get the capitalized version and the (implicit) character, ...
  O         ... and pick one at random.
s           Concatenate the result.

PHP, 63 53 байта

while($a=$argv[1][$i++])echo rand()%2?ucfirst($a):$a;

Удалось уменьшить код на 10 байтов (частично) по предложению Тита.

PowerShell , 57 56 байт

-join([char[]]"$args"|%{(("$_"|% *per),$_)[(Random)%2]})

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

-1 байт благодаря бриантисту

Принимает ввод как строку, явно преобразует $argsмассив в строку, charпреобразует его как -array, а затем передает символы через цикл. На каждой итерации мы 50-50 либо выводим символ как есть, $_либо конвертируем его в верхний регистр "$_".ToUpper()(это ("$_"|% *per)мусор). Это выбирается, получая Randomцелое число и принимая его мод 2.

Эти символы остаются в конвейере, а затем -joinснова объединяются в одну строку, которая сама остается в конвейере и вывод неявен.

Юлия , 35 байт

s->map(c->rand([c,uppercase(c)]),s)

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

Все еще довольно легко читается как человек. У Юлии Рэнд (A) возвращает случайный элемент из A.

Ребол , 61 байт

u:func[t][n: random length? t t/(n): uppercase t/(n) print t]

Тест:

>>c: "Test sTring"
>>u c
Test sTriNg

Желе , 16 байт

2ḶXø³L¤Ð¡ḊT
Œu¢¦

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

объяснение

2ḶXø³L¤Ð¡ḊT    First Link
2Ḷ             The list [0,1]
  X            Random element (1 is truthy, 0 is falsy)
   ø           Begin nilad
    ³L         Length of first input (the string)
      ¤        End nilad
       С      Random([0,1]) for each character in the input string and collect.
         Ḋ     The list had an extra None at the beginning. Don't know why. This removes it (the first element of the list)
          T    Get indices of all truthy 

Œu¢¦           Main Link
Œu             Capitalize
   ¦           At the indices in the list:
  ¢            The first link as a nilad (list of indices)

Я не мог заставить это работать в одной строке. Я также не знаю почему, но 2ḶXø³L¤Ð¡дает список [None,1,0,..,1]с 0s и 1s, выбранных случайным образом. NoneЯвляется причиной для Ḋв первом звене.