งาน

งานของคุณคือการสร้างโปรแกรมหรือฟังก์ชั่นที่ให้อินพุตเอาต์พุตข้อความอินพุตด้วยตัวอักษรแบบตัวพิมพ์ใหญ่ในขณะที่รักษาตัวพิมพ์ใหญ่ให้เป็นตัวพิมพ์ใหญ่แล้ว

การรวมตัวพิมพ์ใหญ่ของตัวอักษรพิมพ์เล็กทุกตัวควรเป็นไปได้ ตัวอย่างเช่นถ้าใส่ก็abcควรจะมีความน่าจะเป็นไม่เป็นศูนย์ของการแสดงผลใด ๆ ของการรวมกันดังต่อไปนี้: abc, Abc, aBc, abC, ABc, AbC, หรือaBCABC

อินพุต

ข้อมูลของคุณมีสตริงที่มีจำนวนตัวอักษร ASCII พิมพ์ใด ๆ Hello Worldยกตัวอย่างเช่น เอาท์พุทสำหรับการป้อนข้อมูลที่มีHeLLo WoRlD, HElLO WOrldฯลฯ

เกณฑ์การให้คะแนน

นี่คือรหัสกอล์ฟดังนั้นคำตอบที่สั้นที่สุดในแต่ละภาษาจะชนะ!

TI-Basic (83 series), 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 ไบต์

ฝุ่นอีกหนึ่งไบต์ต้องขอบคุณดิลแนน

żŒ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 สร้างUCaseเอาต์พุต50% (โดยเฉลี่ย) d

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

Ruby, 40 ไบต์

ฟังก์ชั่นแลมบ์ดาที่รับสาย บันทึก 1 ไบต์ขอบคุณ Arnauld บันทึก 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 ไบต์

outgolfed โดย djhurio!

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

ลองออนไลน์!

โปรแกรมนี้ใช้ตัวละครแต่ละตัวและด้วยความน่าจะเป็น 1/2 จะแปลงเป็นตัวพิมพ์ใหญ่หรือทิ้งไว้ตามลำพัง มันเป็นไปได้ที่จะปรับแต่งความน่าจะเป็นนี้โดยการเล่นที่มีค่าที่แตกต่างกันและdf0

rtดึงมาจากการแจกแจงแบบ t ของนักเรียนซึ่งมีค่ามัธยฐาน 0 พร้อมอิสระในระดับใดก็ได้ (ฉันเลือก1เนื่องจากเป็นจำนวนที่เล็กที่สุดเท่าที่จะเป็นไปได้)

05AB1E , 6 5 ไบต์

ขอบคุณ Adnan สำหรับ -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

วิธีนำมาจากคำตอบของ @ totalhuman

Ruby, 39 ไบต์

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

แรงบันดาลใจส่วนใหญ่มาจากคำตอบของ DisplayName (ฉันไม่สามารถแสดงความคิดเห็นที่จะแนะนำรุ่นนี้หนึ่งไบต์น้อยสำหรับการขาดชื่อเสียงขอโทษDisplayName )

สวิฟท์ 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 ไบต์ขอบคุณ Olivier Grégoire

ขี้ขลาด 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 คำตอบที่นี่และที่นี่ ปรับปรุงและแก้ไขด้วย Giuseppe!

Ouroborosขนาด 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

เมื่อ charcode เป็นค่าบวก)จะไม่มีตัวเลือกเนื่องจากจุดสิ้นสุดของบรรทัดอยู่ไกลที่สุดเท่าที่จะเป็นไปได้ แต่เมื่อตัวละครทุกตัวได้รับการอ่านให้i -1จากนั้นเราย้ายส่วนท้ายของ-11อักขระรหัสไปทางขวา - นั่นคือ 11 ตัวอักษรทางด้านซ้าย ต้องใช้การวนซ้ำสองครั้ง แต่ในที่สุด IP ก็ผ่านจุดสิ้นสุดของรหัสและโปรแกรมหยุดทำงาน

MATL , 12 11 ไบต์

"@rEk?Xk]v!

ลองออนไลน์!

บันทึกแล้ว 1 ไบต์ขอบคุณ @LuisMendo

Brachylogขนาด 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.@/

ลองออนไลน์!

คำอธิบาย

/...
\...@/

นี่เป็นกรอบปกติสำหรับโปรแกรมเชิงเส้นส่วนใหญ่ที่ทำงานในโหมด 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.

ฉันลองทำสิ่งนี้โดยสิ้นเชิงในโหมด Cardinal แต่การพิจารณาว่ามีอะไรบางอย่างเป็นตัวอักษรตามรหัสตัวอักษรอาจจะต้องใช้ไบต์มากขึ้น

ภาษา Wolfram (Mathematica) , 52 49 44 ไบต์

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

ลองออนไลน์!

ใช้รูปแบบโอเปอเรเตอร์ของStringReplace: โดยระบุเป็นกฎ (หรือรายการกฎ) แต่ไม่มีสตริงใดมอบฟังก์ชันที่ใช้กฎนั้นกับสตริงใด ๆ ที่คุณให้เป็นอินพุต

เราสามารถทำได้ดีกว่ามาก ( RandomChoice@{#,Capitalize@#}&/@#&คือ 34 ไบต์) ถ้าเราตัดสินใจที่จะรับรายการ (และสร้างเป็นเอาต์พุต) รายการของตัวละครซึ่งบางครั้งคนก็เถียงว่าไม่เป็นไรใน Mathematica เพราะมันเป็นสายอักขระชนิดเดียวที่มีในภาษาอื่น แต่นั่นไม่ใช่เรื่องสนุก

-5 ไบต์ขอบคุณ M. Stern

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)ขยะ) ที่ได้รับการแต่งตั้งโดยได้รับจำนวนเต็มและใช้มันพอควรRandom2

อักขระเหล่านั้นจะถูกทิ้งไว้ที่ไพพ์ไลน์จากนั้นนำ-joinกลับมารวมกันเป็นสตริงเดียว

Julia , 35 ไบต์

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

ลองออนไลน์!

ยังอ่านง่ายในฐานะมนุษย์ ใน Julia rand (A) ส่งคืนองค์ประกอบแบบสุ่มจาก A

Rebol , 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คือเหตุผลสำหรับḊในลิงค์แรก