^{แรงบันดาลใจจากกิจกรรมทุบตีฤดูหนาวที่จะเกิดขึ้น}

objetive

เพิ่มหมวก ^, ´หรือ`จะเป็นสระเสียงเดียวในคำของท่านแต่ละคน

กฎระเบียบ

• hatและvowelจะต้องได้รับการสุ่มเลือก หมวกแต่ละใบจะต้องปรากฏขึ้นพร้อมกับความน่าจะเป็นแบบเดียวกัน (33%) และสระนั้นจะต้องมีความน่าจะเป็นแบบเดียวกันภายในสระที่ถูกต้องในคำ (ถ้าคำนั้นมีสระที่ถูกต้อง 2 ใบแต่ละสระจะต้องเลือก 50%) - หรือใกล้เคียงที่สุด ภาษาของคุณมี
• AEIOUaeiouถือว่าเป็นสระเท่านั้น(ขออภัยy)
• สระที่มีหมวกในอินพุตไม่รบกวนกฎ (คุณสามารถพิจารณาว่าเป็นพยัญชนะ)
• หากอินพุตไม่มีสระมันจะไม่ถูกแก้ไข
• ต้องเก็บรักษาตัวพิมพ์ใหญ่

ตัวอย่าง

winter> wintér
bash> bâsh
rhythm> rhythm
rng ftw> rng ftw
cat in the hat> cât ìn thê hát
dès> dès
tschüss> tschüss
principî> prìncipî
PROGRAMMING PUZZLES & code golf>PROGRÂMMING PÚZZLES & codé gòlf

การชนะ

นี่คือโค้ดกอล์ฟเพื่อให้โค้ดที่สั้นที่สุดชนะ

Perl 6 , 101 bytes

~*.words.map: {(my$p=m:ex:i/<[aeiou]>/».to.pick)~~Mu:D??~S/.**{$p}<(/{("\x300".."\x302").pick}/!!$_}

ลองมัน

ขยาย:

~      # stringify (join with spaces)
*\     # Whatever lambda (input parameter)
.words # split into words

.map:  # for each word

{ # bare block lambda with implicit parameter ｢$_｣
  (

    my $p =

    m
    :exhaustive               # all possible matches
    :ignorecase
    /<[aeiou]>/\              # match a vowel

    ».to.pick                 # pick one of the positions

  ) ~~ Mu:D                   # is it defined ( shorter than ｢.defined｣ )

  ??                          # if ｢$p｣ is defined

    ~                         # stringify

    S/
      . ** {$p}               # match ｢$p｣ positions

      <(                      # ignore them
    /{
      ("\x300".."\x302").pick # pick one of the "hats" to add
    }/


  !!                          # if ｢$p｣ is not defined    
    $_                        # return the word unchanged
}

C #, 273 267 ไบต์

using System.Linq;A=s=>{var r=new System.Random();var a=s.Split(' ');return string.Join(" ",a.Select(w=>w.Select((c,i)=>"AEIOUaeiou".Any(d=>c==d)?i:-1).Where(x=>x>=0).ToList()).Select((l,i)=>l.Any()?a[i].Insert(l[r.Next(l.Count)]+1,""+(char)r.Next(768,771)):a[i]));};

repl.it การสาธิต

ผมรู้สึกเหมือนฉันโกงตั้งแต่ฉันยังคงเพิ่มหมวกสระสำเนียงแล้วสร้างขึ้นโดยการรวมตัวละคร หากไม่เป็นที่ยอมรับแจ้งให้ฉันทราบเพื่อให้ฉันสามารถเพิ่มรหัสสำเร็จรูปประกาศคำตอบที่ไม่แข่งขัน

สิ่งนี้จะเพิ่มตัวอักษรแบบสุ่มระหว่างU + 0300หรือU + 0301หรือU + 0302หลังจากสระเสียงแบบสุ่มของแต่ละคำที่ป้อน (ถ้ามี)

Ungolfed (ร่างกายแลมบ์ดาเท่านั้น)

var r=new System.Random();
// Split sentence to array of words
var a=s.Split(' ');
// Join the (hat-ed) words back to sentence
return string.Join(
    " ",
    // Select an IEnum of list of integers indicating the positions of vowels
    a.Select(w=>
        w.Select((c,i)=>
            // If it's vowel, return position (>=0), else return -1
            "AEIOUaeiou".Any(d=>c==d)?i:-1
        // Filter vowels only
        ).Where(x=>x>=0)
        .ToList()
    // Convert each list of integers to hat-ed words
    ).Select((l,i)=>
        l.Any()
            // Insert "something" into the word...
            ?a[i].Insert(
                // ...at the position after a random vowel in that word...
                l[r.Next(l.Count)]+1,
                // "something" is a random integer in [0x0300, 0x0303), then casted to UTF16 i.e. [U+0300, U+0302]
                ""+(char)r.Next(768,771))
            // List is empty => just return original word
            :a[i]));

Mathematica, 226 ไบต์

Join@@((p=Position[w=#,Alternatives@@(v=Characters@"aeiouAEIOU")];If[p!={},i=#&@@RandomChoice@p;w[[i]]=FromCharacterCode[ToCharacterCode["àèìòùÀÈÌÒÙ"][[#&@@Position[v,w[[i]]]]]+RandomInteger@2]];w)&/@Split[#,{##}~FreeQ~" "&])&

ฟังก์ชั่นที่ไม่ได้ตั้งชื่อใช้รายการตัวอักษรเป็นอินพุตและส่งคืนรายการอักขระ รุ่นที่อ่านง่ายขึ้นและไม่น่ารังเกียจเล็กน้อยเช่นกัน:

 1  v = Characters["aeiouAEIOU"];
 2  a = ToCharacterCode["àèìòùÀÈÌÒÙ"];
 3  Join @@ (
 4    (p = Position[w = #, Alternatives @@ v]; 
 5      If[p != {},
 6        i = First[RandomChoice[p]]; 
 7        w[[i]] =
 8          FromCharacterCode[
 9            a[[ First[ Position[ v, w[[i]] ] ] ]] + RandomInteger[2]
10          ]
11        ]; w
12    ) &
13  ) /@ Split[#1, FreeQ[{##1}, " "] &] &

บรรทัดที่ 13 แยกอินพุตเป็นคำ (รายการย่อยของอักขระ) ที่ช่องว่างทั้งหมด แต่ละคำทำงานโดยฟังก์ชั่นที่กำหนดโดยบรรทัดที่ 4-12 และผลลัพธ์จะรวมเข้าด้วยกันอีกครั้งในรายการเดียวทีละบรรทัด

บรรทัดที่ 4 ตั้งค่าpเป็นรายการดัชนีที่ระบุว่าตัวอักษรของคำwใดเป็นสระ หากมีเสียงสระใด ๆ (บรรทัดที่ 5) เราจะสุ่มเลือกดัชนีหนึ่งรายการi(บรรทัดที่ 6) จากนั้นรีเซ็ตอักขระเดี่ยวของคำเป็นอักขระใหม่ (บรรทัดที่ 7-10) สุดท้ายเราส่งออก (แก้ไขอาจจะ) wคำ

ในการเลือกตัวละครใหม่ที่เราหาที่สระจะถูกแทนที่นั่งอยู่ในสตริงและเลือกรหัสอักขระที่สอดคล้องกันจากv aแต่เพื่อสุ่มเลือกหมวกสามใบเราจะใช้รหัสนั้นและเพิ่มจำนวนเต็มแบบสุ่มระหว่าง 0 ถึง 2 (บรรทัด 9) ก่อนที่จะแปลงกลับเป็นอักขระ (โชคดีที่เสียงสระที่ปรากฎนั้นมีอยู่ในรหัสอักขระ UTF-8 จำนวนสามชุดติดต่อกัน)

Python 3, 170 ไบต์

from random import *
c=choice
print(' '.join([w,w[:i]+c('̀́̂')+w[i:]][i>0]for w in input().split()for i in[c([j+1 for j,x in enumerate(w)if x in 'aeiouAEIOU']or[0])]))

Ungolfed:

from random import choice
print(' '.join([
                   w,  # Don't modify the word if no vowels were found

                   w[:i] + choice('̀́̂') + w[i:]
               ][i > 0]
               for w in input().split()
                   for i in [choice([j + 1 for j, x in enumerate(w) if x in 'aeiouAEIOU']
                                    or [0])  # choice requires a non-empty sequence
                             ]))