タスク
あなたの仕事は、入力が与えられると、ランダム化された文字を大文字にして入力テキストを出力するプログラムまたは関数を作成することです。
小文字の大文字のあらゆる組み合わせが可能です。入力された場合、例えばabc、以下の組み合わせのいずれかを出力する非ゼロの確率があるはず：abc、Abc、aBc、abC、ABc、AbC、aBCまたはABC。
入力
入力は、たとえば、任意の数の印刷可能なASCII文字を含む文字列Hello Worldです。その入力に対する出力が含まれるHeLLo WoRlD、HElLO WOrldなど
得点
これはコードゴルフですので、各言語で最短の答えが勝ちです！
回答:
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ゴルフに分岐する必要があります）は、このチャレンジをゴルフに挑戦するためのひどい言語です。
結果は、このプログラムの78バイト（半分以上）がアルファベットを2回だけ格納していることです。
とにかく、アイデアは、文字列をループして、小文字を大文字に変換し、結果を文字列の最後に追加して、入力と出力の両方がに格納されるようにすることAnsです。私たちが去るときにFor(ループを、Iそう取って、元の文字列の長さより1つ多いですI-1から始まる文字をI出力を提供します。
®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
バイトを保存してくれた@ l4m2に感謝します！
f(char*s){for(;*s++-=(*s-97u<26&rand())*32;);}
{|}~入力に表示されないと想定できる場合、42バイトになります。
f(char*s){for(;*s++-=(*s>96&rand())*32;);}
srand(1)ではプログラムの開始時に暗黙的に提供されるため、実行ごとに返される値のシーケンスはrand()同じになります）。
'a'ように変更する97uと、-funsigned-charフラグさえ必要ありません。
'a'（これはsigned int、ありませんunsigned charから）*s（であるunsigned char）*sに昇格ますsigned int代わりにunsigned int、したがって負の値が可能であると意図したように比較は動作しません、。
s=>s.replace(/./g,x=>Math.random()<.5?x.toUpperCase():x)
一様なランダム性が必要でない場合、現在の時刻をランダム性のソースとして使用することで6バイトを節約できます。
s=>s.replace(/./g,x=>new Date&1?x.toUpperCase():x)
これは、大文字にするか、一度にすべての文字をそのままにする傾向があります。
AbC、時間はそれほど変化しないため出力できません
Randomizeコールは常にVBAでのランダム出力は高価になり:(
範囲から入力を受け取り[A1]、VBEイミディエイトウィンドウに出力する匿名VBEイミディエイトウィンドウ関数。50％（平均）UCasedの出力を生成します。
For i=1To[Len(A1)]:a=Mid([A1],i,1):?IIf(Rnd>.5,a,UCase(a));:NextRandomize:、変化Rndに[RAND()>.5]。または単に無視します。:)
Randomize使う代わりに電話をしてRnd>.5
⭆Ｓ‽⁺↥ιι
オンラインでお試しください！リンクは、コードの詳細バージョンです。説明：
Ｓ Input string
ι Character
↥ι Uppercase character
⁺ Concatenate
‽ Random element
⭆ Map over each character and join the result
Implicitly print
アドナン、-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の答えから取った方法
ε„luΩ.V私の試みでした！
このラムダはIntStreamto IntStream（コードポイントのストリーム）です。
s->s.map(c->c>96&c<'{'&Math.random()>0?c-32:c)文字を大文字にするかどうかは、以前はかなり賢明な条件でありMath.random()<.5、約半分の時間で満たされていました。Math.random()>0（バイトを節約する）の現在の条件では、大文字化はほぼ毎回発生し、テストプログラムは無意味になります。ただし、ランダム性の要件は満たします。
zます。資格を持ってそれを投げることができました。
s=>s::gsub("."c=>{0s.upper,s.lower}[math.random(2)](c))
オプションのコンマのおかげで、それを行うのは1バイト短いです0s.upper意味し、テーブル定義でmath.randomランダムにどちらか選ぶだろう1か2やることよりも、math.random(0,1)持ってランダムではありませんで0。
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がコードの終わりを過ぎ、プログラムが停止します。
ụᶻṛᵐc
Example input: "Test"
ụᶻ Zip uppercase: [["T","T"],["e","E"],["s","S"],["t","T"]]
ṛᵐ Map random element: ["T","e","S","T"]
c Concatenate: "TeST"
2バイトを節約してくれたLeoに感謝します。
/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モードで試しましたが、文字コードだけに基づいた文字かどうかを判断するには、おそらくより多くのバイトが必要です。
StringReplace[c_/;Random[]<.5:>Capitalize@c]
の演算子形式を使用します。StringReplaceルール（またはルールのリスト）を指定しますが、入力として指定した任意の文字列にそのルールを適用する関数を提供する文字列はありません。
RandomChoice@{#,Capitalize@#}&/@#&Mathematicaで他の言語にある唯一の種類の文字列であるため、文字のリストを入力として取得する（および出力として生成する）ことを決めた場合、はるかに優れた（34バイト）ことができます。しかし、それは面白くない。
M.スターンのおかげで-5バイト
Capitalize
Random廃止されることを無視する場合は、独自に実装することでさらに4バイト節約できますRandomChoice。StringReplace[c_/;Random[]<.5:>Capitalize@c]、
Randomある時点で仕事を始めようとしていましたが、それを忘れていた/;ので、If声明に入れようとしました。ありがとう！
smO,r1
ovsのおかげで3バイト、Steven Hのおかげで1バイト節約されました。
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.
r1d= rd1、暗黙の入力ゴルフをもう1バイト出力できるようにします。
while($a=$argv[1][$i++])echo rand()%2?ucfirst($a):$a;
Titusの提案に従って（部分的に）10バイトのコードを削減しました。
$a。while(~$a=$argn[$i++])代わりに試してくださいforeach（パイプとして実行）。
-join([char[]]"$args"|%{(("$_"|% *per),$_)[(Random)%2]})ブリアンティストのおかげで-1バイト
入力を文字列として受け取り、$args配列を明示的に文字列にキャストし、char-array としてキャストしてから、文字をループに送ります。反復するたびに、50-50は文字をそのまま出力$_するか、大文字に変換します"$_".ToUpper()（それが("$_"|% *per)ゴミです）。それはRandom整数を取得してmodを取ることで2ます。
これらの文字はパイプラインに残され、その後-join単一の文字列に戻されます。それ自体がパイプラインに残され、出力は暗黙的です。
"$_".ToUpper()に("$_"|% *per)/ - ：
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)
これを1行で機能させることはできませんでした。理由もわかりませんが、sとsがランダムに選択され2ḶXø³L¤Ð¡たリスト[None,1,0,..,1]を提供します。これが最初のリンクの理由です。01NoneḊ