Tôi heva văn bản wierd này, nơi vewols dường như là ratetod:

Tôi là một văn bản viết xấu. Một số kẻ mất trí đã chơi theo thứ tự nguyên âm. Xin hãy sửa tôi!

Vì vậy, tôi cần một pragrom có ​​thể phê chuẩn các vewols (và chữ 'y' như nó có vẻ) để văn bản trở thành agian raadeble.

Ouy có thể chọn lungaega của ouyr chieco privateedod ouy meka một cempleto pragrom (vì vậy không chỉ là một fincoun). Các yntre có thể là một yếu đuối unpit, một feli văn bản, hoặc leni cammond. Các uutpot mya olsa vyra như ouy leki.

Của cuerso tôi sẽ anvilid yna pragrom uutpitong văn bản xấu. Không có âm hộ trong một pragrom mà mekas văn bản ouy không thể kết thúc. Nhưng ouy có thể wreti ouyr cemmonts và qeistouns trong các văn bản ratetod nếu ouy muốn.

Làm rõ

• Chương trình của bạn chỉ được yêu cầu để xử lý văn bản ASCII.
• Đối với mục đích của câu hỏi này, các ký tự sau đây là nguyên âm: aeiouy
• Vị trí của các nguyên âm trong mỗi từ nên được xoay. Có một sự linh hoạt trong việc quyết định những gì đủ điều kiện là một từ: yêu cầu tối thiểu là hai ký tự cách nhau bởi một khoảng trắng bằng các từ khác nhau và hai ký tự chữ cái ( a-zA-Z) chỉ cách nhau bởi các ký tự chữ cái nằm trong cùng một từ.
• Hướng quay mong muốn nên được suy ra từ các trường hợp thử nghiệm dưới đây.

Các trường hợp thử nghiệm

Đầu vào: I'm a badly written text. Some lunatic guy played with the order of vowels. Please fix me !
Đầu ra:I'm a bydla wrettin text. Semo lanituc gyu plyead with the erdor of vewols. Plaese fix me !

Đầu vào: AeiOuy
Đầu ra:EioUya

Đầu vào: Hyphenated-word
Đầu ra: Hephanetyd-wordhoặcHephanetod-wyrd

GolfScript, 68 67 57 ký tự

" "/{..+{95&"AEIOUY"?)}:C,1>\{.C!!{96&\(31&@|}*}%\;}%" "*

Đầu vào phải được đưa ra trên STDIN. Ví dụ ( trực tuyến ):

> You!!! I'm a badly written text. Some lunatic guy played with the order of vowels. Please fix me !
Ouy!!! I'm a bydla wrettin text. Semo lanituc gyu plyead with the erdor of vewols. Plaese fix me !

Ruby, 91 90 ký tự

$><<gets.gsub(/\S+/){|x|x.gsub(r=/[aeiouy]/i){|y|z=$'[r]||x[r];y>?Z?z.downcase: z.upcase}}

Coffeescript, 148 charectar

alert prompt().replace /\S+/g,(x)->x.replace r=/[aeiouy](?=(.*))/gi,(y,z)->((t=z.match r)&&t[0]||x.match(r)[0])[['toLow','toUpp'][y>'Z']+'erCase']()

Không có ussimtoans, ngoại trừ "holf-cerract" là một từ, và không phải là sulitoon của tôi.

Kiểm tra:

> To test this program, simply enter a long sentence that appears half-broken
  To test this pragrom, sympli enter a long sentence that eppaars holf-brekan

> No MaTtEr HoW mUcH cAsE yOu uSe, It WoRkS
  No MeTtAr HoW mUcH cEsA oUy eSu, It WoRkS

Haskell, 159 ký tự

Không kết thúc khá ngắn như tôi mong đợi, nhưng tôi đã quyết định đăng nó bằng mọi cách:

import Data.Char
f s=let(v,t)=foldr g(v,[])s in t
g x(v,t)=last$(v,x:t):[(x,c v:t)|c<-[toUpper,toLower],x`elem`map c"AEIOUY"]
main=interact$unwords.map f.words

Phiên bản bị đánh cắp:

import Data.Char

rotateVowels :: String -> String
rotateVowels word = result
  where (vowel, result) = foldr step (vowel, []) word
        step ch (vowel, rest)
          | ch `elem` "AEIOUY" = (ch, toUpper vowel : rest)
          | ch `elem` "aeiouy" = (ch, toLower vowel : rest)
          | otherwise          = (vowel, ch : rest)

main = interact $ unwords . map rotateVowels . words

Đây là một ví dụ hay về cách đánh giá lười biếng có thể cho phép bạn thực hiện các thủ thuật hay. Trong rotateVowelsmỗi lần tìm thấy một nguyên âm mới, nó được chuyển sang bên trái, trong khi thay thế nó bằng một nguyên âm đến từ bên phải. Phần đầu ra từ nếp gấp này được đưa trở lại làm đầu vào để nguyên âm ngoài cùng bên trái trở thành thay thế cho phần ngoài cùng bên phải.

(vowel, result) = foldr step (vowel, []) word
 ^^^^^                        ^^^^^
 this part of the output      is part of the input

Python 2 , 172 byte

for w in input().split():p=[];q=list(w);z=filter(lambda c:c in'aeiouyAEIOUY',q);x=z[1:]+z[:1];print''.join(y in z and[str.upper,str.lower][y>'Z'](x.pop(0))or y for y in q),

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