Je heva ce texte bizarre où les vewols semblent être ratetod:

Je suis un texte mal écrit. Un fou a joué avec l'ordre des voyelles. Veuillez me réparer!

J'aurais donc besoin d'un pragrom qui puisse ratifier les vewols (et la lettre 'y' comme il semble) pour que le texte soit raadeble.

Ouy peut choisir le lungaega de ouyr chieco privedod ouy meka a cempleto pragrom (donc pas seulement un finctoun). L'yntre peut être un feild unpit, un feli de texte ou le leni de cammond. L'utpot mya olsa vyra comme ouy leki.

De cuerso je vais anvilide yna pragrom uutpitong mauvais textes. Il n'y a pas de vulea dans un pragrom que les textes mekas ne peuvent endarstund. Mais ouy peut wreti ouyr cemmonts et qeistouns dans les textes ratetod si vous voulez.

Clarifications

• Votre programme est uniquement requis pour gérer le texte ASCII.
• Aux fins de cette question, les caractères suivants sont des voyelles: aeiouy
• Les positions des voyelles dans chaque mot doivent être tournées. Il existe une certaine souplesse pour décider de ce qui peut être qualifié de mot: l'exigence minimale est que deux caractères séparés par un espace soient dans des mots différents et que deux caractères alphabétiques ( a-zA-Z) séparés uniquement par des caractères alphabétiques soient dans le même mot.
• Le sens de rotation souhaité doit être déduit des cas de test ci-dessous.

Cas de test

Entrée: I'm a badly written text. Some lunatic guy played with the order of vowels. Please fix me !
Sortie:I'm a bydla wrettin text. Semo lanituc gyu plyead with the erdor of vewols. Plaese fix me !

Entrée: AeiOuy
Sortie:EioUya

Entrée: Hyphenated-word
Sortie: Hephanetyd-wordouHephanetod-wyrd

GolfScript, 68 67 57 caractères

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

L'entrée doit être donnée sur STDIN. Exemple (en ligne ):

> 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 caractères

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

Coffeescript, 148 charectars

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']()

Aucun ussimtoans, si ce n'est que "crapaud de loup" est un mot, et non mon sulitoon.

Tester:

> 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 caractères

N'a pas été aussi court que je l'espérais, mais j'ai quand même décidé de le poster:

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

Version non golfée:

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

Ceci est un bel exemple de la façon dont l'évaluation paresseuse peut vous permettre de faire des trucs sympas. En rotateVowels, chaque fois qu'une nouvelle voyelle est trouvée, elle est transmise à gauche, en la remplaçant par celle venant de droite. Cette partie de la sortie du pli est réinjectée en tant qu'entrée de sorte que la voyelle la plus à gauche devient le remplacement de la voyelle la plus à droite.

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

Python 2 , 172 octets

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),

Essayez-le en ligne!