Nhiệm vụ

Nhiệm vụ của bạn là tạo ra một chương trình hoặc một chức năng, được đưa ra một đầu vào, xuất văn bản đầu vào với các chữ cái ngẫu nhiên được viết hoa, trong khi vẫn giữ các chữ cái viết hoa viết hoa.

Mọi sự kết hợp viết hoa của các chữ cái viết thường nên có thể. Ví dụ, nếu đầu vào là abc, cần có một xác suất khác không xuất ra bất kỳ kết hợp sau: abc, Abc, aBc, abC, ABc, AbC, aBChoặc ABC.

Đầu vào

Ví dụ, đầu vào của bạn là một chuỗi, chứa bất kỳ số lượng ký tự ASCII có thể in nào Hello World. Đầu ra cho đầu vào bao gồm HeLLo WoRlD, HElLO WOrldvv

Chấm điểm

Đây là môn đánh gôn, vì vậy câu trả lời ngắn nhất trong mỗi ngôn ngữ sẽ thắng!

TI-Basic (sê-ri 83), 137 byte

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

Đưa đầu vào vào Ans, như được minh họa trong ảnh chụp màn hình bên dưới:

(Nếu ảnh chụp màn hình trông có vẻ bị xáo trộn, như đôi khi đối với tôi, hãy thử mở nó trong một tab mới ?)

TI-Basic (ít nhất là phiên bản TI-83 ... có lẽ tôi nên mở rộng ra chơi golf TI-89) là một ngôn ngữ khủng khiếp để thử đánh golf thử thách này, kể từ:

1. Nó hoàn toàn không hỗ trợ cho bất kỳ số học nào với các ký tự, biết phiên bản chữ hoa của ký tự chữ thường hoặc thậm chí biết bảng chữ cái.
2. Mỗi ký tự chữ thường mất 2 byte để lưu trữ. (Trên thực tế, tôi đã phải sử dụng tập lệnh lắp ráp chỉ để có thể nhập các chữ cái viết thường.)

Kết quả là 78 ​​byte của chương trình này (hơn một nửa) chỉ lưu trữ bảng chữ cái, hai lần .

Dù sao, ý tưởng là chúng ta lặp qua chuỗi, với cơ hội biến các ký tự chữ thường thành chữ hoa khi chúng ta đi và thêm kết quả vào cuối chuỗi để cả đầu vào và đầu ra được lưu trữ Ans. Khi chúng ta rời khỏi For(vòng lặp, Isẽ dài hơn một lần so với độ dài của chuỗi gốc, do đó, việc lấy các I-1ký tự bắt đầu từ đầu Ira.

Japt , 6 byte

®m`«`ö

Kiểm tra nó trực tuyến!

Giải trình

®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 byte

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

Hãy thử trực tuyến!

C,  47  46 byte

Cảm ơn @ l4m2 vì đã tiết kiệm một byte!

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

Hãy thử trực tuyến!

Sẽ là 42 byte, nếu có thể giả sử là {|}~không xuất hiện trong đầu vào:

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

Hãy thử trực tuyến!

Thạch , 5 byte

Một byte khác bụi nhờ dylnan.

żŒuX€

Hãy thử trực tuyến!

Giải trình

żŒ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 byte

Mã 22 byte + 1 cho -p.

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

Hãy thử trực tuyến!

JavaScript (ES6), 56 byte

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

Nếu không yêu cầu tính ngẫu nhiên đồng nhất, chúng ta có thể lưu 6 byte bằng cách sử dụng thời gian hiện tại làm nguồn ngẫu nhiên:

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

Điều này có xu hướng hoặc viết hoa hoặc để lại tất cả các chữ cái cùng một lúc.

R , 66 byte

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

Hãy thử trực tuyến!

Một câu trả lời R khác .

VBA Excel, _{74 71} 64 byte

Cuộc Randomizegọi luôn khiến đầu ra ngẫu nhiên tốn kém trong VBA :(

Chức năng cửa sổ ngay lập tức VBE ẩn danh nhận đầu vào từ phạm vi [A1]và đầu ra cho cửa sổ ngay lập tức VBE. Tạo ra một sản lượng 50% (trung bình) UCased.

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

Than , 8 7 byte

⭆Ｓ‽⁺↥ιι

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Giải trình:

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

Ruby, 40 byte

Hàm Lambda có một chuỗi. Đã lưu 1 byte nhờ Arnauld. Đã lưu 5 byte nhờ Snack.

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

APL + THẮNG, 37 byte

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

Nhắc nhở nhập màn hình, xác định chữ cái viết thường và chuyển đổi ngẫu nhiên chúng thành chữ hoa.

R , 89 88 byte

vượt trội bởi djhurio!

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

Hãy thử trực tuyến!

Chương trình này nhận mỗi ký tự và với xác suất 1/2 chuyển đổi nó thành chữ hoa hoặc để nó một mình. Có thể điều chỉnh xác suất này bằng cách chơi với các giá trị khác nhau dfvà 0.

rtrút ra từ phân phối t của Học sinh, có trung vị 0 với bất kỳ mức độ tự do nào (tôi đã chọn 1vì đó là số nhỏ nhất có thể).

05AB1E , 6 5 byte

Cảm ơn bạn Adnan cho -1 byte

uø€ΩJ

Hãy thử trực tuyến!

Giải trình

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

Phương pháp lấy từ câu trả lời của @ perfecthuman

Ruby, 39 byte

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

Phần lớn lấy cảm hứng từ câu trả lời của displayname . (Tôi không thể nhận xét để đề xuất phiên bản không có một byte này vì thiếu danh tiếng, xin lỗi hiển thị )

Swift 4, 86 byte

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

Java 8, 46 byte

Lambda này là từ IntStreamđến IntStream(dòng điểm mã).

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

Dùng thử trực tuyến

Phân phối vốn hóa

Có nên viết hoa một chữ cái từng là điều kiện khá hợp lý Math.random()<.5mà đã được thỏa mãn khoảng một nửa thời gian. Với điều kiện hiện tại là Math.random()>0(tiết kiệm một byte), việc viết hoa hầu như xảy ra mọi lúc, điều này làm cho một chương trình thử nghiệm trở nên vô nghĩa. Nhưng nó đáp ứng yêu cầu ngẫu nhiên.

Lời cảm ơn

• -1 byte nhờ Olivier Grégoire

Funky , 55 byte

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

Hãy thử trực tuyến!

Nhờ các dấu phẩy tùy chọn, nó ngắn hơn một byte 0s.uppertrong định nghĩa bảng, có nghĩa là math.randomsẽ chọn ngẫu nhiên 1hoặc 2, hơn là làm math.random(0,1)ngẫu nhiên và không có 0.

R , 60 59 58 57 56 63 byte

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

Hãy thử trực tuyến!

Cách tiếp cận khác nhau từ hai câu trả lời R khác ở đây và đây . Cải thiện và sửa chữa nhờ Giuseppe!

Ouroboros , 25 byte

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

Hãy thử nó ở đây

Phần ưa thích duy nhất là dòng điều khiển .b*),. Trước tiên hãy nói về phần còn lại.

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

Chúng tôi sau đó lặp trở lại đầu dòng. Dòng điều khiển liên quan đến việc thay đổi nơi kết thúc của dòng; nếu nó được di chuyển sang bên trái của IP, việc thực thi chấm dứt. Như vậy:

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

Khi charcode là dương, )là không có op, vì cuối dòng là càng xa càng tốt. Nhưng khi tất cả các nhân vật đã được đọc, icho -1. Sau đó, chúng tôi di chuyển phần cuối của các -11ký tự mã sang phải - nghĩa là 11 ký tự sang trái. Phải mất một vài lần lặp, nhưng cuối cùng IP đã qua phần cuối của mã và chương trình tạm dừng.

MATL , 12 11 byte

"@rEk?Xk]v!

Hãy thử trực tuyến!

Đã lưu 1 byte nhờ @LuisMendo

Brachylog , 5 byte

ụᶻṛᵐc

Hãy thử trực tuyến!

Giải trình

Example input: "Test"

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

Alice , 17 15 byte

Cảm ơn Leo vì đã tiết kiệm được 2 byte.

/uRUwk
\i*&o.@/

Hãy thử trực tuyến!

Giải trình

/...
\...@/

Đây là khung thông thường cho các chương trình phần lớn tuyến tính hoạt động hoàn toàn ở chế độ Ordinal.

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.

Lần đầu tiên tôi đã thử làm điều này hoàn toàn trong chế độ Cardinal, nhưng xác định xem một cái gì đó là một chữ cái chỉ dựa trên mã ký tự có thể sẽ mất nhiều byte hơn.

Ngôn ngữ Wolfram (Mathicala) , 52 49 44 byte

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

Hãy thử trực tuyến!

Sử dụng dạng toán tử của StringReplace: cung cấp cho nó một quy tắc (hoặc một danh sách các quy tắc) nhưng không có chuỗi nào cung cấp một hàm áp dụng quy tắc đó cho bất kỳ chuỗi nào bạn cung cấp cho nó làm đầu vào.

Chúng tôi có thể làm tốt hơn rất nhiều ( RandomChoice@{#,Capitalize@#}&/@#&là 34 byte) nếu chúng tôi quyết định lấy đầu vào (và sản xuất làm đầu ra) một danh sách các ký tự, mà mọi người đôi khi tranh luận là ổn trong Mathicala vì đó là loại chuỗi duy nhất có trong các ngôn ngữ khác. Nhưng đó không phải là niềm vui.

-5 byte nhờ M. Stern

Bình thường, 10 7 6 byte

smO,r1

Đã lưu 3 byte nhờ vào ovs và 1 nhờ Steven H.

Dùng thử trực tuyến

Giải trình

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 byte

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

Được quản lý để giảm mã với 10 byte bằng (một phần) theo đề xuất của Titus.

PowerShell , 57 56 byte

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

Hãy thử trực tuyến!

-1 byte nhờ briantist

Đưa đầu vào dưới dạng một chuỗi, chuyển rõ ràng $argsmảng thành một chuỗi, biến nó thành một chuỗi char-array, sau đó đưa các ký tự qua một vòng lặp. Mỗi lần lặp lại, chúng ta 50-50 xuất ký tự nguyên trạng $_hoặc chuyển đổi nó thành chữ hoa "$_".ToUpper()(đó là ("$_"|% *per)rác). Điều đó được chọn bằng cách lấy một Randomsố nguyên và lấy nó mod 2.

Các ký tự đó được để lại trên đường ống và sau đó -joined lại với nhau thành một chuỗi, chính nó được để lại trên đường ống và đầu ra là ẩn.

Julia , 35 byte

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

Hãy thử trực tuyến!

Vẫn khá dễ đọc như một con người. Trong Julia rand (A) trả về một phần tử ngẫu nhiên từ A.

Rebol , 61 byte

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

Kiểm tra:

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

Thạch , 16 byte

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

Hãy thử trực tuyến!

Giải trình

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)

Tôi không thể làm điều này để làm việc trong một dòng duy nhất. Tôi cũng không biết tại sao, nhưng 2ḶXø³L¤Ð¡đưa ra danh sách [None,1,0,..,1]với 0s và 1s được chọn ngẫu nhiên. Đây Nonelà lý do cho các Ḋliên kết đầu tiên.